Mercurial > emacs
changeset 54875:21c1ccea9533
(compilation-button-map): New keymap.
(compilation-error-properties): Use it.
(compilation-shell-minor-mode-map): Don't bind mouse-2.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 14 Apr 2004 18:12:05 +0000 |
| parents | abef03b05f03 |
| children | 95ee18354a3a |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Wed Apr 14 17:49:43 2004 +0000 +++ b/lisp/progmodes/compile.el Wed Apr 14 18:12:05 2004 +0000 @@ -646,6 +646,7 @@ (if line "mouse-2: visit this file and line" "mouse-2: visit this file")) + keymap compilation-button-map mouse-face highlight)))) (defun compilation-mode-font-lock-keywords () @@ -998,7 +999,6 @@ (defvar compilation-shell-minor-mode-map (let ((map (make-sparse-keymap))) - (define-key map [mouse-2] 'compile-goto-error) (define-key map "\M-\C-m" 'compile-goto-error) (define-key map "\M-\C-n" 'compilation-next-error) (define-key map "\M-\C-p" 'compilation-previous-error) @@ -1010,6 +1010,14 @@ map) "Keymap for `compilation-shell-minor-mode'.") +(defvar compilation-button-map + (let ((map (make-sparse-keymap))) + (define-key map [mouse-2] 'compile-goto-error) + (define-key map "\C-m" 'compile-goto-error) + map) + "Keymap for compilation-message buttons.") +(fset 'compilation-button-map compilation-button-map) + (defvar compilation-mode-map (let ((map (make-sparse-keymap))) (set-keymap-parent map compilation-minor-mode-map)