# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 847338676 0
# Node ID 08d4cb2b9754ffb49a7d6b6c5f96e41a0cc4b389
# Parent  5e1ecf96072ff69551020ec5199b391e051d1bde
(display-time-format): New variable.
(display-time-string-forms): Use display-time-format.

diff -r 5e1ecf96072f -r 08d4cb2b9754 lisp/time.el
--- a/lisp/time.el	Thu Nov 07 03:17:16 1996 +0000
+++ b/lisp/time.el	Thu Nov 07 03:51:16 1996 +0000
@@ -100,17 +100,23 @@
 		   '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"))
+  "*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.")
+
 (defvar display-time-string-forms
-  '((if display-time-day-and-date
-        (format "%s %s %s " dayname monthname day)
-      "")
-    (format "%s:%s%s"
-            (if display-time-24hr-format 24-hours 12-hours)
-            minutes
-            (if display-time-24hr-format "" am-pm))
+  '((format-time-string display-time-format now)
     load
     (if mail " Mail" ""))
   "*A list of expressions governing display of the time in the mode line.
+For most purposes, you can control the time format using `display-time-format'
+which is a more standard interface.
+
 This expression is a list of expressions that can involve the keywords
 `load', `day', `month', and `year', `12-hours', `24-hours', `minutes',
 `seconds', all numbers in string form, and `monthname', `dayname', `am-pm',