procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; * lisp/ibuf-macs.el (define-ibuffer-op): Fix long lines.

Browse source
This commit is contained in:
Eli Zaretskii 2025-02-22 13:35:30 +02:00
parent 9a4b9a1e65
commit f0d58d976a
1 changed files with 13 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/ibuf-macs.el
View file

@ -256,11 +256,13 @@ buffer object.
())
(and after `(,after)) ; post-operation form.
`((ibuffer-redisplay t)
(message (concat "Operation finished; " (if (functionp ,opstring-sym)
(funcall ,opstring-sym)
,opstring-sym)
(message (concat "Operation finished; "
(if (functionp ,opstring-sym)
(funcall ,opstring-sym)
,opstring-sym)
" %s %s")
count (ngettext "buffer" "buffers" count)))))
count (ngettext "buffer" "buffers"
count)))))
(inner-body (if complex
`(progn ,@body)
`(progn
@ -285,14 +287,16 @@ buffer object.
(prog1 ,inner-body
(when (not (eq ibuffer-tmp-previous-buffer-modification
(buffer-modified-p buf)))
(setq ibuffer-did-modification t))))
(setq
ibuffer-did-modification t))))
inner-body)))))
,finish)))
(if dangerous
`(when (ibuffer-confirm-operation-on (if (functionp ,active-opstring-sym)
(funcall ,active-opstring-sym)
,active-opstring-sym)
marked-names)
`(when (ibuffer-confirm-operation-on
(if (functionp ,active-opstring-sym)
(funcall ,active-opstring-sym)
,active-opstring-sym)
marked-names)
,body)
body))))
:autoload-end))))