# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1015560216 0
# Node ID 6bc5cbc8912d26edf5f46b61a1563ddfe8e4d9b1
# Parent  4ec7319030202a7116f12e5e6f00eaf826ea02cd
(define-ibuffer-column): Add :summarizer property.

diff -r 4ec731903020 -r 6bc5cbc8912d lisp/ibuf-macs.el
--- a/lisp/ibuf-macs.el	Fri Mar 08 04:03:21 2002 +0000
+++ b/lisp/ibuf-macs.el	Fri Mar 08 04:03:36 2002 +0000
@@ -93,14 +93,8 @@
 `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 @@
 		 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)