diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-09-21 09:09:04 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-09-21 09:09:04 +0000 |
| commit | 0c68e5dec560821e6fa1b208cec50a08d7c3a1c5 (patch) | |
| tree | aa10aa75fccb5f02887425ac61b53d903fbbd9ec | |
| parent | a0528984d5c1e1da4d48d8433fe382e2e29a5b09 (diff) | |
| download | emacs-0c68e5dec560821e6fa1b208cec50a08d7c3a1c5.tar.gz | |
(time-stamp-string-preprocess): Fix bug that
caused %#a and %#b to be mis-formatted.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 <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 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 <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 ""))) |