From: Kim F. Storm <storm@cua.dk>
Date: Fri, 17 Dec 2004 15:18:02 +0000 (+0000)
Subject: (dired-mode-map): Map follow-link to mouse-face.
X-Git-Tag: ttn-vms-21-2-B4~3214
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bb87fbc3eeeeacdaed7780c5a349509f4dcc1541;p=emacs.git

(dired-mode-map): Map follow-link to mouse-face.
---

diff --git a/lisp/dired.el b/lisp/dired.el
index 19ea0768e2b..037bf282eda 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1104,6 +1104,7 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST."
   (let ((map (make-keymap)))
     (suppress-keymap map)
     (define-key map [mouse-2] 'dired-mouse-find-file-other-window)
+    (define-key map [follow-link] 'mouse-face)
     ;; Commands to mark or flag certain categories of files
     (define-key map "#" 'dired-flag-auto-save-files)
     (define-key map "." 'dired-clean-directory)