(display-time-string-forms): Add help-echo with date on time.

e93b2f39 · Stefan Monnier · e3748ba2 · e93b2f39
Commit e93b2f39 authored Mar 19, 2004 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 3 deletions

lisp/time.el lisp/time.el +5 -3

No files found.
--- 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.