equal
deleted
inserted
replaced
2443 (find-function-at-point) |
2443 (find-function-at-point) |
2444 )) |
2444 )) |
2445 ;; Goto elisp definition. |
2445 ;; Goto elisp definition. |
2446 (define-key emacs-lisp-mode-map (kbd "M-.") 'my-elisp-find-tag) |
2446 (define-key emacs-lisp-mode-map (kbd "M-.") 'my-elisp-find-tag) |
2447 |
2447 |
2448 ;; http://www.emacswiki.org/emacs/PrettyLambda |
2448 (if (not (fboundp 'global-prettify-symbols-mode)) |
2449 (font-lock-add-keywords |
2449 ;; http://www.emacswiki.org/emacs/PrettyLambda |
2450 'emacs-lisp-mode |
2450 (font-lock-add-keywords |
2451 `( |
2451 'emacs-lisp-mode |
2452 ("(\\<\\(lambda\\)\\>" |
2452 `(("(\\<\\(lambda\\)\\>" |
2453 (1 (progn (compose-region (match-beginning 1) (match-end 1) ,(make-char 'greek-iso8859-7 107)) font-lock-keyword-face)) |
2453 (1 (progn (compose-region (match-beginning 1) (match-end 1) ,(make-char 'greek-iso8859-7 107)) font-lock-keyword-face)) ))) |
2454 ) |
2454 (global-prettify-symbols-mode 1)) |
2455 )) |
|
2456 |
2455 |
2457 (defun my-dump-funcs () |
2456 (defun my-dump-funcs () |
2458 "Dump all function calls in current buffer. Useful to explore |
2457 "Dump all function calls in current buffer. Useful to explore |
2459 elisp API from somebody else files." |
2458 elisp API from somebody else files." |
2460 (interactive) |
2459 (interactive) |