Mercurial > emacs
comparison lisp/ibuffer.el @ 50448:6ced6cabcc81
(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) |