# HG changeset patch
# User yuuji@gentei.org
# Date 1293445033 -32400
# Node ID af550c574ae1b5d6865a0f6103f06926fa6434b0
# Parent  52e56e3998945c48a0ff4ba365f16c08aad86909
Add `enctype' attribute completion to 'yahtml:form.

diff -r 52e56e399894 -r af550c574ae1 yahtml.el
--- a/yahtml.el	Wed Dec 22 22:15:09 2010 +0900
+++ b/yahtml.el	Mon Dec 27 19:17:13 2010 +0900
@@ -1,6 +1,6 @@
 ;;; -*- Emacs-Lisp -*-
 ;;; (c) 1994-2010 by HIROSE Yuuji [yuuji(@)yatex.org]
-;;; Last modified Wed Dec 22 22:14:28 2010 on firestorm
+;;; Last modified Sun Dec 26 23:04:53 2010 on firestorm
 ;;; $Id$
 
 (defconst yahtml-revision-number "1.74.2"
@@ -1379,8 +1379,14 @@
 (defun yahtml:form ()
   "Add-in function `form' input format"
   (concat
-   " " (if yahtml-prefer-upcase-attributes "METHOD" "method") "="
+   " " (if yahtml-prefer-upcase-attributes "METHOD" "method") "=\""
    (completing-read "Method: " '(("POST") ("GET")) nil t)
+   "\""
+   (yahtml-make-optional-argument
+    (if yahtml-prefer-upcase-attributes "ENCTYPE" "enctype")
+    (completing-read
+     "Enctype: "
+     '(("application/x-www-form-urlencoded") ("multipart/form-data"))))
    " " (if yahtml-prefer-upcase-attributes "ACTION" "action") "=\""
    (read-string "Action: ") "\""))