diff options
| author | John Paul Wallington <jpw@pobox.com> | 2003-04-04 21:46:42 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2003-04-04 21:46:42 +0000 |
| commit | 1cd7affa21ba770e22958c41539d6d1933138b23 (patch) | |
| tree | 6e077155be8925109c1fcdd91870efc37fe0364f /lisp/ibuffer.el | |
| parent | 05670fa88b877cfceb2e00b4dbfac66c9237872e (diff) | |
| download | emacs-1cd7affa21ba770e22958c41539d6d1933138b23.tar.gz | |
(ibuffer-insert-filter-group): `help-echo' text property dynamically
respects `tooltip-mode'.
(define-ibuffer-column name): Likewise.
Diffstat (limited to 'lisp/ibuffer.el')
| -rw-r--r-- | lisp/ibuffer.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index 06b71c9fa24..c6209e1a07f 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el @@ -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 |