diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2006-06-15 21:55:39 +0000 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2006-06-15 21:55:39 +0000 |
| commit | 8a7269eb1bdbce425ea372573e81bf7affcaa8d9 (patch) | |
| tree | 67236baf8a3aec48ccb99ec1351caddff8def0b5 /lisp/net | |
| parent | c43d75391af8665435c3db30eb61ca4630bd6a06 (diff) | |
| download | emacs-8a7269eb1bdbce425ea372573e81bf7affcaa8d9.tar.gz | |
* net/tramp.el (tramp-touch): Use UTC to express time.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/tramp.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 2ebc4d0b45e..c4166bb6d24 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -5017,15 +5017,16 @@ hosts, or files, disagree." (defun tramp-touch (file time) "Set the last-modified timestamp of the given file. TIME is an Emacs internal time value as returned by `current-time'." - (let ((touch-time (format-time-string "%Y%m%d%H%M.%S" time))) + (let ((touch-time (format-time-string "%Y%m%d%H%M.%S" time t))) (if (tramp-tramp-file-p file) (with-parsed-tramp-file-name file nil (let ((buf (tramp-get-buffer multi-method method user host))) (unless (zerop (tramp-send-command-and-check multi-method method user host - (format "touch -t %s %s" + (format "TZ=UTC; export TZ; touch -t %s %s" touch-time - localname))) + localname) + t)) (pop-to-buffer buf) (error "tramp-touch: touch failed, see buffer `%s' for details" buf)))) |