yatex

changeset 162:af550c574ae1 dev

Add `enctype' attribute completion to 'yahtml:form.
author yuuji@gentei.org
date Mon, 27 Dec 2010 19:17:13 +0900
parents 52e56e399894
children a521e761f82c
files yahtml.el
diffstat 1 files changed, 8 insertions(+), 2 deletions(-) [+]
line diff
     1.1 --- a/yahtml.el	Wed Dec 22 22:15:09 2010 +0900
     1.2 +++ b/yahtml.el	Mon Dec 27 19:17:13 2010 +0900
     1.3 @@ -1,6 +1,6 @@
     1.4  ;;; -*- Emacs-Lisp -*-
     1.5  ;;; (c) 1994-2010 by HIROSE Yuuji [yuuji(@)yatex.org]
     1.6 -;;; Last modified Wed Dec 22 22:14:28 2010 on firestorm
     1.7 +;;; Last modified Sun Dec 26 23:04:53 2010 on firestorm
     1.8  ;;; $Id$
     1.9  
    1.10  (defconst yahtml-revision-number "1.74.2"
    1.11 @@ -1379,8 +1379,14 @@
    1.12  (defun yahtml:form ()
    1.13    "Add-in function `form' input format"
    1.14    (concat
    1.15 -   " " (if yahtml-prefer-upcase-attributes "METHOD" "method") "="
    1.16 +   " " (if yahtml-prefer-upcase-attributes "METHOD" "method") "=\""
    1.17     (completing-read "Method: " '(("POST") ("GET")) nil t)
    1.18 +   "\""
    1.19 +   (yahtml-make-optional-argument
    1.20 +    (if yahtml-prefer-upcase-attributes "ENCTYPE" "enctype")
    1.21 +    (completing-read
    1.22 +     "Enctype: "
    1.23 +     '(("application/x-www-form-urlencoded") ("multipart/form-data"))))
    1.24     " " (if yahtml-prefer-upcase-attributes "ACTION" "action") "=\""
    1.25     (read-string "Action: ") "\""))
    1.26