From 27a1722977cdb777d2d43540bc33f54673c32405 Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 17 Jun 2001 11:16:18 +0000
Subject: [PATCH] (archive-summarize-files): Add help-echo to mouse-highlighted
 text.

---
 lisp/arc-mode.el | 8 +++++---
 1 file 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)))
-- 
2.39.2