yatex
changeset 136:ab0c019da44d dev
Add "button" element.
author | yuuji@gentei.org |
---|---|
date | Thu, 24 Jun 2010 14:53:55 +0900 |
parents | 5c61fe39f1c4 |
children | 7919fbbb33c0 |
files | yahtml.el |
diffstat | 1 files changed, 10 insertions(+), 2 deletions(-) [+] |
line diff
1.1 --- a/yahtml.el Sat Jun 19 07:44:10 2010 +0900 1.2 +++ b/yahtml.el Thu Jun 24 14:53:55 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 Sat Jun 19 07:40:38 2010 on firestorm 1.7 +;;; Last modified Thu Jun 24 14:42:29 2010 on firestorm 1.8 ;;; $Id$ 1.9 1.10 (defconst yahtml-revision-number "1.74.2" 1.11 @@ -417,7 +417,7 @@ 1.12 ("DefinitionList" . "dl") 1.13 ("Preformatted" . "pre") 1.14 ("table") ("thead") ("tbody") ("tfoot") ("tr") ("th") ("td") 1.15 - ("address") 1.16 + ("address") ("button") 1.17 ("h1") ("h2") ("h3") ("h4") ("h5") ("h6") 1.18 ;; ("p") ;This makes indentation screwed up! 1.19 ("style") ("script") ("noscript") ("div") ("object") ("ins") ("del") 1.20 @@ -1563,6 +1563,14 @@ 1.21 "Add-in function for abbr." 1.22 (yahtml-make-optional-argument "title" (yahtml-read-parameter "title"))) 1.23 1.24 +(defun yahtml:button () 1.25 + (concat 1.26 + (yahtml-make-optional-argument 1.27 + "name" (yahtml-read-parameter "name")) 1.28 + (yahtml-make-optional-argument 1.29 + "type" (yahtml-read-parameter 1.30 + "type" "button" '(("submit")("reset")("button")))))) 1.31 + 1.32 ;;; ---------- Simple tag ---------- 1.33 (defun yahtml-insert-tag (region-mode &optional tag) 1.34 "Insert <TAG> </TAG> and put cursor inside of them."