diff options
| author | Richard M. Stallman <[email protected]> | 2005-05-15 21:34:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2005-05-15 21:34:47 +0000 |
| commit | c232fd12ab92e3a73b3d9b222540aefb9f4589a2 (patch) | |
| tree | f81b5fa28b30cc41655f14711c00332bc9b6b08b /lisp/dired-aux.el | |
| parent | 09b092ad34087702db39e663dac6354a0718bf08 (diff) | |
(dired-mark-confirm):
Pass t to dired-get-marked-files for DISTINGUISH-ONE-MARKED.
Diffstat (limited to 'lisp/dired-aux.el')
| -rw-r--r-- | lisp/dired-aux.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 9a1449823c..0ce006af24 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -760,7 +760,10 @@ Otherwise, the rule is a compression rule, and compression is done with gzip.") ;; 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) |