From 855eca564cc7814366babaf5f792e69468f97597 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 18 Jun 2001 10:21:59 +0000 Subject: [PATCH] (bs--get-name, bs--get-file-name): Add help-echo to mouse-highlighted text. --- lisp/ChangeLog | 3 +++ lisp/bs.el | 13 +++++++++++-- 2 files changed, 14 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 50dff1ed466..6e57a7a988b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2001-06-18 Eli Zaretskii + * bs.el (bs--get-name, bs--get-file-name): Add help-echo to + mouse-highlighted text. + * dired.el (dired-mark-pop-up): Fix last change. 2001-06-17 Eli Zaretskii diff --git a/lisp/bs.el b/lisp/bs.el index f17609f556b..26942c3e593 100644 --- a/lisp/bs.el +++ b/lisp/bs.el @@ -1339,7 +1339,12 @@ for mouse highlighting. START-BUFFER is the buffer where we started buffer selection. ALL-BUFFERS is the list of buffer appearing in Buffer Selection Menu." (let ((name (copy-sequence (buffer-name)))) - (put-text-property 0 (length name) 'mouse-face 'highlight name) + (add-text-properties + 0 (length name) + '(mouse-face highlight + help-echo + "mouse-2: select this buffer, mouse-3: select in other frame") + name) (if (< (length name) bs--name-entry-length) (concat name (make-string (- bs--name-entry-length (length name)) ? )) @@ -1362,7 +1367,11 @@ ALL-BUFFERS is the list of buffer appearing in Buffer Selection Menu." '(shell-mode dired-mode)) default-directory (or buffer-file-name ""))))) - (put-text-property 0 (length string) 'mouse-face 'highlight string) + (add-text-properties + 0 (length string) + '(mouse-face highlight + help-echo "mouse-2: select this buffer, mouse-3: select in other frame") + string) string)) (defun bs--insert-one-entry (buffer) -- 2.39.2