Mercurial > emacs

changeset 54434:de3c77f25914

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(display-time-string-forms): Add help-echo with date on time.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 19 Mar 2004 02:34:39 +0000
parents a5520bf073bb
children bcc27a58f6ac
files lisp/time.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/time.el	Fri Mar 19 02:33:17 2004 +0000
+++ b/lisp/time.el	Fri Mar 19 02:34:39 2004 +0000
@@ -173,9 +173,11 @@
   '((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.