mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

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

Browse Source 
(dired-mark-pop-up): Remove help-echo property from the file name.
This commit is contained in:
Eli Zaretskii 2001-06-17 11:18:16 +00:00
parent e20e70c3b3
commit ac2d0299f2
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/dired.el
View File

@ -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))))