From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 17 Jun 2001 11:16:18 +0000 (+0000)
Subject: (archive-summarize-files): Add help-echo to mouse-highlighted text.
X-Git-Tag: emacs-pretest-21.0.104~248
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=27a1722977cdb777d2d43540bc33f54673c32405;p=emacs.git

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

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