# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1150408539 0
# Node ID 0844ec8948e98c55f380d6e8fb08de151b6a03f2
# Parent  424b1f91f07b00c248917a65fcd3e6a27acf9bd6
* net/tramp.el (tramp-touch): Use UTC to express time.

diff -r 424b1f91f07b -r 0844ec8948e9 lisp/ChangeLog
--- 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
diff -r 424b1f91f07b -r 0844ec8948e9 lisp/net/tramp.el
--- 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))))