From 572e07532face80b82d92ddc55effeb029827cca Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 14 Feb 2003 07:02:13 +0000 Subject: [PATCH] (display-time-string-forms): Add face property to mail string. --- lisp/ChangeLog | 5 +++++ lisp/time.el | 1 + 2 files changed, 6 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 89724f7323d..4ddde522943 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-02-14 ARISAWA Akihiro (tiny change) + + * time.el (display-time-string-forms): Add face property to mail + string. + 2003-02-14 Juanma Barranquero * international/mule-cmds.el (view-hello-file): Use `view-file' diff --git a/lisp/time.el b/lisp/time.el index 09e5e6b76bd..c0b6c6ab6bd 100644 --- a/lisp/time.el +++ b/lisp/time.el @@ -171,6 +171,7 @@ depend on `display-time-day-and-date' and `display-time-24hr-format'." ,@(list :background (face-attribute display-time-mail-face :background))) + 'face display-time-mail-face 'help-echo "You have new mail; mouse-2: Read mail" 'local-map (make-mode-line-mouse-map 'mouse-2 read-mail-command))) -- 2.39.2