/[emacs]/emacs/lisp/ibuf-macs.el
ViewVC logotype

Diff of /emacs/lisp/ibuf-macs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by walters, Mon Feb 4 03:57:35 2002 UTC revision 1.4 by walters, Fri Mar 8 04:03:36 2002 UTC
# Line 93  change its definition, you should explic Line 93  change its definition, you should explic
93  `ibuffer-recompile-formats'."  `ibuffer-recompile-formats'."
94    (let* ((sym (intern (concat "ibuffer-make-column-"    (let* ((sym (intern (concat "ibuffer-make-column-"
95                                (symbol-name symbol))))                                (symbol-name symbol))))
96           (bod-2 `(with-current-buffer buffer           (bod-1 `(with-current-buffer buffer
97                     ,@body))                     ,@body))
          (bod-1 (if summarizer  
                     `(car  
                       (push ,bod-2  
                             ,(intern (format "ibuffer-summary-for-column-%s"  
                                              name))))  
                   bod-2))  
98           (bod (if props           (bod (if props
99                   `(propertize                   `(propertize
100                     ,bod-1                     ,bod-1
# Line 116  change its definition, you should explic Line 110  change its definition, you should explic
110                   name                   name
111                 (capitalize (symbol-name symbol))))                 (capitalize (symbol-name symbol))))
112         ,(if summarizer         ,(if summarizer
113                ;; Store the name of the summarizing function.
114              `(put (quote ,sym) 'ibuffer-column-summarizer              `(put (quote ,sym) 'ibuffer-column-summarizer
115                    (quote ,summarizer)))                    (quote ,summarizer)))
116         ,(if summarizer         ,(if summarizer
117              `(defvar ,(intern (format "ibuffer-summary-for-column-%s"              ;; This will store the actual values of the column
118                                        name))              ;; summary.
119                 nil))              `(put (quote ,sym) 'ibuffer-column-summary nil))
120         :autoload-end)))         :autoload-end)))
121  ;; (put 'define-ibuffer-column 'lisp-indent-function 'defun)  ;; (put 'define-ibuffer-column 'lisp-indent-function 'defun)
122    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26