Mercurial > emacs

comparison lisp/net/tramp.el @ 103627:2cc306c7ad91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* net/tramp.el (tramp-do-copy-or-rename-file-directly): Set file modes mandatory. (Bug#3712)
author Michael Albinus <michael.albinus@gmx.de>
date Mon, 29 Jun 2009 20:41:17 +0000
parents d820807ffab7
children 11f316dfa4b5
comparison
equal deleted inserted replaced
103626:23b69c963c1d 103627:2cc306c7ad91
3360 (condition-case nil 3360 (condition-case nil
3361 (delete-file tmpfile) 3361 (delete-file tmpfile)
3362 (error))))))))) 3362 (error)))))))))
3363 3363
3364 ;; Set the time and mode. Mask possible errors. 3364 ;; Set the time and mode. Mask possible errors.
3365 ;; Won't be applied for 'rename.
3366 (condition-case nil 3365 (condition-case nil
3367 (when (and keep-date (not preserve-uid-gid)) 3366 (when keep-date
3368 (set-file-times newname (nth 5 (file-attributes filename))) 3367 (set-file-times newname (nth 5 (file-attributes filename)))
3369 (set-file-modes newname (tramp-default-file-modes filename))) 3368 (set-file-modes newname (tramp-default-file-modes filename)))
3370 (error))))) 3369 (error)))))
3371 3370
3372 (defun tramp-do-copy-or-rename-file-out-of-band (op filename newname keep-date) 3371 (defun tramp-do-copy-or-rename-file-out-of-band (op filename newname keep-date)