From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Thu, 9 Dec 2010 00:58:50 +0000 (+0900)
Subject: (www-edit-display-input-box): Abolished because it is not used.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ff1dae13d988279765f1f77c81c62b71224ed946;p=chise%2Fest.git

(www-edit-display-input-box): Abolished because it is not used.
---

diff --git a/cwiki-edit.el b/cwiki-edit.el
index de55ccc..7b8c506 100644
--- a/cwiki-edit.el
+++ b/cwiki-edit.el
@@ -4,31 +4,31 @@
 
 (require 'cwiki-format)
 
-(defun www-edit-display-input-box (object name value &optional format)
-  (when (stringp format)
-    (setq format (intern format)))
-  (let (prefix)
-    (if (or (eq format 'HEX)
-	    (eq format 'hex))
-	(if (integerp value)
-	    (setq prefix "0x")))
-    (princ (www-format-encode-string
-	    (format "%s \u2190 %s"
-		    name
-		    (or prefix ""))))
-    (princ
-     (format "<input type=\"text\" name=\"%s\"
-size=\"30\" maxlength=\"30\" value=\"%s\">
-<input type=\"submit\" value=\"set\" />
-
-"
-	     (www-format-encode-string
-	      (format "%s" name) 'without-tags)
-             (www-format-apply-value object name
-				     format nil value
-				     nil nil
-				     'without-tags)
-	     ))))
+;; (defun www-edit-display-input-box (object name value &optional format)
+;;   (when (stringp format)
+;;     (setq format (intern format)))
+;;   (let (prefix)
+;;     (if (or (eq format 'HEX)
+;;             (eq format 'hex))
+;;         (if (integerp value)
+;;             (setq prefix "0x")))
+;;     (princ (www-format-encode-string
+;;             (format "%s \u2190 %s"
+;;                     name
+;;                     (or prefix ""))))
+;;     (princ
+;;      (format "<input type=\"text\" name=\"%s\"
+;; size=\"30\" maxlength=\"30\" value=\"%s\">
+;; <input type=\"submit\" value=\"set\" />
+;; 
+;; "
+;;              (www-format-encode-string
+;;               (format "%s" name) 'without-tags)
+;;              (www-format-apply-value object name
+;;                                      format nil value
+;;                                      nil nil
+;;                                      'without-tags)
+;;              ))))
 
 (defun www-edit-display-feature-input-box (char feature-name
 						&optional format value)