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)