Mercurial > hgrepos > hgweb.cgi > yatex

changeset 162:af550c574ae1 dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 wrap: on
line diff
--- 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: ") "\""))

yatex.org