(time-stamp-string-preprocess): Fix bug that

caused %#a and %#b to be mis-formatted.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ee8d56b7e948abfe169196889bc0d9297d474136..e3ce330f8b038cbbb3dd444ecaba38c47538e1d8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-21  Stephen Gildea  <gildea@stop.mail-abuse.org>
+
+       * time-stamp.el (time-stamp-string-preprocess): Fix bug that
+       caused %#a and %#b to be mis-formatted.
+
 2001-09-20  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * info.el (Info-file-list-for-emacs): Add elements for ada-mode,

diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el
index dc86e5ae372adac7899f40a85aa4f40f1cdae324..577faf80715e61ee0a780947e6fd1e0e5185b4fb 100644 (file)
--- a/lisp/time-stamp.el
+++ b/lisp/time-stamp.el
@@ -5,7 +5,7 @@
 
 ;; This file is part of GNU Emacs.
 
-;; Maintainer's Time-stamp: <2001-07-15 12:35:58 pavel>
+;; Maintainer's Time-stamp: <2001-09-20 11:57:46 gildea>
 ;; Maintainer: Stephen Gildea <gildea@stop.mail-abuse.org>
 ;; Keywords: tools
 
@@ -503,7 +503,7 @@ and all time-stamp-format compatibility."
          "%%")
         ((eq cur-char ?a)              ;day of week
          (if change-case
-             (format-time-string "%#A" time)
+             (format-time-string "%#a" time)
            (or alt-form (not (string-equal field-width ""))
                (time-stamp-conv-warn "%a" "%:a"))
            (if (and alt-form (not (string-equal field-width "")))
@@ -517,7 +517,7 @@ and all time-stamp-format compatibility."
            (format-time-string "%#A" time)))
         ((eq cur-char ?b)              ;month name
          (if change-case
-             (format-time-string "%#B" time)
+             (format-time-string "%#b" time)
            (or alt-form (not (string-equal field-width ""))
                (time-stamp-conv-warn "%b" "%:b"))
            (if (and alt-form (not (string-equal field-width "")))