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