Mercurial > emacs
changeset 38095:7b6797bc61ef
(bs--get-name, bs--get-file-name): Add help-echo to
mouse-highlighted text.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Mon, 18 Jun 2001 10:19:30 +0000 |
| parents | d65ad759dc22 |
| children | 1dd1f9ddca4c |
| files | lisp/bs.el |
| diffstat | 1 files changed, 11 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/bs.el Mon Jun 18 07:11:33 2001 +0000 +++ b/lisp/bs.el Mon Jun 18 10:19:30 2001 +0000 @@ -1339,7 +1339,12 @@ 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 @@ '(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)