Commit ac2d0299 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(dired-insert-set-properties): Add help-echo to mouse-highlighted text.

(dired-mark-pop-up): Remove help-echo property from the file name.
parent e20e70c3
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment