diff options
| author | Miles Bader <miles@gnu.org> | 2008-02-24 10:09:07 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2008-02-24 10:09:07 +0000 |
| commit | b03f96dc5a6651d1dc84b81b2a15cad6908b9809 (patch) | |
| tree | 699d727fdfb007a12a07d1e1f2e172617cc159ef /lisp/dired.el | |
| parent | 52bec650ae314402c242ce700bb09be42ef8ae55 (diff) | |
| parent | 20ca5ee4f7d897d79416a6fdd084db1eabb392b0 (diff) | |
| download | emacs-b03f96dc5a6651d1dc84b81b2a15cad6908b9809.tar.gz | |
Merge from emacs--rel--22
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1074
Diffstat (limited to 'lisp/dired.el')
| -rw-r--r-- | lisp/dired.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 7e959b89a20..09695bfa7cd 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -2550,8 +2550,10 @@ non-empty directories is allowed." (if (= 1 count) "" "s")) (defun dired-mark-prompt (arg files) - ;; Return a string for use in a prompt, either the current file - ;; name, or the marker and a count of marked files. + "Return a string for use in a prompt, either the current file +name, or the marker and a count of marked files." + ;; distinguish-one-marked can cause the first element to be just t. + (if (eq (car files) t) (setq files (cdr files))) (let ((count (length files))) (if (= count 1) (car files) |