Mercurial > emacs
changeset 59025:ad6398d47add
(compilation-minor-mode-map)
(compilation-button-map, compilation-mode-map):
Map follow-link to mouse-face.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Fri, 17 Dec 2004 15:18:39 +0000 |
| parents | f71e5777b783 |
| children | ef5a485f984f |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Fri Dec 17 15:18:02 2004 +0000 +++ b/lisp/progmodes/compile.el Fri Dec 17 15:18:39 2004 +0000 @@ -1044,6 +1044,7 @@ (defvar compilation-minor-mode-map (let ((map (make-sparse-keymap))) (define-key map [mouse-2] 'compile-goto-error) + (define-key map [follow-link] 'mouse-face) (define-key map "\C-c\C-c" 'compile-goto-error) (define-key map "\C-m" 'compile-goto-error) (define-key map "\C-c\C-k" 'kill-compilation) @@ -1073,6 +1074,7 @@ (defvar compilation-button-map (let ((map (make-sparse-keymap))) (define-key map [mouse-2] 'compile-goto-error) + (define-key map [follow-link] 'mouse-face) (define-key map "\C-m" 'compile-goto-error) map) "Keymap for compilation-message buttons.") @@ -1084,6 +1086,7 @@ ;; because that introduces a menu bar item we don't want. ;; That confuses C-down-mouse-3. (define-key map [mouse-2] 'compile-goto-error) + (define-key map [follow-link] 'mouse-face) (define-key map "\C-c\C-c" 'compile-goto-error) (define-key map "\C-m" 'compile-goto-error) (define-key map "\C-c\C-k" 'kill-compilation)