# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 765265956 0
# Node ID 4e76332f7b44090defef427f2148694ea7add5b7
# Parent  532754d63384750c144925ed44898901f20bb8d2
(summarize-tar-header-block): Add mouse-face properties.

diff -r 532754d63384 -r 4e76332f7b44 lisp/tar-mode.el
--- a/lisp/tar-mode.el	Sat Apr 02 05:31:31 1994 +0000
+++ b/lisp/tar-mode.el	Sat Apr 02 05:52:36 1994 +0000
@@ -369,6 +369,8 @@
 	  (progn
 	    (tar-dotimes (i 3) (aset string (+ namestart 1 (length name) i) (aref (if (= link-p 1) "==>" "-->") i)))
 	    (tar-dotimes (i (length link-name)) (aset string (+ namestart 5 (length name) i) (aref link-name i)))))
+      (put-text-property namestart (length string)
+			 'mouse-face 'highlight string)
       string)))