Mercurial > emacs

comparison lisp/ibuffer.el @ 50448:6ced6cabcc81

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ibuffer-insert-filter-group): Fix spazz.
author John Paul Wallington <jpw@pobox.com>
date Sat, 05 Apr 2003 01:03:23 +0000
parents 2ca336b1259d
children c2c47be7d704
comparison
equal deleted inserted replaced
50447:a5a6cd517d62 50448:6ced6cabcc81
2065 font-lock-face ,ibuffer-filter-group-name-face 2065 font-lock-face ,ibuffer-filter-group-name-face
2066 keymap ,ibuffer-mode-filter-group-map 2066 keymap ,ibuffer-mode-filter-group-map
2067 mouse-face highlight 2067 mouse-face highlight
2068 help-echo ,(let ((echo '(if tooltip-mode 2068 help-echo ,(let ((echo '(if tooltip-mode
2069 "mouse-1: toggle marks in this group\nmouse-2: hide/show this filtering group" 2069 "mouse-1: toggle marks in this group\nmouse-2: hide/show this filtering group"
2070 " mouse-1: toggle marks mouse-2: hide/show"))) 2070 "mouse-1: toggle marks mouse-2: hide/show")))
2071 (if (> (length filter-string) 0) 2071 (if (> (length filter-string) 0)
2072 `(concat ,filter-string (and tooltip-mode "\n") ,echo) 2072 `(concat ,filter-string
2073 (if tooltip-mode "\n" " ")
2074 ,echo)
2073 echo)))) 2075 echo))))
2074 (insert "\n") 2076 (insert "\n")
2075 (when bmarklist 2077 (when bmarklist
2076 (put-text-property 2078 (put-text-property
2077 (point) 2079 (point)