Mercurial > emacs
changeset 38072:4dc11485950d
(archive-summarize-files): Add help-echo to mouse-highlighted text.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 17 Jun 2001 11:16:18 +0000 |
| parents | 89855887ca28 |
| children | 54047d1b6974 |
| files | lisp/arc-mode.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/arc-mode.el Sun Jun 17 10:44:45 2001 +0000 +++ b/lisp/arc-mode.el Sun Jun 17 11:16:18 2001 +0000 @@ -746,9 +746,11 @@ (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 - text)) + (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))) (setq archive-file-list-end (point-marker)))