Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(define-ibuffer-column): Fix corner case miscompilations (bug#80180)

Browse source 
* lisp/ibuf-macs.el (define-ibuffer-column): Don't quote the
SUMMARIZER functions as data.
This commit is contained in:
Stefan Monnier 2026-01-14 16:52:09 -05:00
parent c6b62b42e0
commit 4d9abf0bdf
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/ibuf-macs.el
View file

@ -72,7 +72,8 @@ During evaluation of body, bind `it' to the value returned by TEST."
;;;###autoload
(cl-defmacro define-ibuffer-column (symbol (&key name inline props summarizer
header-mouse-map) &rest body)
header-mouse-map)
&rest body)
"Define a column SYMBOL for use with `ibuffer-formats'.
BODY will be called with `buffer' bound to the buffer object, and
@ -112,19 +113,18 @@ change its definition, you should explicitly call
`(defun ,sym (buffer mark)
(ignore mark) ;Silence byte-compiler if mark is unused.
,bod))
(put (quote ,sym) 'ibuffer-column-name
(put ',sym 'ibuffer-column-name
,(if (stringp name)
name
(capitalize (symbol-name symbol))))
,(if header-mouse-map `(put (quote ,sym) 'header-mouse-map ,header-mouse-map))
,(if header-mouse-map `(put ',sym 'header-mouse-map ,header-mouse-map))
,(if summarizer
;; Store the name of the summarizing function.
`(put (quote ,sym) 'ibuffer-column-summarizer
(quote ,summarizer)))
`(put ',sym 'ibuffer-column-summarizer #',summarizer))
,(if summarizer
;; This will store the actual values of the column
;; summary.
`(put (quote ,sym) 'ibuffer-column-summary nil))
`(put ',sym 'ibuffer-column-summary nil))
:autoload-end)))
;;;###autoload