mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(define-ibuffer-column): Add :summarizer property.

Browse source
This commit is contained in:
Colin Walters 2002-03-08 04:03:36 +00:00
parent 2ef3551dfd
commit ceb449353b
1 changed files with 5 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/ibuf-macs.el
View file

@ -93,14 +93,8 @@ change its definition, you should explicitly call
`ibuffer-recompile-formats'."
(let* ((sym (intern (concat "ibuffer-make-column-"
(symbol-name symbol))))
(bod-2 `(with-current-buffer buffer
(bod-1 `(with-current-buffer buffer
,@body))
(bod-1 (if summarizer
`(car
(push ,bod-2
,(intern (format "ibuffer-summary-for-column-%s"
name))))
bod-2))
(bod (if props
`(propertize
,bod-1
@ -116,12 +110,13 @@ change its definition, you should explicitly call
name
(capitalize (symbol-name symbol))))
,(if summarizer
;; Store the name of the summarizing function.
`(put (quote ,sym) 'ibuffer-column-summarizer
(quote ,summarizer)))
,(if summarizer
`(defvar ,(intern (format "ibuffer-summary-for-column-%s"
name))
nil))
;; This will store the actual values of the column
;; summary.
`(put (quote ,sym) 'ibuffer-column-summary nil))
:autoload-end)))
;; (put 'define-ibuffer-column 'lisp-indent-function 'defun)