diff options
| -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'." | |||
| 173 | '((if (and (not display-time-format) display-time-day-and-date) | 173 | '((if (and (not display-time-format) display-time-day-and-date) |
| 174 | (format-time-string "%a %b %e " now) | 174 | (format-time-string "%a %b %e " now) |
| 175 | "") | 175 | "") |
| 176 | (format-time-string (or display-time-format | 176 | (propertize |
| 177 | (if display-time-24hr-format "%H:%M" "%-I:%M%p")) | 177 | (format-time-string (or display-time-format |
| 178 | now) | 178 | (if display-time-24hr-format "%H:%M" "%-I:%M%p")) |
| 179 | now) | ||
| 180 | 'help-echo (format-time-string "%s %b %e, %Y" now)) | ||
| 179 | load | 181 | load |
| 180 | (if mail | 182 | (if mail |
| 181 | ;; Build the string every time to act on customization. | 183 | ;; Build the string every time to act on customization. |