# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 883980275 0
# Node ID c2510bf630e43b6de4b7b5be3819e491979b0bb4
# Parent  3b630b1cb8488ec2baff475acfcde9a9c4c000d2
(display-time-mode): Set the variable display-time-mode.

(display-time-mode): New customize variable to
automatically load the package.

diff -r 3b630b1cb848 -r c2510bf630e4 lisp/time.el
--- a/lisp/time.el	Sun Jan 04 20:41:17 1998 +0000
+++ b/lisp/time.el	Mon Jan 05 06:04:35 1998 +0000
@@ -34,6 +34,17 @@
   :group 'mail)
 
 
+(defcustom display-time-mode nil
+  "Toggle display of time, load level, and mail flag in mode lines.
+You must modify via \\[customize] for this variable to have an effect."
+  :set (lambda (symbol value)
+	 (display-time-mode (or value 0)))
+  :initialize 'custom-initialize-default
+  :type 'boolean
+  :group 'display-time
+  :require 'time)
+
+
 (defcustom display-time-mail-file nil
   "*File name of mail inbox file, for indicating existence of new mail.
 Non-nil and not a string means don't check for mail.  nil means use
@@ -95,6 +106,7 @@
   (let ((on (if (null arg)
 		(not display-time-timer)
 	      (> (prefix-numeric-value arg) 0))))
+    (setq display-time-mode on)
     (and display-time-timer (cancel-timer display-time-timer))
     (setq display-time-timer nil)
     (setq display-time-string "")
@@ -241,6 +253,9 @@
   (and (file-exists-p file)
        (< 0 (nth 7 (file-attributes (file-chase-links file))))))
 
+(if display-time-mode
+    (display-time-mode t))
+
 (provide 'time)
 
 ;;; time.el ends here