# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 810707772 0
# Node ID 9c090a7674c877558b08171d76fbe58da5ab85e1
# Parent  0cbb394cbd825f00591937fcd0d1c8c33c10d5f9
(setenv): Call set-time-zone-rule when setting TZ.

diff -r 0cbb394cbd82 -r 9c090a7674c8 lisp/env.el
--- a/lisp/env.el	Sun Sep 10 04:23:38 1995 +0000
+++ b/lisp/env.el	Sun Sep 10 04:36:12 1995 +0000
@@ -92,6 +92,8 @@
 	  (case-fold-search nil)
 	  (scan process-environment)
 	  found)
+      (if (string-equal "TZ" variable)
+	  (set-time-zone-rule value))
       (while scan
 	(cond ((string-match pattern (car scan))
 	       (setq found t)