From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 4 May 1997 16:33:19 +0000 (+0000)
Subject: (display-time-string-forms): Test display-time-day-and-date
X-Git-Tag: emacs-20.1~2301
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=121211d44055e1f0cd50c21ec0bae2e7085643a2;p=emacs.git

(display-time-string-forms): Test display-time-day-and-date
and display-time-24hr-format here.
(display-time-format): Default value is now nil.
---

diff --git a/lisp/time.el b/lisp/time.el
index 8f798fa08a2..0da580afd86 100644
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -100,17 +100,19 @@ This runs the normal hook `display-time-hook' after each update."
 		   'display-time-event-handler))))
 
 
-(defvar display-time-format
-  (concat 
-   (if display-time-day-and-date
-       "%a %b %e" "")
-   (if display-time-24hr-format "%H:%m" "%-I:%M%p"))
+(defvar display-time-format nil
   "*A string specifying the format for displaying the time in the mode line.
 See the function `format-time-string' for an explanation of
-how to write this string.")
+how to write this string.  If this is nil, the defaults
+depend on `display-time-day-and-date' and `display-time-24hr-format'.")
 
 (defvar display-time-string-forms
-  '((format-time-string display-time-format now)
+  '((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)
     load
     (if mail " Mail" ""))
   "*A list of expressions governing display of the time in the mode line.