From bb5527ce637d3671ebac05ca7260a9aa8452150a Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 22 Feb 2008 18:47:26 +0000 Subject: [PATCH] (dired-mark-prompt): Don't count/display the t element. Reported by Carsten Blaauw . --- lisp/ChangeLog | 5 +++++ lisp/dired.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8155315790f..a8559f1a9a4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-02-22 Stefan Monnier + + * dired.el (dired-mark-prompt): Don't count/display the t element. + Reported by Carsten Blaauw . + 2008-02-22 Bill Meier (tiny change) * progmodes/sh-script.el (sh-indent-comment): Docstring fix. diff --git a/lisp/dired.el b/lisp/dired.el index 55d8f4aac74..942a6e4c905 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -2533,8 +2533,10 @@ deletion of 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) -- 2.39.2