diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-11-07 03:51:16 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-11-07 03:51:16 +0000 |
commit | d1fa6b70cdd8e5c81bf6a2c20c519460b6f100df (patch) | |
tree | 1b3679d33f0d8742391c90c27d4a5907f7c882f8 /lisp/time.el | |
parent | 403a56092adab914d15f0215e0373eb1d66c9d18 (diff) | |
download | emacs-d1fa6b70cdd8e5c81bf6a2c20c519460b6f100df.tar.gz |
(display-time-format): New variable.
(display-time-string-forms): Use display-time-format.
Diffstat (limited to 'lisp/time.el')
-rw-r--r-- | lisp/time.el | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/lisp/time.el b/lisp/time.el index 17abe7f4965..9d418d4f8f7 100644 --- a/lisp/time.el +++ b/lisp/time.el @@ -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', |