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 |