1.1 --- a/yahtml.el	Tue Feb 21 15:46:12 2017 +0859
     1.2 +++ b/yahtml.el	Tue May 16 08:30:04 2017 +0859
     1.3 @@ -1,9 +1,9 @@
     1.4  ;;; yahtml.el --- Yet Another HTML mode -*- coding: sjis -*-
     1.5  ;;; (c) 1994-2017 by HIROSE Yuuji [yuuji(@)yatex.org]
     1.6 -;;; Last modified Thu Jan  5 17:45:36 2017 on firestorm
     1.7 +;;; Last modified Tue May 16 08:13:52 2017 on firestorm
     1.8  ;;; $Id$
     1.9  
    1.10 -(defconst yahtml-revision-number "1.79.2"
    1.11 +(defconst yahtml-revision-number "1.79.3"
    1.12    "Revision number of running yahtml.el")
    1.13  
    1.14  ;;; Commentary:
    1.15 @@ -444,7 +444,7 @@
    1.16      ("style") ("script") ("noscript") ("div") ("object") ("ins") ("del")
    1.17      ("option") ("datalist")
    1.18      ;;HTML5
    1.19 -    ("video") ("audio")
    1.20 +    ("video") ("audio") ("figure")
    1.21      ))
    1.22  
    1.23  (if yahtml-html4-strict
    1.24 @@ -476,7 +476,10 @@
    1.25    (append
    1.26     '(("dfn") ("em") ("cite") ("code") ("kbd") ("samp") ("caption")
    1.27       ("strong") ("var") ("b") ("i") ("tt") ("big") ("small")
    1.28 -     ("sup") ("sub") ("span") ("abbr") ("label"))
    1.29 +     ("sup") ("sub") ("span") ("abbr") ("label")
    1.30 +     ;; HTML5
    1.31 +     ("figcaption")
    1.32 +     )
    1.33     (if (not yahtml-html4-strict)
    1.34         '(("strike") ("s") ("u") ("font")))
    1.35     yahtml-env-table)
    1.36 @@ -1447,7 +1450,7 @@
    1.37  
    1.38  (defun yahtml:ol ()
    1.39    "Add-in function for <ol>"
    1.40 -  (setq yahtml-last-single-cmd "li")
    1.41 +  (setq yahtml-last-typeface-cmd "li")
    1.42    (let ((start (YaTeX-read-string-or-skip "start="))
    1.43  	(type (YaTeX-completing-read-or-skip
    1.44  	       "type=" '(("1") ("a") ("A") ("i") ("I")) nil t)))
    1.45 @@ -1455,11 +1458,11 @@
    1.46       (yahtml-make-optional-argument "start" start)
    1.47       (yahtml-make-optional-argument "type" type))))
    1.48  (defun yahtml:ul ()
    1.49 -  (setq yahtml-last-single-cmd "li") "")
    1.50 +  (setq yahtml-last-typeface-cmd "li") "")
    1.51  (defun yahtml:dl ()
    1.52 -  (setq yahtml-last-single-cmd "dt") "")
    1.53 +  (setq yahtml-last-typeface-cmd "dt") "")
    1.54  (defun yahtml:dt ()
    1.55 -  (setq yahtml-last-single-cmd "dd") "")
    1.56 +  (setq yahtml-last-typeface-cmd "dd") "")
    1.57  
    1.58  (defun yahtml:p ()
    1.59    (if yahtml-html4-strict nil
    1.60 @@ -1569,8 +1572,7 @@
    1.61  
    1.62  (defun yahtml:tr ()
    1.63    "Add-in function for `tr'"
    1.64 -  (setq ;yahtml-last-begend "td"		;; which do you prefer?
    1.65 -	yahtml-last-typeface-cmd "td")
    1.66 +  (setq yahtml-last-typeface-cmd "td")
    1.67    "")
    1.68  
    1.69  (defun yahtml:link ()