1.1 --- a/help/YATEXHLP.eng	Wed Sep 21 11:08:21 2022 +0900
     1.2 +++ b/help/YATEXHLP.eng	Wed Sep 21 21:34:29 2022 +0900
     1.3 @@ -1765,6 +1765,12 @@
     1.4   \caption{foo image}\label{foo-jpg}
     1.5  \end{wrapfigure}
     1.6  
     1.7 +wraptable
     1.8 +\begin{wraptable}[LINES]{POS}[OVH]{WIDTH} ...TABULAR... \end{wraptable}
     1.9 +Create floating tabular.
    1.10 +Usage is the same as wrapfigure environment except enclosing tabular.
    1.11 +
    1.12 +<refer wrapfigure>
    1.13  
    1.14  abstract
    1.15  \begin{abstract} ... \end{abstract}

     2.1 --- a/help/YATEXHLP.jp	Wed Sep 21 11:08:21 2022 +0900
     2.2 +++ b/help/YATEXHLP.jp	Wed Sep 21 21:34:29 2022 +0900
     2.3 @@ -1771,6 +1771,7 @@
     2.4  OVH(省略可)	画像の張り出しマージン(\wrapoverhang 通常0)
     2.5  WIDTH		回り込みする(画像込みの)幅
     2.6  
     2.7 +
     2.8  【使用例】
     2.9  % プリアンブル
    2.10  \usepackage{wrapfig}
    2.11 @@ -1780,6 +1781,13 @@
    2.12   \caption{ほげほげ}\label{hoge-jpg}
    2.13  \end{wrapfigure}
    2.14  
    2.15 +wraptable
    2.16 +\begin{wraptable}[LINES]{POS}[OVH]{WIDTH} ...表... \end{wraptable}
    2.17 +左右回り込みの表を出力する(table環境と同様のフロート作成)。
    2.18 +内部にtabular系を入れる点以外についてはwrapfigureと同様。
    2.19 +
    2.20 +<refer wrapfigure>
    2.21 +
    2.22  abstract
    2.23  \begin{abstract} ... \end{abstract}
    2.24  抄録(アブストラクト)を出力する。

     3.1 --- a/yatexadd.el	Wed Sep 21 11:08:21 2022 +0900
     3.2 +++ b/yatexadd.el	Wed Sep 21 21:34:29 2022 +0900
     3.3 @@ -1,6 +1,6 @@
     3.4  ;;; yatexadd.el --- YaTeX add-in functions -*- coding: sjis -*-
     3.5  ;;; (c)1991-2019 by HIROSE Yuuji.[yuuji@yatex.org]
     3.6 -;;; Last modified Sat Dec  4 07:11:07 2021 on firestorm
     3.7 +;;; Last modified Wed Sep 21 21:22:37 2022 on firestorm
     3.8  ;;; $Id$
     3.9  
    3.10  ;;; Code:
    3.11 @@ -193,15 +193,22 @@
    3.12  
    3.13  
    3.14  ;; wrapfig.sty
    3.15 -(defun YaTeX:wrapfigure ()
    3.16 -  (YaTeX-help "wrapfigure")
    3.17 -  (concat
    3.18 -   (let ((lines (YaTeX-read-string-or-skip "Wrap Lines(Optional): ")))
    3.19 -     (if (string< "" lines)
    3.20 -	 (concat "[" lines "]")))
    3.21 -   "{" (YaTeX:read-oneof "rlioRLIO" t) "}"
    3.22 -   "{" (YaTeX:read-length "Image width: ") "}"))
    3.23 - 
    3.24 +(defun YaTeX:wrapfigure (&optional kind)
    3.25 +  (setq kind (or kind "figure"))
    3.26 +  (YaTeX-help (concat "wrap" kind))
    3.27 +  (prog1
    3.28 +      (concat
    3.29 +       (let ((lines (YaTeX-read-string-or-skip "Wrap Lines(Optional): ")))
    3.30 +	 (if (string< "" lines)
    3.31 +	     (concat "[" lines "]")))
    3.32 +       "{" (YaTeX:read-oneof "rlioRLIO" t) "}"
    3.33 +       "{" (YaTeX:read-length (concat (capitalize kind) " width: ")) "}")
    3.34 +    (setq YaTeX-section-name "includegraphics")))
    3.35 +
    3.36 +(defun YaTeX:wraptable ()
    3.37 +  (prog1
    3.38 +      (YaTeX:wrapfigure "table")
    3.39 +    (setq YaTeX-env-name "tabular")))
    3.40  
    3.41  ;;;
    3.42  ;;Sample functions for section-type command.