Commit 27a17229 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(archive-summarize-files): Add help-echo to mouse-highlighted text.

parent e75e894b
......@@ -746,8 +746,10 @@ when parsing the archive."
(let ((text (concat (aref fil 0) "\n")))
(if archive-lemacs
() ; out of luck
(put-text-property (aref fil 1) (aref fil 2)
'mouse-face 'highlight
(add-text-properties
(aref fil 1) (aref fil 2)
'(mouse-face highlight
help-echo "mouse-2: extract this file into a buffer")
text))
text)))
files)))
......
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