(setenv): Call set-time-zone-rule when setting TZ.

7fd81709 · Richard M. Stallman · cdadf745 · 7fd81709
Commit 7fd81709 authored Sep 10, 1995 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

lisp/env.el lisp/env.el +2 -0

No files found.
--- a/lisp/env.el
+++ b/lisp/env.el
@@ -92,6 +92,8 @@ This function works by modifying `process-environment'."
 	  (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)