# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1497224514 -32373
# Node ID e9299b77df1fbbbfb3331f7796dd1d87df51902d
# Parent  c996fbcc2e796eb96b8713d4a4ad09a52a6e85b5
Argument error fixed

diff -r c996fbcc2e79 -r e9299b77df1f yahtml.el
--- a/yahtml.el	Sat Jun 03 23:24:44 2017 +0859
+++ b/yahtml.el	Mon Jun 12 08:41:27 2017 +0859
@@ -1,6 +1,6 @@
 ;;; yahtml.el --- Yet Another HTML mode -*- coding: sjis -*-
 ;;; (c) 1994-2017 by HIROSE Yuuji [yuuji(@)yatex.org]
-;;; Last modified Mon May 29 09:10:43 2017 on firestorm
+;;; Last modified Mon Jun 12 08:40:51 2017 on firestorm
 ;;; $Id$
 
 (defconst yahtml-revision-number "1.79.3"
@@ -1480,9 +1480,10 @@
     (setq name (read-string-with-history "name: ")
 	  type (YaTeX-completing-read-or-skip "type (default=text): "
 				yahtml-input-types nil t)
-	  value (YaTeX-read-string-or-skip "value: ")
-	  id (YaTeX-read-string-or-skip "id: "))
-    (if (string-match "text\\|password\\|^$" typxe)
+	  value (YaTeX-read-string-or-skip "value: "))
+    (or (string-match "submit\\|reset" type)
+	(setq id (YaTeX-read-string-or-skip "id: ")))
+    (if (string-match "text\\|password\\|^$" type)
 	(setq size (YaTeX-read-string-or-skip "size: ")
 	      maxlength (YaTeX-read-string-or-skip "maxlength: ")))
     (concat