/[emacs]/emacs/lisp/dired-aux.el
ViewVC logotype

Diff of /emacs/lisp/dired-aux.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.140 by rfrancoise, Sat Sep 24 13:44:02 2005 UTC revision 1.141 by rfrancoise, Sat Sep 24 23:26:28 2005 UTC
# Line 1147  Special value `always' suppresses confir Line 1147  Special value `always' suppresses confir
1147      (if (and recursive      (if (and recursive
1148               (eq t (car attrs))               (eq t (car attrs))
1149               (or (eq recursive 'always)               (or (eq recursive 'always)
1150                   (yes-or-no-p (format "Recursive copies of %s " from))))                   (yes-or-no-p (format "Recursive copies of %s? " from))))
1151          ;; This is a directory.          ;; This is a directory.
1152          (let ((files (directory-files from nil dired-re-no-dot)))          (let ((files (directory-files from nil dired-re-no-dot)))
1153            (if (eq recursive 'top) (setq recursive 'always)) ; Don't ask any more.            (if (eq recursive 'top) (setq recursive 'always)) ; Don't ask any more.

Legend:
Removed from v.1.140  
changed lines
  Added in v.1.141

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26