procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
caused %#a and %#b to be mis-formatted.
This commit is contained in:
Gerd Moellmann 2001-09-21 09:09:04 +00:00
parent a0528984d5
commit 0c68e5dec5
2 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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,

6
lisp/time-stamp.el
View file

@ -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 "")))