diff options
Diffstat (limited to 'lisp/ibuf-macs.el')
-rw-r--r-- | lisp/ibuf-macs.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ibuf-macs.el b/lisp/ibuf-macs.el index a2553e9e23a..1fd94967836 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 @@ -310,7 +315,7 @@ bound to the current value of the filter. (,qualifier-str qualifier)) ,(when accept-list `(progn - (unless (listp qualifier) (setq qualifier (list qualifier))) + (setq qualifier (ensure-list qualifier)) ;; Reject equivalent filters: (or f1 f2) is same as (or f2 f1). (setq qualifier (sort (delete-dups qualifier) #'string-lessp)) (setq ,filter (cons ',name (car qualifier))) |