aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1997-08-23 17:01:03 +0000
committerRichard M. Stallman1997-08-23 17:01:03 +0000
commitf8533e9eb78be20c820c729b251db4fe925735a2 (patch)
tree0470675b3df1c8397eabe7c8c2400a8fac253dd1
parent535efc3878749d9e57956f333a24addec343f07b (diff)
downloademacs-f8533e9eb78be20c820c729b251db4fe925735a2.tar.gz
emacs-f8533e9eb78be20c820c729b251db4fe925735a2.zip
(display-time-hook): Minor doc fix.
-rw-r--r--lisp/time.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/time.el b/lisp/time.el
index 6708ef88243..ad94c2c4fab 100644
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -64,7 +64,7 @@ Nil means 1 <= hh <= 12, and an AM/PM suffix is used."
64(defvar display-time-string nil) 64(defvar display-time-string nil)
65 65
66(defcustom display-time-hook nil 66(defcustom display-time-hook nil
67 "* List of functions to be called when the time is updated on the mode line." 67 "*List of functions to be called when the time is updated on the mode line."
68 :type 'hook 68 :type 'hook
69 :group 'display-time) 69 :group 'display-time)
70 70
@@ -208,7 +208,7 @@ would give mode line times like `94/12/30 21:07:48 (UTC)'."
208 (if (> (- (nth 1 (current-time)) (nth 1 start-time)) 208 (if (> (- (nth 1 (current-time)) (nth 1 start-time))
209 20) 209 20)
210 ;; Record that mail file is not accessible. 210 ;; Record that mail file is not accessible.
211 (setq display-time-server-down-time 211 (setq display-time-server-down-time
212 (nth 1 (current-time))) 212 (nth 1 (current-time)))
213 ;; Record that mail file is accessible. 213 ;; Record that mail file is accessible.
214 (setq display-time-server-down-time nil)))))) 214 (setq display-time-server-down-time nil))))))