Mercurial > emacs
changeset 12100:ad9b385814fc
(display-time-filter):
Use same instant for both time and time-zone.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 07 Jun 1995 18:35:06 +0000 |
| parents | 66bde18bb391 |
| children | 30adadd79bf9 |
| files | lisp/time.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/time.el Tue Jun 06 22:23:32 1995 +0000 +++ b/lisp/time.el Wed Jun 07 18:35:06 1995 +0000 @@ -117,7 +117,8 @@ 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 @@ (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))