mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(ibuffer-insert-filter-group): `help-echo' text property dynamically

Browse Source 
respects `tooltip-mode'.
(define-ibuffer-column name): Likewise.
This commit is contained in:
John Paul Wallington 2003-04-04 21:46:42 +00:00
parent 05670fa88b
commit 1cd7affa21
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/ibuffer.el
View File

@ -1612,7 +1612,9 @@ If point is on a group name, this function operates on that group."
:props
('mouse-face 'highlight 'keymap ibuffer-name-map
'ibuffer-name-column t
'help-echo "mouse-1: mark this buffer\nmouse-2: select this buffer\nmouse-3: operate on this buffer"))
'help-echo '(if tooltip-mode
"mouse-1: mark this buffer\nmouse-2: select this buffer\nmouse-3: operate on this buffer"
"mouse-1: mark buffer mouse-2: select buffer mouse-3: operate")))
(propertize (buffer-name) 'font-lock-face (ibuffer-buffer-name-face buffer mark)))
(define-ibuffer-column size (:inline t)
@ -2063,7 +2065,12 @@ If optional arg SILENT is non-nil, do not display progress messages."
font-lock-face ,ibuffer-filter-group-name-face
keymap ,ibuffer-mode-filter-group-map
mouse-face highlight
help-echo ,(concat filter-string "mouse-1: toggle marks in this group\nmouse-2: hide/show this filtering group ")))
help-echo ,(let ((echo '(if tooltip-mode
"mouse-1: toggle marks in this group\nmouse-2: hide/show this filtering group"
" mouse-1: toggle marks mouse-2: hide/show")))
(if (> (length filter-string) 0)
`(concat ,filter-string (and tooltip-mode "\n") ,echo)
echo))))
(insert "\n")
(when bmarklist
(put-text-property