Mercurial > emacs
comparison lisp/ibuf-macs.el @ 45709:77b4e2d5f8dd
(define-ibuffer-column): Don't create a third argument for the
generated function.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Sun, 09 Jun 2002 00:20:12 +0000 |
| parents | 5bc8bee6a228 |
| children | c09fefd016a4 |
comparison
equal
deleted
inserted
replaced
| 45708:148691ba23f9 | 45709:77b4e2d5f8dd |
|---|---|
| 103 ,@props) | 103 ,@props) |
| 104 bod-1))) | 104 bod-1))) |
| 105 `(progn | 105 `(progn |
| 106 ,(if inline | 106 ,(if inline |
| 107 `(push '(,sym ,bod) ibuffer-inline-columns) | 107 `(push '(,sym ,bod) ibuffer-inline-columns) |
| 108 `(defun ,sym (buffer mark ibuffer-buf) | 108 `(defun ,sym (buffer mark) |
| 109 ,bod)) | 109 ,bod)) |
| 110 (put (quote ,sym) 'ibuffer-column-name | 110 (put (quote ,sym) 'ibuffer-column-name |
| 111 ,(if (stringp name) | 111 ,(if (stringp name) |
| 112 name | 112 name |
| 113 (capitalize (symbol-name symbol)))) | 113 (capitalize (symbol-name symbol)))) |