Mercurial > emacs
changeset 62374:2500e1e082cd
(dired-mark-confirm):
Pass t to dired-get-marked-files for DISTINGUISH-ONE-MARKED.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 15 May 2005 21:34:47 +0000 |
| parents | 6b68d72075c1 |
| children | 6a8938e81aa7 |
| files | lisp/dired-aux.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired-aux.el Sun May 15 21:33:25 2005 +0000 +++ b/lisp/dired-aux.el Sun May 15 21:34:47 2005 +0000 @@ -760,7 +760,10 @@ ;; The files used are determined by ARG (as in dired-get-marked-files). (or (eq dired-no-confirm t) (memq op-symbol dired-no-confirm) - (let ((files (dired-get-marked-files t arg)) + ;; Pass t for DISTINGUISH-ONE-MARKED so that a single file which + ;; is marked pops up a window. That will help the user see + ;; it isn't the current line file. + (let ((files (dired-get-marked-files t arg nil t)) (string (if (eq op-symbol 'compress) "Compress or uncompress" (capitalize (symbol-name op-symbol))))) (dired-mark-pop-up nil op-symbol files (function y-or-n-p)