mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(summarize-tar-header-block): Add mouse-face properties.

Browse Source
This commit is contained in:
Karl Heuer 1994-04-02 05:52:36 +00:00
parent e5ea316b8a
commit 84258c5dcc
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/tar-mode.el
View File

@ -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)))