diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-03-19 02:34:39 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-03-19 02:34:39 +0000 |
| commit | 85d699bde9e597b9fa8fc59f7e6469f39419680c (patch) | |
| tree | 5d81b828693b838b6ec8f54ed2c542b750c4990a /lisp/time.el | |
| parent | f0f5cf2b1fc60caefdd8eb414e16d714c0493803 (diff) | |
| download | emacs-85d699bde9e597b9fa8fc59f7e6469f39419680c.tar.gz | |
(display-time-string-forms): Add help-echo with date on time.
Diffstat (limited to 'lisp/time.el')
| -rw-r--r-- | lisp/time.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/time.el b/lisp/time.el index ba1b66f8a72..a4c5f97ac98 100644 --- a/lisp/time.el +++ b/lisp/time.el @@ -173,9 +173,11 @@ depend on `display-time-day-and-date' and `display-time-24hr-format'." '((if (and (not display-time-format) display-time-day-and-date) (format-time-string "%a %b %e " now) "") - (format-time-string (or display-time-format - (if display-time-24hr-format "%H:%M" "%-I:%M%p")) - now) + (propertize + (format-time-string (or display-time-format + (if display-time-24hr-format "%H:%M" "%-I:%M%p")) + now) + 'help-echo (format-time-string "%s %b %e, %Y" now)) load (if mail ;; Build the string every time to act on customization. |