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

(dired-insert-set-properties): Add help-echo to mouse-highlighted text.
(dired-mark-pop-up): Remove help-echo property from the file name.
---

diff --git a/lisp/dired.el b/lisp/dired.el
index a425cf384f3..ea678ae6c2f 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -735,11 +735,13 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh."
     (while (< (point) end)
       (condition-case nil
 	  (if (dired-move-to-filename)
-	      (put-text-property (point)
-				 (save-excursion
-				   (dired-move-to-end-of-filename)
-				   (point))
-				 'mouse-face 'highlight))
+	      (add-text-properties
+	       (point)
+	       (save-excursion
+		 (dired-move-to-end-of-filename)
+		 (point))
+	       '(mouse-face 'highlight
+		 help-echo "mouse-2: visit this file in other window")))
 	(error nil))
       (forward-line 1))))
 
@@ -2161,7 +2163,7 @@ FILES is the list of marked files."
     (with-current-buffer (get-buffer-create bufname)
       (erase-buffer)
       (dired-format-columns-of-files files)
-      (remove-text-properties (point-min) (point-max) '(mouse-face)))
+      (remove-text-properties (point-min) (point-max) '(mouse-face help-echo)))
     (save-window-excursion
       (dired-pop-to-buffer bufname)
       (apply function args))))