From: teranisi <teranisi>
Date: Thu, 9 Mar 2000 03:32:22 +0000 (+0000)
Subject: 2000-03-08  Akihiro Arisawa  <ari@atesoft.advantest.co.jp>
X-Git-Tag: emacs-21_0_90-apel-10_2-1~10
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c7261d0cbd66b9cde31138b2b28a50df429517b8;p=elisp%2Fapel.git

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
--- 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.
 
+
 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
--- 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)