# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1001063320 0
# Node ID 76ff4ba003e8920bed026888effd524f190c0029
# Parent  ad583999e1b4a2eb4912f313c0b3892469a62a18
(time-stamp-string-preprocess): Fix bug that
caused %#a and %#b to be mis-formatted.

diff -r ad583999e1b4 -r 76ff4ba003e8 lisp/time-stamp.el
--- a/lisp/time-stamp.el	Fri Sep 21 07:45:37 2001 +0000
+++ b/lisp/time-stamp.el	Fri Sep 21 09:08:40 2001 +0000
@@ -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 @@
 	  "%%")
 	 ((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 @@
 	    (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 "")))