aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1994-04-02 05:52:36 +0000
committerKarl Heuer1994-04-02 05:52:36 +0000
commit84258c5dcce7af9aadfcd126f93fdce27309b108 (patch)
treec2ed459b2e351f5c5f270d7bdeaaaa618ea01be4
parente5ea316b8ade737c73f151f7ccc55146227f22bd (diff)
downloademacs-84258c5dcce7af9aadfcd126f93fdce27309b108.tar.gz
emacs-84258c5dcce7af9aadfcd126f93fdce27309b108.zip
(summarize-tar-header-block): Add mouse-face properties.
-rw-r--r--lisp/tar-mode.el2
1 files changed, 2 insertions, 0 deletions
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."
369 (progn 369 (progn
370 (tar-dotimes (i 3) (aset string (+ namestart 1 (length name) i) (aref (if (= link-p 1) "==>" "-->") i))) 370 (tar-dotimes (i 3) (aset string (+ namestart 1 (length name) i) (aref (if (= link-p 1) "==>" "-->") i)))
371 (tar-dotimes (i (length link-name)) (aset string (+ namestart 5 (length name) i) (aref link-name i))))) 371 (tar-dotimes (i (length link-name)) (aset string (+ namestart 5 (length name) i) (aref link-name i)))))
372 (put-text-property namestart (length string)
373 'mouse-face 'highlight string)
372 string))) 374 string)))
373 375
374 376