Commit 84258c5d authored by Karl Heuer's avatar Karl Heuer
Browse files

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

parent e5ea316b
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment