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 |
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 |
|
|