Mercurial > hgrepos > hgweb.cgi > yatex

changeset 136:ab0c019da44d dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 wrap: on
line diff
--- a/yahtml.el	Sat Jun 19 07:44:10 2010 +0900
+++ b/yahtml.el	Thu Jun 24 14:53:55 2010 +0900
@@ -1,6 +1,6 @@
 ;;; -*- Emacs-Lisp -*-
 ;;; (c) 1994-2010 by HIROSE Yuuji [yuuji(@)yatex.org]
-;;; Last modified Sat Jun 19 07:40:38 2010 on firestorm
+;;; Last modified Thu Jun 24 14:42:29 2010 on firestorm
 ;;; $Id$
 
 (defconst yahtml-revision-number "1.74.2"
@@ -417,7 +417,7 @@
     ("DefinitionList" . "dl")
     ("Preformatted" . "pre")
     ("table") ("thead") ("tbody") ("tfoot") ("tr") ("th") ("td")
-    ("address") 
+    ("address") ("button")
     ("h1") ("h2") ("h3") ("h4") ("h5") ("h6")
     ;; ("p") ;This makes indentation screwed up!
     ("style") ("script") ("noscript") ("div") ("object") ("ins") ("del")
@@ -1563,6 +1563,14 @@
   "Add-in function for abbr."
   (yahtml-make-optional-argument "title" (yahtml-read-parameter "title")))
 
+(defun yahtml:button ()
+  (concat
+   (yahtml-make-optional-argument
+    "name" (yahtml-read-parameter "name"))
+   (yahtml-make-optional-argument
+    "type" (yahtml-read-parameter
+	    "type" "button" '(("submit")("reset")("button"))))))
+
 ;;; ---------- Simple tag ----------
 (defun yahtml-insert-tag (region-mode &optional tag)
   "Insert <TAG> </TAG> and put cursor inside of them."

yatex.org