From f0d58d976a62b92bdcfe0bebdfe81c7f463fb938 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 22 Feb 2025 13:35:30 +0200 Subject: [PATCH] ; * lisp/ibuf-macs.el (define-ibuffer-op): Fix long lines. --- lisp/ibuf-macs.el | 22 +++++++++++++--------- 1 file changed, 13 insertions(+), 9 deletions(-) diff --git a/lisp/ibuf-macs.el b/lisp/ibuf-macs.el index 667dd1fff0f..4a283420efd 100644 --- a/lisp/ibuf-macs.el +++ b/lisp/ibuf-macs.el @@ -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))))