From: Gerd Moellmann Date: Fri, 21 Sep 2001 09:09:04 +0000 (+0000) Subject: (time-stamp-string-preprocess): Fix bug that X-Git-Tag: emacs-pretest-21.0.106~48 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0c68e5dec560821e6fa1b208cec50a08d7c3a1c5;p=emacs.git (time-stamp-string-preprocess): Fix bug that caused %#a and %#b to be mis-formatted. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ee8d56b7e94..e3ce330f8b0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-09-21 Stephen Gildea + + * time-stamp.el (time-stamp-string-preprocess): Fix bug that + caused %#a and %#b to be mis-formatted. + 2001-09-20 Eli Zaretskii * 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 dc86e5ae372..577faf80715 100644 --- 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 ;; 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 "")))