.emacs-my
changeset 1180 ed7746a7cb0c
parent 1179 b2e1cb526649
child 1181 64523c0fddb0
--- a/.emacs-my	Fri Dec 19 01:09:15 2014 +0200
+++ b/.emacs-my	Fri Dec 19 01:22:29 2014 +0200
@@ -2445,14 +2445,13 @@
 ;; Goto elisp definition.
 (define-key emacs-lisp-mode-map (kbd "M-.") 'my-elisp-find-tag)
 
-;; http://www.emacswiki.org/emacs/PrettyLambda
-(font-lock-add-keywords
- 'emacs-lisp-mode
- `(
-   ("(\\<\\(lambda\\)\\>"
-    (1 (progn (compose-region (match-beginning 1) (match-end 1) ,(make-char 'greek-iso8859-7 107)) font-lock-keyword-face))
-    )
-   ))
+(if (not (fboundp 'global-prettify-symbols-mode))
+    ;; http://www.emacswiki.org/emacs/PrettyLambda
+    (font-lock-add-keywords
+     'emacs-lisp-mode
+     `(("(\\<\\(lambda\\)\\>"
+        (1 (progn (compose-region (match-beginning 1) (match-end 1) ,(make-char 'greek-iso8859-7 107)) font-lock-keyword-face)) )))
+  (global-prettify-symbols-mode 1))
 
 (defun my-dump-funcs ()
   "Dump all function calls in current buffer. Useful to explore