From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Sun, 4 Apr 2010 18:58:58 +0000 (+0900)
Subject: (www-format-props-to-string): When `:len' is specified,
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=951849d0d0aa8bf2931928eef368ade9a7192bda;p=chise%2Fest.git

(www-format-props-to-string): When `:len' is specified,
treat `:zero-padding' is specified.
---

diff --git a/cwiki-common.el b/cwiki-common.el
index 3b2d80c..a03be66 100644
--- a/cwiki-common.el
+++ b/cwiki-common.el
@@ -689,10 +689,10 @@
     (setq format (plist-get props :format)))
   (concat "%"
 	  (plist-get props :flag)
-	  (if (plist-get props :zero-padding)
-	      "0")
+          ;; (if (plist-get props :zero-padding)
+          ;;     "0")
 	  (if (plist-get props :len)
-	      (format "%d" (plist-get props :len)))
+	      (format "0%d" (plist-get props :len)))
 	  (cond
 	   ((eq format 'decimal) "d")
 	   ((eq format 'hex) "x")