From c7261d0cbd66b9cde31138b2b28a50df429517b8 Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 9 Mar 2000 03:32:22 +0000 Subject: [PATCH] 2000-03-08 Akihiro Arisawa * poe.el (format-time-string): Fix problem when `format' contains "%d" or "%D". --- ChangeLog | 6 ++++++ poe.el | 6 +++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index c4a1364..d0f4d47 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,8 +1,14 @@ +2000-03-08 Akihiro Arisawa + + * poe.el (format-time-string): Fix problem when `format' contains "%d" + or "%D". + 2000-03-04 Daiki Ueno * poe.el (remassq,remassoc,remrassoc): Rewrite. (remrassq): New function. + 2000-03-01 Yuuichi Teranishi * APEL: Version 10.2 released. diff --git a/poe.el b/poe.el index 1429e80..c324dde 100644 --- a/poe.el +++ b/poe.el @@ -1268,13 +1268,13 @@ Not fully compatible especially when invalid format is specified." "") ;; the day of month, zero-padded ((eq cur-char ?d) - (substring time-string 8 10)) + (format "%02d" (string-to-int (substring time-string 8 10)))) ;; a synonym for `%m/%d/%y' ((eq cur-char ?D) - (format "%02d/%s/%s" + (format "%02d/%02d/%s" (cddr (assoc (substring time-string 4 7) format-time-month-list)) - (substring time-string 8 10) + (string-to-int (substring time-string 8 10)) (substring time-string -2))) ;; the day of month, blank-padded ((eq cur-char ?e) -- 1.7.10.4