# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 992776696 0
# Node ID 7ca7def9af014177d89ee06f0580e5dd4b3f9702
# Parent  54047d1b6974a4d4cb570fdc9f0add83c48d54c5
(dired-insert-set-properties): Add help-echo to mouse-highlighted text.
(dired-mark-pop-up): Remove help-echo property from the file name.

diff -r 54047d1b6974 -r 7ca7def9af01 lisp/dired.el
--- a/lisp/dired.el	Sun Jun 17 11:17:17 2001 +0000
+++ b/lisp/dired.el	Sun Jun 17 11:18:16 2001 +0000
@@ -735,11 +735,13 @@
     (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 @@
     (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))))