From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 14 Apr 2004 18:12:05 +0000 (+0000)
Subject: (compilation-button-map): New keymap.
X-Git-Tag: ttn-vms-21-2-B4~6830
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=60470fd2ec78901288f2b4d883b5ad63b81a865c;p=emacs.git

(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 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)