(compilation-button-map): New keymap.

(compilation-error-properties): Use it.
(compilation-shell-minor-mode-map): Don't bind mouse-2.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index db42e3b1a4eb4f20d96f450af5c77ffb53a1445b..ff4256192c4e6f27923e9875db5f47581a8825c0 100644 (file)
--- 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)