diff options
| author | Stephen Berman <stephen.berman@gmx.net> | 2023-09-13 23:43:54 +0200 |
|---|---|---|
| committer | Stephen Berman <stephen.berman@gmx.net> | 2023-09-13 23:43:54 +0200 |
| commit | 9d9570bfbf5c820e096d3821a6bc041ef5af4645 (patch) | |
| tree | beb607d4e71b0bc997a9da3e4248925927bb9e95 /lisp/ibuf-macs.el | |
| parent | 9838f786ded35fe49bbe84dd78af84df1337adbf (diff) | |
| download | emacs-9d9570bfbf5c820e096d3821a6bc041ef5af4645.tar.gz | |
Fix last Ibuffer change and improve feedback messages
* lisp/ibuf-macs.el (define-ibuffer-op): Emit grammatically
correct message on finishing operation, and don't operate when
there are no marked buffer lines and point is not on a buffer
line. (bug#64230, Message #21)
* lisp/ibuffer.el (ibuffer-map-lines): Take acting on only one
buffer line and using non-nil 'ibuffer-expert' into account.
Diffstat (limited to 'lisp/ibuf-macs.el')
| -rw-r--r-- | lisp/ibuf-macs.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ibuf-macs.el b/lisp/ibuf-macs.el index c38dfefe0c5..36616389f99 100644 --- a/lisp/ibuf-macs.el +++ b/lisp/ibuf-macs.el @@ -230,6 +230,9 @@ buffer object. (_ 'ibuffer-marked-buffer-names))))) (when (null marked-names) + (cl-assert (get-text-property (line-beginning-position) + 'ibuffer-properties) + nil "No buffer on this line") (setq marked-names (list (buffer-name (ibuffer-current-buffer)))) (ibuffer-set-mark ,(pcase mark (:deletion @@ -243,7 +246,9 @@ buffer object. ()) (and after `(,after)) ; post-operation form. `((ibuffer-redisplay t) - (message ,(concat "Operation finished; " opstring " %s buffers") count)))) + (message ,(concat "Operation finished; " opstring + " %s %s") + count (ngettext "buffer" "buffers" count))))) (inner-body (if complex `(progn ,@body) `(progn |