(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 (file)
--- 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)