- (if (stringp time-stamp-time-zone)
- (let ((ts-real-time-zone (getenv "TZ")))
- (unwind-protect
- (progn
- (set-time-zone-rule time-stamp-time-zone)
- (format-time-string
- (time-stamp-string-preprocess ts-format)))
- (set-time-zone-rule ts-real-time-zone)))
- (format-time-string
- (time-stamp-string-preprocess ts-format)))