Mercurial > emacs

comparison lisp/dired-aux.el @ 62374:2500e1e082cd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 9e1a411c62e5
children a7e02ef1e3d6
comparison
equal deleted inserted replaced
62373:6b68d72075c1 62374:2500e1e082cd
758 ;; Confirmation consists in a y-or-n question with a file list 758 ;; Confirmation consists in a y-or-n question with a file list
759 ;; pop-up unless OP-SYMBOL is a member of `dired-no-confirm'. 759 ;; pop-up unless OP-SYMBOL is a member of `dired-no-confirm'.
760 ;; The files used are determined by ARG (as in dired-get-marked-files). 760 ;; The files used are determined by ARG (as in dired-get-marked-files).
761 (or (eq dired-no-confirm t) 761 (or (eq dired-no-confirm t)
762 (memq op-symbol dired-no-confirm) 762 (memq op-symbol dired-no-confirm)
763 (let ((files (dired-get-marked-files t arg)) 763 ;; Pass t for DISTINGUISH-ONE-MARKED so that a single file which
764 ;; is marked pops up a window. That will help the user see
765 ;; it isn't the current line file.
766 (let ((files (dired-get-marked-files t arg nil t))
764 (string (if (eq op-symbol 'compress) "Compress or uncompress" 767 (string (if (eq op-symbol 'compress) "Compress or uncompress"
765 (capitalize (symbol-name op-symbol))))) 768 (capitalize (symbol-name op-symbol)))))
766 (dired-mark-pop-up nil op-symbol files (function y-or-n-p) 769 (dired-mark-pop-up nil op-symbol files (function y-or-n-p)
767 (concat string " " 770 (concat string " "
768 (dired-mark-prompt arg files) "? "))))) 771 (dired-mark-prompt arg files) "? ")))))