diff options
author | Karl Heuer <kwzh@gnu.org> | 1995-06-07 18:35:06 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1995-06-07 18:35:06 +0000 |
commit | c7240b7a6042f01348529feca32dccd7d5d5580a (patch) | |
tree | 41a0f8c7654f3ee8630b8d5f5aedaca4241ca799 | |
parent | aa6bbffa8b1724ba6b376ab4eda2d91b30ca4e4d (diff) | |
download | emacs-c7240b7a6042f01348529feca32dccd7d5d5580a.tar.gz |
(display-time-filter):
Use same instant for both time and time-zone.
-rw-r--r-- | lisp/time.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/time.el b/lisp/time.el index f99cb3c5d51..e841d52618d 100644 --- a/lisp/time.el +++ b/lisp/time.el @@ -117,7 +117,8 @@ For example, the form would give mode line times like `94/12/30 21:07:48 (UTC)'.") (defun display-time-filter (proc string) - (let* ((time (current-time-string)) + (let* ((now (current-time)) + (time (current-time-string now)) (load (condition-case () (if (zerop (car (load-average))) "" (let ((str (format " %03d" (car (load-average))))) @@ -149,7 +150,7 @@ would give mode line times like `94/12/30 21:07:48 (UTC)'.") (am-pm (if (>= hour 12) "pm" "am")) (minutes (substring time 14 16)) (seconds (substring time 17 19)) - (time-zone (car (cdr (current-time-zone)))) + (time-zone (car (cdr (current-time-zone now)))) (day (substring time 8 10)) (year (substring time 20 24)) (monthname (substring time 4 7)) |