From 84258c5dcce7af9aadfcd126f93fdce27309b108 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sat, 2 Apr 1994 05:52:36 +0000 Subject: [PATCH] (summarize-tar-header-block): Add mouse-face properties. --- lisp/tar-mode.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 0343c477f6e..87e1a656812 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -369,6 +369,8 @@ write-date, checksum, link-type, and link-name." (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))) -- 2.11.4.GIT