martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(dired-copy-file-recursive): Handle symlinks in recursive copy.

Browse Source
This commit is contained in:
Richard M. Stallman
2005-05-19 15:42:01 +00:00
parent b4aefb19b7
commit 3b68c5062f
1 changed files with 23 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
lisp/dired-aux.el
View File

@@ -1135,23 +1135,29 @@ Special value `always' suppresses confirmation."
(defun dired-copy-file-recursive (from to ok-flag &optional
preserve-time top recursive)
(if (and recursive
(eq t (car (file-attributes from))) ; A directory, no symbolic link.
(or (eq recursive 'always)
(yes-or-no-p (format "Recursive copies of %s " from))))
(let ((files (directory-files from nil dired-re-no-dot)))
(if (eq recursive 'top) (setq recursive 'always)) ; Don't ask any more.
(if (file-exists-p to)
(or top (dired-handle-overwrite to))
(make-directory to))
(while files
(dired-copy-file-recursive
(expand-file-name (car files) from)
(expand-file-name (car files) to)
ok-flag preserve-time nil recursive)
(setq files (cdr files))))
(or top (dired-handle-overwrite to)) ; Just a file.
(copy-file from to ok-flag dired-copy-preserve-time)))
(let ((attrs (file-attributes from)))
(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.
(if (file-exists-p to)
(or top (dired-handle-overwrite to))
(make-directory to))
(while files
(dired-copy-file-recursive
(expand-file-name (car files) from)
(expand-file-name (car files) to)
ok-flag preserve-time nil recursive)
(setq files (cdr files))))
;; Not a directory.
(or top (dired-handle-overwrite to))
(if (stringp (car attrs))
;; It is a symlink
(make-symbolic-link (car attrs) to ok-flag)
(copy-file from to ok-flag dired-copy-preserve-time)))))
;;;###autoload
(defun dired-rename-file (file newname ok-if-already-exists)