yatex

changeset 136:ab0c019da44d dev

find changesets by author, revision, files, or words in the commit message
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."