diff options
| author | Kenichi Handa <handa@m17n.org> | 2004-04-16 12:51:06 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2004-04-16 12:51:06 +0000 |
| commit | 6b61353c0a0320ee15bb6488149735381fed62ec (patch) | |
| tree | e69adba60e504a5a37beb556ad70084de88a7aab /lisp/time.el | |
| parent | dc6a28319312fe81f7a1015e363174022313f0bd (diff) | |
| download | emacs-6b61353c0a0320ee15bb6488149735381fed62ec.tar.gz | |
Sync to HEAD
Diffstat (limited to 'lisp/time.el')
| -rw-r--r-- | lisp/time.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/time.el b/lisp/time.el index 0f7d8d97d90..ebc883b3d8e 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 "%a %b %e, %Y" now)) load (if mail ;; Build the string every time to act on customization. @@ -391,4 +393,5 @@ This runs the normal hook `display-time-hook' after each update." (provide 'time) +;;; arch-tag: b9c1623f-b5cb-48e4-b650-482a4d23c5a6 ;;; time.el ends here |