From 7fe7479dc555e408ee4d932af942a8bad4651f5c Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 3 Apr 2008 20:03:31 +0000
Subject: [PATCH] (tar-mode-map): Obey mouse-1-click-follows-link.

---
 lisp/ChangeLog   | 4 ++++
 lisp/tar-mode.el | 2 ++
 2 files changed, 6 insertions(+)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a87416638da..44d7465c24a 100644
--- 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 8df1231d96c..c1b899d3582 100644
--- 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.