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

diff --git a/lisp/dired.el b/lisp/dired.el
index 19ea0768e2b11264d0f421365b7dc8d72b2b9931..037bf282eda5b30a329784b7f9230744cd7adea9 100644 (file)
--- 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)