[Emacs-diffs] Changes to emacs/lisp/dired-aux.el

[Richard M . Stallman]

Index: emacs/lisp/dired-aux.el
diff -c emacs/lisp/dired-aux.el:1.128 emacs/lisp/dired-aux.el:1.129
*** emacs/lisp/dired-aux.el:1.128       Thu Mar 24 19:47:35 2005
--- emacs/lisp/dired-aux.el     Sun May 15 21:34:47 2005
***************
*** 760,766 ****
    ;; 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))
            (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)
--- 760,769 ----
    ;; 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)
!       ;; 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)