mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

(display-time-format): New variable.

Browse Source 
(display-time-string-forms): Use display-time-format.
This commit is contained in:
Richard M. Stallman 1996-11-07 03:51:16 +00:00
parent 81b8f0e64b
commit 3bfbd249c8
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/time.el
View File

@ -100,17 +100,23 @@ This runs the normal hook `display-time-hook' after each update."
'display-time-event-handler))))
(defvar display-time-format
(concat
(if display-time-day-and-date
"%a %b %e" "")
(if display-time-24hr-format "%H:%m" "%-I:%M%p"))
"*A string specifying the format for displaying the time in the mode line.
See the function `format-time-string' for an explanation of
how to write this string.")
(defvar display-time-string-forms
'((if display-time-day-and-date
(format "%s %s %s " dayname monthname day)
"")
(format "%s:%s%s"
(if display-time-24hr-format 24-hours 12-hours)
minutes
(if display-time-24hr-format "" am-pm))
'((format-time-string display-time-format now)
load
(if mail " Mail" ""))
"*A list of expressions governing display of the time in the mode line.
For most purposes, you can control the time format using `display-time-format'
which is a more standard interface.
This expression is a list of expressions that can involve the keywords
`load', `day', `month', and `year', `12-hours', `24-hours', `minutes',
`seconds', all numbers in string form, and `monthname', `dayname', `am-pm',