diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2011-01-31 12:03:37 -0500 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2011-01-31 12:03:37 -0500 |
| commit | 8588a5a723f4e5cfa115341a242126a9efc71808 (patch) | |
| tree | d15121074830d6b33048b8847c61fb4e5f8ac5f3 | |
| parent | f11dc20174748ed91be6da793afa055ee17a2215 (diff) | |
| download | emacs-8588a5a723f4e5cfa115341a242126a9efc71808.tar.gz | |
* lisp/files.el (copy-directory): Fix arguments to the recursive call.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/files.el | 32 |
2 files changed, 19 insertions, 17 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index de8e7b4b82c..c355b14aa65 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-01-31 Chong Yidong <cyd@stupidchicken.com> + + * files.el (copy-directory): Fix arguments to recursive call. + 2011-01-29 Chong Yidong <cyd@stupidchicken.com> * files.el (copy-directory): If destination is an existing diff --git a/lisp/files.el b/lisp/files.el index 46597426191..d896020b27b 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -4767,26 +4767,24 @@ this happens by default." (file-name-nondirectory (directory-file-name directory)) newname)) - (if (and (file-exists-p newname) - (not (file-directory-p newname))) - (error "Cannot overwrite non-directory %s with a directory" - newname)) + (and (file-exists-p newname) + (not (file-directory-p newname)) + (error "Cannot overwrite non-directory %s with a directory" + newname)) (make-directory newname t)) ;; Copy recursively. - (mapc - (lambda (file) - (let ((target (expand-file-name - (file-name-nondirectory file) newname)) - (attrs (file-attributes file))) - (cond ((file-directory-p file) - (copy-directory file target keep-time parents)) - ((stringp (car attrs)) ; Symbolic link - (make-symbolic-link (car attrs) target t)) - (t - (copy-file file target t keep-time))))) - ;; We do not want to copy "." and "..". - (directory-files directory 'full directory-files-no-dot-files-regexp)) + (dolist (file + ;; We do not want to copy "." and "..". + (directory-files directory 'full + directory-files-no-dot-files-regexp)) + (if (file-directory-p file) + (copy-directory file newname keep-time parents) + (let ((target (expand-file-name (file-name-nondirectory file) newname)) + (attrs (file-attributes file))) + (if (stringp (car attrs)) ; Symbolic link + (make-symbolic-link (car attrs) target t) + (copy-file file target t keep-time))))) ;; Set directory attributes. (set-file-modes newname (file-modes directory)) |