mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(dired-mark-prompt): Don't count/display the t element.

Browse Source 
Reported by Carsten Blaauw <it-media.blaauw@daimler.com>.
This commit is contained in:
Stefan Monnier 2008-02-22 18:47:26 +00:00
parent b198861124
commit bb5527ce63
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2008-02-22 Stefan Monnier <monnier@iro.umontreal.ca>
* dired.el (dired-mark-prompt): Don't count/display the t element.
Reported by Carsten Blaauw <it-media.blaauw@daimler.com>.
2008-02-22 Bill Meier <wmeier@newsguy.com> (tiny change)
* progmodes/sh-script.el (sh-indent-comment): Docstring fix.

6
lisp/dired.el
View File

@ -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)