Mercurial > emacs
comparison lisp/ibuffer.el @ 50444:2ca336b1259d
(ibuffer-insert-filter-group): `help-echo' text property dynamically
respects `tooltip-mode'.
(define-ibuffer-column name): Likewise.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Fri, 04 Apr 2003 21:46:42 +0000 |
| parents | 8e685f71f253 |
| children | 6ced6cabcc81 |
comparison
equal
deleted
inserted
replaced
| 50443:dff98b69fed2 | 50444:2ca336b1259d |
|---|---|
| 1610 | 1610 |
| 1611 (define-ibuffer-column name (:inline t | 1611 (define-ibuffer-column name (:inline t |
| 1612 :props | 1612 :props |
| 1613 ('mouse-face 'highlight 'keymap ibuffer-name-map | 1613 ('mouse-face 'highlight 'keymap ibuffer-name-map |
| 1614 'ibuffer-name-column t | 1614 'ibuffer-name-column t |
| 1615 'help-echo "mouse-1: mark this buffer\nmouse-2: select this buffer\nmouse-3: operate on this buffer")) | 1615 'help-echo '(if tooltip-mode |
| 1616 "mouse-1: mark this buffer\nmouse-2: select this buffer\nmouse-3: operate on this buffer" | |
| 1617 "mouse-1: mark buffer mouse-2: select buffer mouse-3: operate"))) | |
| 1616 (propertize (buffer-name) 'font-lock-face (ibuffer-buffer-name-face buffer mark))) | 1618 (propertize (buffer-name) 'font-lock-face (ibuffer-buffer-name-face buffer mark))) |
| 1617 | 1619 |
| 1618 (define-ibuffer-column size (:inline t) | 1620 (define-ibuffer-column size (:inline t) |
| 1619 (format "%s" (buffer-size))) | 1621 (format "%s" (buffer-size))) |
| 1620 | 1622 |
| 2061 `(ibuffer-filter-group-name | 2063 `(ibuffer-filter-group-name |
| 2062 ,name | 2064 ,name |
| 2063 font-lock-face ,ibuffer-filter-group-name-face | 2065 font-lock-face ,ibuffer-filter-group-name-face |
| 2064 keymap ,ibuffer-mode-filter-group-map | 2066 keymap ,ibuffer-mode-filter-group-map |
| 2065 mouse-face highlight | 2067 mouse-face highlight |
| 2066 help-echo ,(concat filter-string "mouse-1: toggle marks in this group\nmouse-2: hide/show this filtering group "))) | 2068 help-echo ,(let ((echo '(if tooltip-mode |
| 2069 "mouse-1: toggle marks in this group\nmouse-2: hide/show this filtering group" | |
| 2070 " mouse-1: toggle marks mouse-2: hide/show"))) | |
| 2071 (if (> (length filter-string) 0) | |
| 2072 `(concat ,filter-string (and tooltip-mode "\n") ,echo) | |
| 2073 echo)))) | |
| 2067 (insert "\n") | 2074 (insert "\n") |
| 2068 (when bmarklist | 2075 (when bmarklist |
| 2069 (put-text-property | 2076 (put-text-property |
| 2070 (point) | 2077 (point) |
| 2071 (progn | 2078 (progn |