diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2001-06-17 11:16:18 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2001-06-17 11:16:18 +0000 |
| commit | 27a1722977cdb777d2d43540bc33f54673c32405 (patch) | |
| tree | a768a6cbca33ec9f0bb0ef2d1822fdc38e4db205 /lisp/arc-mode.el | |
| parent | e75e894bcc3da44c61a1d7588afb3f2b149afe4f (diff) | |
| download | emacs-27a1722977cdb777d2d43540bc33f54673c32405.tar.gz | |
(archive-summarize-files): Add help-echo to mouse-highlighted text.
Diffstat (limited to 'lisp/arc-mode.el')
| -rw-r--r-- | lisp/arc-mode.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 4afb71509c7..e814d4d40c3 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -746,9 +746,11 @@ 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 - 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))) |