Commit e17d05e2 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen
Browse files

(dired-mark-if): Make the message about whether it's marking or unmarking clearer (bug#8523)

parent 67aa99ff
2011-07-02 Drew Adams <drew.adams@oracle.com>
* dired.el (dired-mark-if): Make the message about whether it's
marking or unmarking clearer (bug#8523).
2011-07-02 Lars Magne Ingebrigtsen <larsi@gnus.org>
* disp-table.el (display-table-print-array): New function.
......
......@@ -485,7 +485,16 @@ Return value is the number of files marked, or nil if none were marked."
`(let ((inhibit-read-only t) count)
(save-excursion
(setq count 0)
(if ,msg (message "Marking %ss..." ,msg))
(when ,msg
(message "%s %ss%s..."
(cond ((eq dired-marker-char ?\040) "Unmarking")
((eq dired-del-marker dired-marker-char)
"Flagging")
(t "Marking"))
,msg
(if (eq dired-del-marker dired-marker-char)
" for deletion"
"")))
(goto-char (point-min))
(while (not (eobp))
(if ,predicate
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment