From 60470fd2ec78901288f2b4d883b5ad63b81a865c Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 14 Apr 2004 18:12:05 +0000 Subject: [PATCH] (compilation-button-map): New keymap. (compilation-error-properties): Use it. (compilation-shell-minor-mode-map): Don't bind mouse-2. --- lisp/progmodes/compile.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) 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) -- 2.39.5