(bs--get-name, bs--get-file-name): Add help-echo to

mouse-highlighted text.

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  <eliz@is.elta.co.il>
 
+        * 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  <eliz@is.elta.co.il>
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)