Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
mouse-highlighted text.
This commit is contained in:
Eli Zaretskii 2001-06-18 10:21:59 +00:00
parent cea2ad762d
commit 855eca564c
2 changed files with 14 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -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>

13
lisp/bs.el
View file

@ -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)