diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-04-14 18:12:05 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-04-14 18:12:05 +0000 |
| commit | 60470fd2ec78901288f2b4d883b5ad63b81a865c (patch) | |
| tree | 85c5046a59c5639369d10ad5634fe43ed99fbfeb | |
| parent | 96ef1febd290979a5d1be6ddf0a885c68c83e625 (diff) | |
| download | emacs-60470fd2ec78901288f2b4d883b5ad63b81a865c.tar.gz emacs-60470fd2ec78901288f2b4d883b5ad63b81a865c.tar.bz2 emacs-60470fd2ec78901288f2b4d883b5ad63b81a865c.zip | |
(compilation-button-map): New keymap.
(compilation-error-properties): Use it.
(compilation-shell-minor-mode-map): Don't bind mouse-2.
| -rw-r--r-- | lisp/progmodes/compile.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index db42e3b1a4e..ff4256192c4 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -646,6 +646,7 @@ Faces `compilation-error-face', `compilation-warning-face', (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 @@ exited abnormally with code %d\n" (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 @@ exited abnormally with code %d\n" 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) |