# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1103296719 0
# Node ID ad6398d47add95176341acea35dacb4b94ca1b61
# Parent  f71e5777b7831380271f6c86a3c69fce03f90ac7
(compilation-minor-mode-map)
(compilation-button-map, compilation-mode-map):
Map follow-link to mouse-face.

diff -r f71e5777b783 -r ad6398d47add lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Fri Dec 17 15:18:02 2004 +0000
+++ b/lisp/progmodes/compile.el	Fri Dec 17 15:18:39 2004 +0000
@@ -1044,6 +1044,7 @@
 (defvar compilation-minor-mode-map
   (let ((map (make-sparse-keymap)))
     (define-key map [mouse-2] 'compile-goto-error)
+    (define-key map [follow-link] 'mouse-face)
     (define-key map "\C-c\C-c" 'compile-goto-error)
     (define-key map "\C-m" 'compile-goto-error)
     (define-key map "\C-c\C-k" 'kill-compilation)
@@ -1073,6 +1074,7 @@
 (defvar compilation-button-map
   (let ((map (make-sparse-keymap)))
     (define-key map [mouse-2] 'compile-goto-error)
+    (define-key map [follow-link] 'mouse-face)
     (define-key map "\C-m" 'compile-goto-error)
     map)
   "Keymap for compilation-message buttons.")
@@ -1084,6 +1086,7 @@
     ;; because that introduces a menu bar item we don't want.
     ;; That confuses C-down-mouse-3.
     (define-key map [mouse-2] 'compile-goto-error)
+    (define-key map [follow-link] 'mouse-face)
     (define-key map "\C-c\C-c" 'compile-goto-error)
     (define-key map "\C-m" 'compile-goto-error)
     (define-key map "\C-c\C-k" 'kill-compilation)