From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 15 May 2005 21:34:47 +0000 (+0000)
Subject: (dired-mark-confirm):
X-Git-Tag: ttn-vms-21-2-B4~269
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c232fd12ab92e3a73b3d9b222540aefb9f4589a2;p=emacs.git

(dired-mark-confirm):
Pass t to dired-get-marked-files for DISTINGUISH-ONE-MARKED.
---

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 9a1449823ca..0ce006af241 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)