From 0c68e5dec560821e6fa1b208cec50a08d7c3a1c5 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 21 Sep 2001 09:09:04 +0000 Subject: [PATCH] (time-stamp-string-preprocess): Fix bug that caused %#a and %#b to be mis-formatted. --- lisp/ChangeLog | 5 +++++ lisp/time-stamp.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) 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 ""))) -- 2.39.2