Mercurial > emacs
changeset 20583:c2510bf630e4
(display-time-mode): Set the variable display-time-mode.
(display-time-mode): New customize variable to
automatically load the package.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 05 Jan 1998 06:04:35 +0000 |
| parents | 3b630b1cb848 |
| children | 24e567feaf18 |
| files | lisp/time.el |
| diffstat | 1 files changed, 15 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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