Commit 4f4126e6 authored by Michael Albinus's avatar Michael Albinus

* net/tramp.el (tramp-do-copy-or-rename-file-directly): Handle

also the 'rename case, when setting file modes.  (Bug#3712)
parent 0ad6626b
2009-06-30 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-do-copy-or-rename-file-directly): Handle
also the 'rename case, when setting file modes. (Bug#3712)
2009-06-30 Kenichi Handa <handa@m17n.org>
* international/fontset.el (setup-default-fontset): Add CJK fonts
......
......@@ -3225,7 +3225,9 @@ KEEP-DATE means to make sure that NEWNAME has the same timestamp
as FILENAME. PRESERVE-UID-GID, when non-nil, instructs to keep
the uid and gid from FILENAME."
(let ((t1 (tramp-tramp-file-p filename))
(t2 (tramp-tramp-file-p newname)))
(t2 (tramp-tramp-file-p newname))
(file-times (nth 5 (file-attributes filename)))
(file-modes (tramp-default-file-modes filename)))
(with-parsed-tramp-file-name (if t1 filename newname) nil
(let* ((cmd (cond ((and (eq op 'copy) preserve-uid-gid) "cp -f -p")
((eq op 'copy) "cp -f")
......@@ -3364,8 +3366,8 @@ the uid and gid from FILENAME."
;; Set the time and mode. Mask possible errors.
(condition-case nil
(when keep-date
(set-file-times newname (nth 5 (file-attributes filename)))
(set-file-modes newname (tramp-default-file-modes filename)))
(set-file-times newname file-times)
(set-file-modes newname file-modes))
(error)))))
(defun tramp-do-copy-or-rename-file-out-of-band (op filename newname keep-date)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment