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

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