diff --git a/yahtml.el b/yahtml.el
index 7d918b8..53ab59f 100644
--- a/yahtml.el
+++ b/yahtml.el
@@ -1,6 +1,6 @@
;;; -*- Emacs-Lisp -*-
;;; (c) 1994-2012 by HIROSE Yuuji [yuuji(@)yatex.org]
-;;; Last modified Thu Jan 12 11:40:53 2012 on firestorm
+;;; Last modified Thu Feb 9 08:36:16 2012 on firestorm
;;; $Id$
(defconst yahtml-revision-number "1.75"
@@ -1401,8 +1401,8 @@
(defun yahtml:ol ()
"Add-in function for
"
(setq yahtml-last-single-cmd "li")
- (let ((start (read-string "start="))
- (type (completing-read
+ (let ((start (YaTeX-read-string-or-skip "start="))
+ (type (YaTeX-completing-read-or-skip
"type=" '(("1") ("a") ("A") ("i") ("I")) nil t)))
(concat
(yahtml-make-optional-argument "start" start)
@@ -1428,12 +1428,12 @@
(let ((size "") name type value checked (maxlength "")
(l yahtml-prefer-upcase-attributes))
(setq name (read-string "name: ")
- type (completing-read "type (default=text): "
+ type (YaTeX-completing-read-or-skip "type (default=text): "
yahtml-input-types nil t)
- value (read-string "value: "))
+ value (YaTeX-read-string-or-skip "value: "))
(if (string-match "text\\|password\\|^$" type)
- (setq size (read-string "size: ")
- maxlength (read-string "maxlength: ")))
+ (setq size (YaTeX-read-string-or-skip "size: ")
+ maxlength (YaTeX-read-string-or-skip "maxlength: ")))
(concat
(if l "NAME" "name") "=\"" name "\""
(yahtml-make-optional-argument "type" type)