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

mouse-highlighted text.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 50dff1ed466011840aa92247f9385e3d9a415fb2..6e57a7a988b674f6d9e54e73e812cb63200cd8ca 100644 (file)
--- 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 f17609f556bdf7b8bd7b0b16f64d77230db10573..26942c3e593e6e93671ab6aac839ebe4efcfdebb 100644 (file)
--- 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)