Mercurial > emacs
changeset 38074:7ca7def9af01
(dired-insert-set-properties): Add help-echo to mouse-highlighted text.
(dired-mark-pop-up): Remove help-echo property from the file name.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 17 Jun 2001 11:18:16 +0000 |
| parents | 54047d1b6974 |
| children | 437623e4fe1c |
| files | lisp/dired.el |
| diffstat | 1 files changed, 8 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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))))