# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1207253011 0
# Node ID 0cdd5c9c63c2cd6dcc79d1a8e5e1644bbb7a843d
# Parent  014868cc030126d6e726ca1f1175505ae3b5d5ca
(tar-mode-map): Obey mouse-1-click-follows-link.

diff -r 014868cc0301 -r 0cdd5c9c63c2 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Apr 03 20:02:47 2008 +0000
+++ b/lisp/ChangeLog	Thu Apr 03 20:03:31 2008 +0000
@@ -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 -r 014868cc0301 -r 0cdd5c9c63c2 lisp/tar-mode.el
--- a/lisp/tar-mode.el	Thu Apr 03 20:02:47 2008 +0000
+++ b/lisp/tar-mode.el	Thu Apr 03 20:03:31 2008 +0000
@@ -498,6 +498,8 @@
     (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.