# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 992776578 0
# Node ID 4dc11485950d8f14504e077ff780f5f6892e3a66
# Parent  89855887ca28ff37235bb53bc1f431d4cdb05999
(archive-summarize-files): Add help-echo to mouse-highlighted text.

diff -r 89855887ca28 -r 4dc11485950d lisp/arc-mode.el
--- 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)))