Mercurial > hgrepos > hgweb.cgi > yatex
changeset 428:9219b8c610f8 dev
"label"
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Fri, 25 Sep 2015 14:40:08 +0859 |
parents | 8f804c8339bb |
children | 8923ea11c085 |
files | yahtml.el |
diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/yahtml.el Sun Jul 12 10:07:08 2015 +0900 +++ b/yahtml.el Fri Sep 25 14:40:08 2015 +0859 @@ -1,6 +1,6 @@ ;;; yahtml.el --- Yet Another HTML mode -*- coding: sjis -*- ;;; (c) 1994-2015 by HIROSE Yuuji [yuuji(@)yatex.org] -;;; Last modified Wed Feb 11 12:17:03 2015 on firestorm +;;; Last modified Fri Sep 25 14:39:19 2015 on firestorm ;;; $Id$ (defconst yahtml-revision-number "1.78.1" @@ -369,6 +369,7 @@ (yahtml-define-begend-key "b3" "h3" map) (yahtml-define-begend-key "ba" "a" map) (yahtml-define-begend-key "bf" "form" map) + (yahtml-define-begend-key "bl" "label" map) (yahtml-define-begend-key "bs" "select" map) (yahtml-define-begend-key "bv" "div" map) (yahtml-define-begend-key "bS" "span" map) @@ -473,7 +474,7 @@ (append '(("dfn") ("em") ("cite") ("code") ("kbd") ("samp") ("caption") ("strong") ("var") ("b") ("i") ("tt") ("big") ("small") - ("sup") ("sub") ("span") ("abbr")) + ("sup") ("sub") ("span") ("abbr") ("label")) (if (not yahtml-html4-strict) '(("strike") ("s") ("u") ("font"))) yahtml-env-table) @@ -1479,8 +1480,9 @@ (defun yahtml:table () "Add-in function for `table'" (let ((b (read-string-with-history "border=")) - (a (yahtml-read-parameter - "align" nil '(("align" ("right")("center")))))) + (a (if yahtml-html4-strict "" + (yahtml-read-parameter + "align" nil '(("align" ("right")("center"))))))) (if yahtml-html4-strict (yahtml-make-optional-argument "style"