Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
7fd5b62d
Commit
7fd5b62d
authored
Aug 29, 1996
by
Richard M. Stallman
Browse files
(display-time): Call display-time-mode.
(display-time-mode): Take arg or toggle, as a minor mode.
parent
73ba610a
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
40 additions
and
18 deletions
+40
-18
lisp/time.el
lisp/time.el
+40
-18
No files found.
lisp/time.el
View file @
7fd5b62d
...
...
@@ -57,27 +57,49 @@ If that file system seems to be up, the value is nil.")
;;;###autoload
(defun display-time ()
"
Display
current
time,
load
level,
and
mail
flag
in
mode
line
of
each
buffer
.
U
pdates
automatically
every
minute.
"
Enable
display
of
time,
load
level,
and
mail
flag
in
mode
line
s
.
This
display
u
pdates
automatically
every
minute.
If
`
display-time-day-and-date
'
is
non-nil,
the
current
day
and
date
are
displayed
as
well.
After
each
update,
`
display-time-hook
'
is
run
with
`
run-hooks
'
.
"
This
runs
the
normal
hook
`
display-time-hook
'
after
each
update
.
"
(interactive)
(setq display-time-string "")
(or global-mode-string (setq global-mode-string '("")))
(or (memq 'display-time-string global-mode-string)
(setq global-mode-string
(append global-mode-string '(display-time-string))))
;; Setup the time timer.
(and display-time-timer (cancel-timer display-time-timer))
(setq display-time-timer
;; Start timer at the beginning of the next minute.
(run-at-time (apply 'encode-time 60 (cdr (decode-time)))
display-time-interval 'display-time-event-handler))
;; Make the time appear right away.
(display-time-update)
;; When you get new mail, clear "
Mail
" from the mode line.
(add-hook 'rmail-after-get-new-mail-hook 'display-time-event-handler))
(display-time-mode 1))
;;;###autoload
(defun display-time-mode (arg)
"
Toggle
display
of
time,
load
level,
and
mail
flag
in
mode
lines.
With
a
numeric
arg,
enable
this
display
if
arg
is
positive.
When
this
display
is
enabled,
it
updates
automatically
every
minute.
If
`
display-time-day-and-date
'
is
non-nil,
the
current
day
and
date
are
displayed
as
well.
This
runs
the
normal
hook
`
display-time-hook
'
after
each
update.
"
(interactive "
P
")
(let ((on (if (null arg)
(not display-time-timer)
(> (prefix-numeric-value arg) 0))))
(and display-time-timer (cancel-timer display-time-timer))
(setq display-time-timer nil)
(setq display-time-string "")
(or global-mode-string (setq global-mode-string '("")))
(if on
(progn
(or (memq 'display-time-string global-mode-string)
(setq global-mode-string
(append global-mode-string '(display-time-string))))
;; Set up the time timer.
(setq display-time-timer
;; Start timer at the beginning of the next minute.
(run-at-time (apply 'encode-time 60 (cdr (decode-time)))
display-time-interval 'display-time-event-handler))
;; Make the time appear right away.
(display-time-update)
;; When you get new mail, clear "
Mail
" from the mode line.
(add-hook 'rmail-after-get-new-mail-hook
'display-time-event-handler))
(remove-hook 'rmail-after-get-new-mail-hook
'display-time-event-handler))))
(defvar display-time-string-forms
'((if display-time-day-and-date
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment