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

[Romain Francoise]

Index: emacs/lisp/dired-aux.el
diff -c emacs/lisp/dired-aux.el:1.140 emacs/lisp/dired-aux.el:1.141
*** emacs/lisp/dired-aux.el:1.140       Sat Sep 24 13:44:02 2005
--- emacs/lisp/dired-aux.el     Sat Sep 24 23:26:28 2005
***************
*** 1147,1153 ****
      (if (and recursive
             (eq t (car attrs))
             (or (eq recursive 'always)
!                (yes-or-no-p (format "Recursive copies of %s " from))))
        ;; This is a directory.
        (let ((files (directory-files from nil dired-re-no-dot)))
          (if (eq recursive 'top) (setq recursive 'always)) ; Don't ask any 
more.
--- 1147,1153 ----
      (if (and recursive
             (eq t (car attrs))
             (or (eq recursive 'always)
!                (yes-or-no-p (format "Recursive copies of %s? " from))))
        ;; This is a directory.
        (let ((files (directory-files from nil dired-re-no-dot)))
          (if (eq recursive 'top) (setq recursive 'always)) ; Don't ask any 
more.