2000-03-08 Akihiro Arisawa <ari@atesoft.advantest.co.jp>

       * poe.el (format-time-string): Fix problem when `format' contains "%d"
       or "%D".

diff --git a/ChangeLog b/ChangeLog
index c4a1364..d0f4d47 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,8 +1,14 @@
+2000-03-08  Akihiro Arisawa  <ari@atesoft.advantest.co.jp>
+
+       * poe.el (format-time-string): Fix problem when `format' contains "%d"
+       or "%D".
+
 2000-03-04   Daiki Ueno  <ueno@ueda.info.waseda.ac.jp>
 
        * poe.el (remassq,remassoc,remrassoc): Rewrite.
        (remrassq): New function.
 
+\f
 2000-03-01  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * APEL: Version 10.2 released.

diff --git a/poe.el b/poe.el
index 1429e80..c324dde 100644 (file)
--- 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)