[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/ibuffer.el
From: |
Colin Walters |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/ibuffer.el |
Date: |
Mon, 13 May 2002 02:00:06 -0400 |
Index: emacs/lisp/ibuffer.el
diff -c emacs/lisp/ibuffer.el:1.28 emacs/lisp/ibuffer.el:1.29
*** emacs/lisp/ibuffer.el:1.28 Thu May 9 23:35:35 2002
--- emacs/lisp/ibuffer.el Mon May 13 02:00:06 2002
***************
*** 2074,2080 ****
(nreverse result)
result))))
! (defun ibuffer-insert-filter-group (name display-name format bmarklist)
(add-text-properties
(point)
(progn
--- 2074,2080 ----
(nreverse result)
result))))
! (defun ibuffer-insert-filter-group (name display-name filter-string format
bmarklist)
(add-text-properties
(point)
(progn
***************
*** 2082,2088 ****
(point))
`(ibuffer-filter-group-name ,name keymap ,ibuffer-mode-filter-group-map
mouse-face highlight
! help-echo "mouse-1: toggle marks in this
group\nmouse-2: hide/show this filtering group "))
(insert "\n")
(when bmarklist
(put-text-property
--- 2082,2088 ----
(point))
`(ibuffer-filter-group-name ,name 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 ")))
(insert "\n")
(when bmarklist
(put-text-property
***************
*** 2125,2130 ****
--- 2125,2133 ----
(ibuffer-insert-filter-group
name
(if disabled (concat name " ...") name)
+ (if ext-loaded
+ (ibuffer-format-filter-group-data name)
+ "")
--ibuffer-insert-buffers-and-marks-format
(if disabled
nil