# HG changeset patch # User Richard M. Stallman # Date 872355663 0 # Node ID 31fbf3a289c13ac71800fadc0cce7fac78bd1e46 # Parent eab8baa19dfa16562592d4183f24cfda8dcbd5f8 (display-time-hook): Minor doc fix. diff -r eab8baa19dfa -r 31fbf3a289c1 lisp/time.el --- a/lisp/time.el Sat Aug 23 06:51:42 1997 +0000 +++ b/lisp/time.el Sat Aug 23 17:01:03 1997 +0000 @@ -64,7 +64,7 @@ (defvar display-time-string nil) (defcustom display-time-hook nil - "* List of functions to be called when the time is updated on the mode line." + "*List of functions to be called when the time is updated on the mode line." :type 'hook :group 'display-time) @@ -208,7 +208,7 @@ (if (> (- (nth 1 (current-time)) (nth 1 start-time)) 20) ;; Record that mail file is not accessible. - (setq display-time-server-down-time + (setq display-time-server-down-time (nth 1 (current-time))) ;; Record that mail file is accessible. (setq display-time-server-down-time nil))))))