From ac2d0299f24c529adc3e4256dbadb680ef230b5f Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 17 Jun 2001 11:18:16 +0000 Subject: [PATCH] (dired-insert-set-properties): Add help-echo to mouse-highlighted text. (dired-mark-pop-up): Remove help-echo property from the file name. --- lisp/dired.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) 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))))