(tar-mode-map): Obey mouse-1-click-follows-link.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a87416638da013a929f249bf68e97f502f307f4d..44d7465c24aa1e3285cc622eff967174ef41223d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-04-03  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * tar-mode.el (tar-mode-map): Obey mouse-1-click-follows-link.
+
 2008-04-03  Chong Yidong  <cyd@stupidchicken.com>
 
        * simple.el (handle-shift-selection): New arg.

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 8df1231d96cbc165f0daf87c6191341375faf44a..c1b899d358215031a98b8e00a58391e09ecec3b2 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -498,6 +498,8 @@ is visible (and the real data of the buffer is hidden)."
     (define-key map "M" 'tar-chmod-entry)
     (define-key map "G" 'tar-chgrp-entry)
     (define-key map "O" 'tar-chown-entry)
+    ;; Let mouse-1 follow the link.
+    (define-key map [follow-link] 'mouse-face)
 
     ;; Make menu bar items.