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 diff
1.1 --- a/yahtml.el Sun Jul 12 10:07:08 2015 +0900 1.2 +++ b/yahtml.el Fri Sep 25 14:40:08 2015 +0859 1.3 @@ -1,6 +1,6 @@ 1.4 ;;; yahtml.el --- Yet Another HTML mode -*- coding: sjis -*- 1.5 ;;; (c) 1994-2015 by HIROSE Yuuji [yuuji(@)yatex.org] 1.6 -;;; Last modified Wed Feb 11 12:17:03 2015 on firestorm 1.7 +;;; Last modified Fri Sep 25 14:39:19 2015 on firestorm 1.8 ;;; $Id$ 1.9 1.10 (defconst yahtml-revision-number "1.78.1" 1.11 @@ -369,6 +369,7 @@ 1.12 (yahtml-define-begend-key "b3" "h3" map) 1.13 (yahtml-define-begend-key "ba" "a" map) 1.14 (yahtml-define-begend-key "bf" "form" map) 1.15 + (yahtml-define-begend-key "bl" "label" map) 1.16 (yahtml-define-begend-key "bs" "select" map) 1.17 (yahtml-define-begend-key "bv" "div" map) 1.18 (yahtml-define-begend-key "bS" "span" map) 1.19 @@ -473,7 +474,7 @@ 1.20 (append 1.21 '(("dfn") ("em") ("cite") ("code") ("kbd") ("samp") ("caption") 1.22 ("strong") ("var") ("b") ("i") ("tt") ("big") ("small") 1.23 - ("sup") ("sub") ("span") ("abbr")) 1.24 + ("sup") ("sub") ("span") ("abbr") ("label")) 1.25 (if (not yahtml-html4-strict) 1.26 '(("strike") ("s") ("u") ("font"))) 1.27 yahtml-env-table) 1.28 @@ -1479,8 +1480,9 @@ 1.29 (defun yahtml:table () 1.30 "Add-in function for `table'" 1.31 (let ((b (read-string-with-history "border=")) 1.32 - (a (yahtml-read-parameter 1.33 - "align" nil '(("align" ("right")("center")))))) 1.34 + (a (if yahtml-html4-strict "" 1.35 + (yahtml-read-parameter 1.36 + "align" nil '(("align" ("right")("center"))))))) 1.37 (if yahtml-html4-strict 1.38 (yahtml-make-optional-argument 1.39 "style"