1.1 --- a/yatexadd.el	Wed May 30 13:54:46 2018 +0900
     1.2 +++ b/yatexadd.el	Mon Oct 22 11:44:45 2018 +0900
     1.3 @@ -1,6 +1,6 @@
     1.4  ;;; yatexadd.el --- YaTeX add-in functions -*- coding: sjis -*-
     1.5  ;;; (c)1991-2018 by HIROSE Yuuji.[yuuji@yatex.org]
     1.6 -;;; Last modified Wed May 30 13:35:42 2018 on firestorm
     1.7 +;;; Last modified Mon Oct 22 11:43:47 2018 on firestorm
     1.8  ;;; $Id$
     1.9  
    1.10  ;;; Code:
    1.11 @@ -2133,6 +2133,15 @@
    1.12    (setq YaTeX-section-name "label")
    1.13    nil)
    1.14  
    1.15 +(defun YaTeX:subfigure ()
    1.16 +  (let ((subcap (YaTeX-read-string-or-skip "Sub-caption: ")))
    1.17 +    (if (string= "" subcap) ""
    1.18 +      (concat "[" subcap "]"))))
    1.19 +
    1.20 +(defun YaTeX::subfigure ()
    1.21 +  (setq YaTeX-section-name "includegraphics")
    1.22 +  nil)
    1.23 +
    1.24  
    1.25  (defvar YaTeX::usepackage-alist-default
    1.26    '(("version") ("plext") ("url") ("fancybox") ("pifont") ("longtable")
    1.27 @@ -2140,7 +2149,8 @@
    1.28      ("amsmath") ("amssymb") ("xymtex") ("chemist")
    1.29      ("a4j") ("array") ("epsf") ("color") ("xcolor") ("epsfig") ("floatfig")
    1.30      ("landscape") ("path") ("supertabular") ("twocolumn")
    1.31 -    ("latexsym") ("times") ("makeidx") ("geometry") ("type1cm"))
    1.32 +    ("latexsym") ("times") ("makeidx") ("geometry") ("type1cm")
    1.33 +    ("subfigure"))
    1.34    "Default completion table for arguments of \\usepackage")
    1.35  
    1.36  (defvar YaTeX::usepackage-alist-private nil