Mercurial > emacs
comparison lisp/emacs-lisp/elp.el @ 101716:79f16674b60b
(elp-results-symname-map): Add follow-link.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 31 Jan 2009 17:00:54 +0000 |
| parents | a9dc0e7c3f2b |
| children | 0d7c31bf0a29 |
comparison
equal
deleted
inserted
replaced
| 101715:800e02167df4 | 101716:79f16674b60b |
|---|---|
| 535 (insert "\n")))) | 535 (insert "\n")))) |
| 536 | 536 |
| 537 (defvar elp-results-symname-map | 537 (defvar elp-results-symname-map |
| 538 (let ((map (make-sparse-keymap))) | 538 (let ((map (make-sparse-keymap))) |
| 539 (define-key map [mouse-2] 'elp-results-jump-to-definition) | 539 (define-key map [mouse-2] 'elp-results-jump-to-definition) |
| 540 (define-key map [follow-link] 'mouse-face) | |
| 540 (define-key map "\C-m" 'elp-results-jump-to-definition) | 541 (define-key map "\C-m" 'elp-results-jump-to-definition) |
| 541 map) | 542 map) |
| 542 "Keymap used on the function name column." ) | 543 "Keymap used on the function name column." ) |
| 543 | 544 |
| 544 (defun elp-results-jump-to-definition (&optional event) | 545 (defun elp-results-jump-to-definition (&optional event) |