back to sets with unwind-protect, doesn't work another way

1 files changed, 7 insertions, 3 deletions

diff --git a/world-time-mode.el b/world-time-mode.el
index 7836b90..03a637d 100644
--- a/world-time-mode.el
+++ b/world-time-mode.el
@@ -32,11 +32,15 @@
   (apply 'vector
          (mapcar
           (lambda (zone)
-            (let ((process-environment (cons (concat "TZ=" (car zone))
-                                             process-environment)))
-              (list (format-time-string "%R %Z" this-time))))
+            (let ((original (getenv "TZ")))
+              (unwind-protect
+                   (progn
+                     (setenv "TZ" (car zone))
+                     (list (format-time-string "%R %Z" this-time)))
+                (setenv "TZ" original))))
           display-time-world-list)))
 
+
 (defun world-time/table-entrys ()
   "Make the entry table for the list.