Mercurial > emacs
changeset 71350:0844ec8948e9
* net/tramp.el (tramp-touch): Use UTC to express time.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Thu, 15 Jun 2006 21:55:39 +0000 |
| parents | 424b1f91f07b |
| children | 30e91c99f01a |
| files | lisp/ChangeLog lisp/net/tramp.el |
| diffstat | 2 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Jun 15 18:34:26 2006 +0000 +++ b/lisp/ChangeLog Thu Jun 15 21:55:39 2006 +0000 @@ -1,3 +1,7 @@ +2006-06-15 Katsumi Yamaoka <yamaoka@jpl.org> (tiny change) + + * net/tramp.el (tramp-touch): Use UTC to express time. + 2006-06-15 Chong Yidong <cyd@stupidchicken.com> * mail/sendmail.el (mail-send): Search explicitly for
--- a/lisp/net/tramp.el Thu Jun 15 18:34:26 2006 +0000 +++ b/lisp/net/tramp.el Thu Jun 15 21:55:39 2006 +0000 @@ -5017,15 +5017,16 @@ (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))))