[Emacs-diffs] Changes to emacs/lisp/dired.el,v [EMACS_22_BASE]

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Stefan Monnier <monnier>        08/02/22 18:47:26

Index: dired.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/dired.el,v
retrieving revision 1.359.2.9
retrieving revision 1.359.2.10
diff -u -b -r1.359.2.9 -r1.359.2.10
--- dired.el    7 Jan 2008 02:44:55 -0000       1.359.2.9
+++ dired.el    22 Feb 2008 18:47:26 -0000      1.359.2.10
@@ -2533,8 +2533,10 @@
   (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)