yatex

changeset 486:4930679bf226

Merged for yatex-1.80
author HIROSE Yuuji <yuuji@gentei.org>
date Sun, 10 Sep 2017 21:40:11 +0859
parents 59459111e042 6fd30c828f96
children 129b9f9b6d34
files comment.el
diffstat 25 files changed, 1340 insertions(+), 1098 deletions(-) [+]
line diff
     1.1 --- a/.hgignore	Thu Jan 05 23:20:34 2017 +0900
     1.2 +++ b/.hgignore	Sun Sep 10 21:40:11 2017 +0859
     1.3 @@ -5,6 +5,7 @@
     1.4  .cvsignore
     1.5  [._]win*
     1.6  __emacs
     1.7 +*.gz
     1.8  *.swp
     1.9  trashbox
    1.10  *.aux
     2.1 --- a/.hgtags	Thu Jan 05 23:20:34 2017 +0900
     2.2 +++ b/.hgtags	Sun Sep 10 21:40:11 2017 +0859
     2.3 @@ -11,3 +11,4 @@
     2.4  0000000000000000000000000000000000000000 yatex-1.77
     2.5  d0c09133ced7fffa1eb5fa4d114fb12580f812ff yatex-1.77
     2.6  d69fd7b1ac4d06d7f8633e892dc24eab2bfc23db yatex-1.78
     2.7 +a3ba09c1e8e907578f679fceb99264ce2d4eb777 yatex-1.79
     3.1 --- a/00readme	Thu Jan 05 23:20:34 2017 +0900
     3.2 +++ b/00readme	Sun Sep 10 21:40:11 2017 +0859
     3.3 @@ -1,5 +1,5 @@
     3.4  ・Mercurialリポジトリでも公開しています(1.74以降)。
     3.5 -  % hg clone http://www.yatex.org/hgrepos/yatex yatex
     3.6 +  % hg clone https://www.yatex.org/hgrepos/yatex yatex
     3.7    でコピーし、その後は yatex/ ディレクトリ内で hg pull -u して下さい。
     3.8  
     3.9  ・yatex-1.69 よりバイトコンパイルしないのをデフォルトとしました。
    3.10 @@ -19,5 +19,5 @@
    3.11    鳥」、Hidemaruへの移植版である「飛鳥」、xyzzyへの移植版である「花鳥」
    3.12    に関する情報交換のためのメイリングリスト「fj野鳥の会」に是非御参加ください。
    3.13    詳しくは docs/qanda ファイル、または
    3.14 -  http://www.yatex.org/
    3.15 +  https://www.yatex.org/
    3.16    を御覧ください。
     4.1 --- a/comment.el	Thu Jan 05 23:20:34 2017 +0900
     4.2 +++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
     4.3 @@ -1,86 +0,0 @@
     4.4 -;;; -*- Emacs-Lisp -*-
     4.5 -;;; comment/uncomment region for emacs.
     4.6 -;;; comment.el rev.0.1
     4.7 -;;; (c) 1992, 2002 by HIROSE Yuuji.(yuuji@yatex.org)
     4.8 -;;; Last modified Mon Nov 25 18:33:23 2002 on firestorm
     4.9 -
    4.10 -;;; Rename `comment-region' to `comment-out-region' for standard
    4.11 -;;; Emacs-19 function.
    4.12 -
    4.13 -(provide 'comment)
    4.14 -
    4.15 -(defvar current-comment-prefix "> " "*Default prefix string")
    4.16 -
    4.17 -(defun cite-region (beg end)
    4.18 -  (save-excursion
    4.19 -    (goto-char (max beg end))
    4.20 -    (if (bolp)
    4.21 -	(forward-line -1))
    4.22 -    (if (string= string "") (setq string current-comment-prefix)
    4.23 -      (setq current-comment-prefix string))
    4.24 -    (save-restriction 
    4.25 -      (narrow-to-region (min beg end) (point))
    4.26 -      (goto-char (point-min))
    4.27 -      (message "%s" string)
    4.28 -      (while (re-search-forward "^" nil t)
    4.29 -	(replace-match string))
    4.30 -      ))
    4.31 -)
    4.32 -
    4.33 -(defun comment-out-region (string &optional beg end once)
    4.34 -  "Inserts STRING at the beginning of every line in the region specified
    4.35 -BEG and END.
    4.36 -Called interactively, STRING defaults to comment-start (or '> ' if
    4.37 -none is defined) unless a prefix argument is given, in which case it
    4.38 -prompts for a string.  Optional second argument ONCE is only for
    4.39 -compatibility for uncomment-region.  It has no means now."
    4.40 -  (interactive
    4.41 -   (list (if current-prefix-arg
    4.42 -	     (read-string 
    4.43 -	      (concat "String to insert"
    4.44 -		      (format "(default \"%s\")" current-comment-prefix
    4.45 -			      " ")
    4.46 -		      ": "))
    4.47 -	   current-comment-prefix)))
    4.48 -  (if (not (stringp string)) (setq string current-comment-prefix))
    4.49 -  (cite-region (or beg (region-beginning)) (or end (region-end)))
    4.50 -)
    4.51 -
    4.52 -
    4.53 -(defun uncomment-out-region (string &optional beg end once)
    4.54 -  "Deletes STRING from the beginning of every line in the region.
    4.55 -Called interactively, STRING defaults to comment-start (or '> ' if
    4.56 -none is defined) unless a prefix argument is given, in which case it
    4.57 -prompts for a string.  Optional second argument ONCE restricts
    4.58 -deletion to first occurance of STRING on each line."
    4.59 -  (interactive
    4.60 -   (list (if current-prefix-arg
    4.61 -	     (read-string 
    4.62 -	      (concat "String to delete"
    4.63 -		      (format "(default \"%s\")" current-comment-prefix
    4.64 -			      " ")
    4.65 -		      ": "))
    4.66 -	   current-comment-prefix)))
    4.67 -  (if (not (stringp string)) (setq string current-comment-prefix))
    4.68 -  (save-excursion
    4.69 -    (save-restriction 
    4.70 -      (narrow-to-region (or beg (region-beginning)) (or end (region-end)))
    4.71 -      (goto-char (point-min))
    4.72 -      (while (re-search-forward (concat "^" string) nil t)
    4.73 -	(replace-match "")
    4.74 -	(if once (end-of-line)))
    4.75 -      ))
    4.76 -)
    4.77 -
    4.78 -(defun cite-file (filename)
    4.79 -  "insert the file with citation string."
    4.80 -  (interactive "FCite-file: ")
    4.81 -  (let*
    4.82 -      ((string
    4.83 -	(read-string
    4.84 -	 (format "Citation string (default \"%s\"): " current-comment-prefix)
    4.85 -	 ))
    4.86 -       (ins-tail (car (cdr (insert-file-contents filename)))))
    4.87 -    (save-excursion
    4.88 -      (cite-region (point) (+ (point) ins-tail))))
    4.89 -)
     5.1 --- a/docs/htmlqa	Thu Jan 05 23:20:34 2017 +0900
     5.2 +++ b/docs/htmlqa	Sun Sep 10 21:40:11 2017 +0859
     5.3 @@ -52,6 +52,9 @@
     5.4  ・<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=x-sjis">を
     5.5    認識して漢字コードを設定して欲しいなー。
     5.6  	
     5.7 +	HTML5 で書くのであればこの構文を使うのはやめ、文字集合はUTF-8に
     5.8 +	絞り <meta charset="utf--8"> と記しましょう。
     5.9 +	
    5.10  	文書の中にファイルのエンコード法を書いてもそもそもそのMETAなんちゃ
    5.11  	らを読めない可能性があるので charset をMETAで指定するのは本当に
    5.12  	期待した通りには機能しません。たとえば、多国語文書を書く必要が出
    5.13 @@ -185,5 +188,4 @@
    5.14  mode: indented-text
    5.15  fill-column: 72
    5.16  fill-prefix: "	"
    5.17 -buffer-file-coding-system: shift_jis-dos
    5.18  End:
     6.1 --- a/docs/qanda	Thu Jan 05 23:20:34 2017 +0900
     6.2 +++ b/docs/qanda	Sun Sep 10 21:40:11 2017 +0859
     6.3 @@ -672,7 +672,7 @@
     6.4  	に更新を行なって下さい。Mercurialをインストール後、以下のように
     6.5  	して開発版に追随します。
     6.6  	
     6.7 -		hg clone http://www.yatex.org:/hgrepos/yatex
     6.8 +		hg clone https://www.yatex.org:/hgrepos/yatex
     6.9  	
    6.10  	で、リポジトリ全体を取得します。開発ブランチは dev なので
    6.11  	
    6.12 @@ -709,5 +709,4 @@
    6.13  mode: indented-text
    6.14  fill-column: 72
    6.15  fill-prefix: "	"
    6.16 -buffer-file-coding-system: shift_jis-dos
    6.17  End:
     7.1 --- a/docs/qanda.eng	Thu Jan 05 23:20:34 2017 +0900
     7.2 +++ b/docs/qanda.eng	Sun Sep 10 21:40:11 2017 +0859
     7.3 @@ -381,7 +381,7 @@
     7.4  	If you want to catch up to latest version, using yatex-current
     7.5  	is inefficient.  Use yatex's mercurial repository instead.
     7.6  	
     7.7 -		hg clone http://www.yatex.org:/hgrepos/yatex
     7.8 +		hg clone https://www.yatex.org:/hgrepos/yatex
     7.9  		cd yatex
    7.10  		hg up -C dev
    7.11  	
     8.1 --- a/docs/yatexe	Thu Jan 05 23:20:34 2017 +0900
     8.2 +++ b/docs/yatexe	Sun Sep 10 21:40:11 2017 +0859
     8.3 @@ -65,9 +65,9 @@
     8.4     * Semiautomatic replacing of `\includeonly'
     8.5     * Jumping to error line(`C-c '')
     8.6     * Completing-read of LaTeX commands such as `\begin{}', `\section' etc.
     8.7 -     (`C-c b', `C-c s', `C-c l', `C-c m')
     8.8 +             (`C-c b', `C-c s', `C-c l', `C-c m')
     8.9     * Enclosing text into LaTeX environments or commands (ABOVEKEYSTROKES
    8.10 -     after region setting)
    8.11 +           after region setting)
    8.12     * Displaying the structure of text at entering sectioning commands
    8.13     * Lump shifting of sectioning commands (*Note view-sectioning::)
    8.14     * Learning unknown/new LaTeX commands for the next completion
    8.15 @@ -76,15 +76,16 @@
    8.16     * Quick changing or deleting of LaTeX commands(`C-c c', `C-c k')
    8.17     * Jumping from and to inter-file, begin<->end, ref<->label(`C-c g')
    8.18     * Blanket commenting out or uncommenting (`C-c >', `C-c <', `C-c ,',
    8.19 -     `C-c .')
    8.20 +             `C-c .')
    8.21     * Easy input of accent mark, math-mode's commands and Greek letters
    8.22 -     (`C-c a', `;', `:')
    8.23 +             (`C-c a', `;', `:')
    8.24     * Online help for the popular LaTeX commands (`C-c ?', `C-c /')
    8.25     * Document files hierarchy browser (`C-c d')
    8.26     * Adding automatically \usepackage corresponding to inputting LaTeX
    8.27 -     macro with completion
    8.28 +           macro with completion
    8.29     * Allow you to forget creating \label{}s, \ref{} or \cite{} completion
    8.30 -     automatically generate labels.
    8.31 +           automatically generate labels.
    8.32 +   * \includegraphics by Drag&Drop of image file
    8.33  
    8.34  
    8.35  
    8.36 @@ -130,7 +131,7 @@
    8.37               ... invoke typesetter on region
    8.38  `[prefix] t e'
    8.39               ... `on-the-fly preview' on current environment or whole
    8.40 -     portion of current formulas in math-mode
    8.41 +              portion of current formulas in math-mode
    8.42  `[prefix] t d'
    8.43          ... invoke dvipdfmx after successful typesetting
    8.44  `[prefix] t k'
    8.45 @@ -293,12 +294,12 @@
    8.46  (see *Note Cursor jump::), take described below into consideration.
    8.47  
    8.48     * You can put split texts in sub directory, but not in sub directory of
    8.49 -     sub directory.
    8.50 +      sub directory.
    8.51     * In the main text, specify the child file name with relative path name
    8.52 -     such as \include{chap1/sub}, when you include the file in a
    8.53 -     sub-directory.
    8.54 +      such as \include{chap1/sub}, when you include the file in a
    8.55 +      sub-directory.
    8.56     * In a sub-text, write `%#!latex main.tex' even if `main.tex' is in the
    8.57 -     parent directory(not %#!latex ../main.tex).
    8.58 +      parent directory(not %#!latex ../main.tex).
    8.59  
    8.60  
    8.61  
    8.62 @@ -336,7 +337,7 @@
    8.63  
    8.64  
    8.65  
    8.66 -File: yatexe, Node: Lpr format, Prev: Static region for typesetting, Up: %#notation
    8.67 +File: yatexe, Node: Lpr format, Next: Controlling which command to invoke, Prev: Static region for typesetting, Up: %#notation
    8.68  
    8.69  Lpr format
    8.70  ==========
    8.71 @@ -439,6 +440,7 @@
    8.72  
    8.73  * Begin-type completion::
    8.74  * Section-type completion::
    8.75 +* Label Generation::
    8.76  * Large-type completion::
    8.77  * Maketitle-type completion::
    8.78  * Arbitrary completion::
    8.79 @@ -533,7 +535,7 @@
    8.80  
    8.81  
    8.82  
    8.83 -File: yatexe, Node: Section-type completion, Next: Large-type completion, Prev: Begin-type completion, Up: Completion
    8.84 +File: yatexe, Node: Section-type completion, Prev: Begin-type completion, Up: Completion
    8.85  
    8.86  Section-type completion
    8.87  =======================
    8.88 @@ -655,9 +657,44 @@
    8.89               ... Hide sectioning commands whose level is lower than n
    8.90  
    8.91  
    8.92 -
    8.93  
    8.94 -File: yatexe, Node: Large-type completion, Next: Maketitle-type completion, Prev: Section-type completion, Up: Completion
    8.95 +File: yatexe, Node: Label Generation, Next: Large-type completion, Prev: Section-type completion, Up: Completion
    8.96 +
    8.97 +Label Generation
    8.98 +================
    8.99 +
   8.100 +When you want to type-in references of `\ref' or `\cite', all you have to
   8.101 +do is type `[prefix] s ref' without adding labels beforehand.  You will
   8.102 +see possible LaTeX-counters in the next window even if some counter does
   8.103 +not have `\label'.  Selecting the counter will automatically set the label
   8.104 +to that counter.
   8.105 +
   8.106 +All possible counter list in the buffer tends to be large.  You can reduce
   8.107 +the number of list by filtering type of counters by key-commands as
   8.108 +follows.
   8.109 +      `M-a'
   8.110 +
   8.111 +        ... Show all(disable filtering)
   8.112 +      `M-c'
   8.113 +
   8.114 +        ... Captions only
   8.115 +      `M-e'
   8.116 +
   8.117 +        ... equations (with counters) only
   8.118 +      `M-i'
   8.119 +
   8.120 +        ... numbers items only
   8.121 +      `M-s'
   8.122 +
   8.123 +        ... sections only
   8.124 +      `M-m'
   8.125 +
   8.126 +        ... other counters only
   8.127 +
   8.128 +
   8.129 +
   8.130 +
   8.131 +File: yatexe, Node: Large-type completion, Next: Maketitle-type completion, Prev: Label Generation, Up: Completion
   8.132  
   8.133  Large-type completion
   8.134  =====================
   8.135 @@ -720,7 +757,7 @@
   8.136  ==============
   8.137  
   8.138    YaTeX automatically detects the opened environment and close it with
   8.139 -`\end{environment}'.  Though proficient YaTeX users never fail to make
   8.140 +\`\end{environment}'.  Though proficient YaTeX users never fail to make
   8.141  environment with begin-type completion, some may begin an environment
   8.142  manually.  In that case, type
   8.143  
   8.144 @@ -1256,7 +1293,7 @@
   8.145     * `tabular', `tabular*', `array'
   8.146  
   8.147               Corresponding number of `&' and `\\'.  And `\hline' if
   8.148 -     needed.
   8.149 +             needed.
   8.150  
   8.151     * `tabbing'
   8.152  
   8.153 @@ -1606,8 +1643,8 @@
   8.154  
   8.155   -- Variable: YaTeX-fill-inhibit-environments
   8.156       Inhibit fill in these environments (`'("tabular" "tabular*" "array"
   8.157 -     picture" "eqnarray" "eqnarray*" "equation" "math" "displaymath"
   8.158 -     verbatim" "verbatim*")')
   8.159 +     "picture" "eqnarray" "eqnarray*" "equation" "math" "displaymath"
   8.160 +     "verbatim" "verbatim*")')
   8.161  
   8.162   -- Variable: YaTeX-uncomment-once
   8.163       T for deleting all preceding `%' (`nil')
   8.164 @@ -2082,10 +2119,11 @@
   8.165  ----------------
   8.166  
   8.167    The latter generator is invoked by the next sequence.  `M-x
   8.168 -YaTeX-generate-simple' This generator can make both "option add-in" and
   8.169 -argument add-in" (*refer the section add-in functions* *Note How the
   8.170 -add-in function works::), whereas `YaTeX-generate' cannot make "argument
   8.171 -addin".
   8.172 +                       YaTeX-generate-simple' This generator can make both
   8.173 +                       "option add-in" and "argument add-in" (*refer the
   8.174 +                       section add-in functions* *Note How the add-in
   8.175 +                       function works::), whereas `YaTeX-generate' cannot
   8.176 +                       make "argument addin".
   8.177  
   8.178    For example, assume you have the LaTeX command as follows.
   8.179  
   8.180 @@ -2249,9 +2287,12 @@
   8.181  anything as a result of using this software.  Adopting code from this
   8.182  program is also free.  But I would not do contract act.
   8.183  
   8.184 +  This software can be treated with: "The 2-Clause BSD License" (since
   8.185 +2017-09-09, yatex 1.80).
   8.186 +
   8.187  Any reports and suggestions are welcome as long as I feel interests in
   8.188  this software.  My possible e-mail address is `yuuji@yatex.org'.  (as of
   8.189 -Jan.2004) And there is mailing list for YaTeX.  Although the common
   8.190 +Sep.2017) And there is mailing list for YaTeX.  Although the common
   8.191  language is Japanese, questions in English will be welcome.  To join the
   8.192  ML, send the mail whose subject is `append' to the address
   8.193  `yatex@yatex.org.  If you have some question, please ask to
   8.194 @@ -2267,65 +2308,66 @@
   8.195  Node: Top256
   8.196  Node: What is YaTeX?1583
   8.197  Node: Main features1956
   8.198 -Node: Installation3500
   8.199 -Node: Typesetting4277
   8.200 -Node: Calling typesetter5389
   8.201 -Node: Calling previewer7916
   8.202 -Node: Printing out8277
   8.203 -Node: %#notation8569
   8.204 -Node: Changing typesetter8940
   8.205 -Node: Splitting input files9304
   8.206 -Node: Static region for typesetting10729
   8.207 -Node: Lpr format11858
   8.208 -Node: Controlling which command to invoke12888
   8.209 -Node: Editing %# notation13845
   8.210 -Node: Completion14389
   8.211 -Node: Begin-type completion14904
   8.212 -Node: Section-type completion17758
   8.213 -Node: view-sectioning20179
   8.214 -Node: Large-type completion21759
   8.215 -Node: Maketitle-type completion22412
   8.216 -Node: Arbitrary completion22964
   8.217 -Node: End completion23354
   8.218 -Node: Accent completion23823
   8.219 -Node: Image completion24440
   8.220 -Node: Greek letters completion26695
   8.221 -Node: Inserting parentheses27451
   8.222 -Node: Local dictionaries27858
   8.223 -Node: Commenting out28795
   8.224 -Node: Cursor jump30254
   8.225 -Node: Jump to corresponding object30545
   8.226 -Node: Invoking image processor31945
   8.227 -Node: Jump to main file33288
   8.228 -Node: Jumping around the environment33654
   8.229 -Node: Jumping to last completion position34072
   8.230 -Node: Changing and Deleting34581
   8.231 -Node: Changing LaTeX commands34962
   8.232 -Node: Killing LaTeX commands36139
   8.233 -Node: Filling37324
   8.234 -Node: Updation of includeonly39179
   8.235 -Node: What column39976
   8.236 -Node: Intelligent newline41061
   8.237 -Node: Usepackage checker42714
   8.238 -Node: Online help43305
   8.239 -Node: Browsing file hierarchy44980
   8.240 -Node: Cooperation with other packages46717
   8.241 -Node: Customizations47422
   8.242 -Node: Lisp variables47718
   8.243 -Node: All customizable variables48677
   8.244 -Node: Sample definitions60640
   8.245 -Node: Hook variables61153
   8.246 -Node: Hook file61857
   8.247 -Node: Add-in functions62196
   8.248 -Node: How the add-in function works63034
   8.249 -Node: Defining option-add-in65220
   8.250 -Node: Defining argument-add-in65942
   8.251 -Node: Defining enclosing-add-in66823
   8.252 -Node: How the function is called67679
   8.253 -Node: Useful functions for creating add-in68355
   8.254 -Node: Contribution69765
   8.255 -Node: Add-in generator70039
   8.256 -Node: Etcetera75499
   8.257 -Node: Copying76104
   8.258 +Node: Installation3591
   8.259 +Node: Typesetting4368
   8.260 +Node: Calling typesetter5489
   8.261 +Node: Calling previewer8016
   8.262 +Node: Printing out8377
   8.263 +Node: %#notation8669
   8.264 +Node: Changing typesetter9040
   8.265 +Node: Splitting input files9404
   8.266 +Node: Static region for typesetting10833
   8.267 +Node: Lpr format11962
   8.268 +Node: Controlling which command to invoke13035
   8.269 +Node: Editing %# notation13992
   8.270 +Node: Completion14536
   8.271 +Node: Begin-type completion15072
   8.272 +Node: Section-type completion17926
   8.273 +Node: view-sectioning20318
   8.274 +Node: Label Generation21897
   8.275 +Node: Large-type completion22797
   8.276 +Node: Maketitle-type completion23443
   8.277 +Node: Arbitrary completion23995
   8.278 +Node: End completion24385
   8.279 +Node: Accent completion24855
   8.280 +Node: Image completion25472
   8.281 +Node: Greek letters completion27727
   8.282 +Node: Inserting parentheses28483
   8.283 +Node: Local dictionaries28890
   8.284 +Node: Commenting out29827
   8.285 +Node: Cursor jump31286
   8.286 +Node: Jump to corresponding object31577
   8.287 +Node: Invoking image processor32977
   8.288 +Node: Jump to main file34320
   8.289 +Node: Jumping around the environment34686
   8.290 +Node: Jumping to last completion position35104
   8.291 +Node: Changing and Deleting35613
   8.292 +Node: Changing LaTeX commands35994
   8.293 +Node: Killing LaTeX commands37171
   8.294 +Node: Filling38356
   8.295 +Node: Updation of includeonly40211
   8.296 +Node: What column41008
   8.297 +Node: Intelligent newline42093
   8.298 +Node: Usepackage checker43754
   8.299 +Node: Online help44345
   8.300 +Node: Browsing file hierarchy46020
   8.301 +Node: Cooperation with other packages47757
   8.302 +Node: Customizations48462
   8.303 +Node: Lisp variables48758
   8.304 +Node: All customizable variables49717
   8.305 +Node: Sample definitions61682
   8.306 +Node: Hook variables62195
   8.307 +Node: Hook file62899
   8.308 +Node: Add-in functions63238
   8.309 +Node: How the add-in function works64076
   8.310 +Node: Defining option-add-in66262
   8.311 +Node: Defining argument-add-in66984
   8.312 +Node: Defining enclosing-add-in67865
   8.313 +Node: How the function is called68721
   8.314 +Node: Useful functions for creating add-in69397
   8.315 +Node: Contribution70807
   8.316 +Node: Add-in generator71081
   8.317 +Node: Etcetera76657
   8.318 +Node: Copying77262
   8.319  
   8.320  End tag table
     9.1 --- a/docs/yatexe.tex	Thu Jan 05 23:20:34 2017 +0900
     9.2 +++ b/docs/yatexe.tex	Sun Sep 10 21:40:11 2017 +0859
     9.3 @@ -8,7 +8,7 @@
     9.4  
     9.5  @iftex
     9.6  @c @syncodeindex fn cp
     9.7 -@c Last modified Fri Feb 13 08:15:26 2015 on firestorm
     9.8 +@c Last modified Sat Sep  9 23:41:37 2017 on firestorm
     9.9  @syncodeindex vr cp
    9.10  @end iftex
    9.11  
    9.12 @@ -18,7 +18,7 @@
    9.13  @subtitle Yet Another tex-mode for emacs
    9.14  @title Wild Bird
    9.15  @subtitle // YaTeX //
    9.16 -@author @copyright{} 1991-2012 by    HIROSE, Yuuji [yuuji@@yatex.org]
    9.17 +@author @copyright{} 1991-2017 by    HIROSE, Yuuji [yuuji@@yatex.org]
    9.18  @end titlepage
    9.19  
    9.20  @node Top, What is YaTeX?, (dir), (dir)
    9.21 @@ -29,7 +29,7 @@
    9.22  @cindex YaTeX
    9.23  
    9.24  @menu
    9.25 -* What is YaTeX?::              
    9.26 +* What is YaTeX?::
    9.27  * Main features::               What YaTeX can do
    9.28  * Installation::                Guide to install
    9.29  * Typesetting::                 Call typesetting processes
    9.30 @@ -96,6 +96,7 @@
    9.31        macro with completion
    9.32  @item Allow you to forget creating \label@{@}s, \ref@{@} or \cite@{@}
    9.33        completion automatically generate labels.
    9.34 +@item \includegraphics by Drag&Drop of image file
    9.35  @end itemize
    9.36  
    9.37  @node Installation, Typesetting, Main features, Top
    9.38 @@ -171,9 +172,9 @@
    9.39  @end table
    9.40  
    9.41  @menu
    9.42 -* Calling typesetter::          
    9.43 -* Calling previewer::           
    9.44 -* Printing out::                
    9.45 +* Calling typesetter::
    9.46 +* Calling previewer::
    9.47 +* Printing out::
    9.48  @end menu
    9.49  
    9.50  @node Calling typesetter, Calling previewer, Typesetting, Typesetting
    9.51 @@ -261,12 +262,12 @@
    9.52  notations in the source text.
    9.53  
    9.54  @menu
    9.55 -* Changing typesetter::         
    9.56 -* Splitting input files::       
    9.57 -* Static region for typesetting::  
    9.58 -* Lpr format::                  
    9.59 -* Controlling which command to invoke::  
    9.60 -* Editing %# notation::         
    9.61 +* Changing typesetter::
    9.62 +* Splitting input files::
    9.63 +* Static region for typesetting::
    9.64 +* Lpr format::
    9.65 +* Controlling which command to invoke::
    9.66 +* Editing %# notation::
    9.67  @end menu
    9.68  
    9.69  @node Changing typesetter, Splitting input files, %#notation, %#notation
    9.70 @@ -376,7 +377,7 @@
    9.71  @code{%#BEGIN} alone at the middle of very long text.  Do not forget to
    9.72  erase @code{%#BEGIN} @code{%#END} pair.
    9.73  
    9.74 -@node Lpr format,  , Static region for typesetting, %#notation
    9.75 +@node Lpr format, Controlling which command to invoke, Static region for typesetting, %#notation
    9.76  @comment  node-name,  next,  previous,  up
    9.77  @section Lpr format
    9.78  @cindex lpr format
    9.79 @@ -481,6 +482,7 @@
    9.80  @menu
    9.81  * Begin-type completion::
    9.82  * Section-type completion::
    9.83 +* Label Generation::
    9.84  * Large-type completion::
    9.85  * Maketitle-type completion::
    9.86  * Arbitrary completion::
    9.87 @@ -585,7 +587,7 @@
    9.88  begin-type completion to enclose text into a environment.
    9.89  
    9.90  
    9.91 -@node Section-type completion, Large-type completion, Begin-type completion, Completion
    9.92 +@node Section-type completion, , Begin-type completion, Completion
    9.93  @comment  node-name,  next,  previous,  up
    9.94  @section Section-type completion
    9.95  @cindex section-type completion
    9.96 @@ -687,7 +689,7 @@
    9.97  minibuffer.
    9.98  
    9.99  @menu
   9.100 -* view-sectioning::             
   9.101 +* view-sectioning::
   9.102  @end menu
   9.103  
   9.104  @node view-sectioning,  , Section-type completion, Section-type completion
   9.105 @@ -736,8 +738,38 @@
   9.106          @dots{} Hide sectioning commands whose level is lower than n
   9.107  @end table
   9.108  
   9.109 -
   9.110 -@node Large-type completion, Maketitle-type completion, Section-type completion, Completion
   9.111 +@node  Label Generation, Large-type completion, Section-type completion, Completion
   9.112 +@section Label Generation
   9.113 +@comment label generation
   9.114 +@cindex label generation
   9.115 +@cindex ref label cite
   9.116 +
   9.117 +When you want to type-in references of @code{\ref} or @code{\cite},
   9.118 +all you have to do is type @kbd{[prefix] s ref} without adding labels
   9.119 +beforehand.  You will see possible La@TeX{}-counters in the next window
   9.120 +even if some counter does not have @code{\label}.  Selecting the counter
   9.121 +will automatically set the label to that counter.
   9.122 +
   9.123 +All possible counter list in the buffer tends to be large.
   9.124 +You can reduce the number of list by filtering type of counters by
   9.125 +key-commands as follows.
   9.126 +@table @kbd
   9.127 + @item M-a
   9.128 +	@dots{} Show all(disable filtering)
   9.129 + @item M-c
   9.130 +	@dots{} Captions only
   9.131 + @item M-e
   9.132 +	@dots{} equations (with counters) only
   9.133 + @item M-i
   9.134 +	@dots{} numbers items only
   9.135 + @item M-s
   9.136 +	@dots{} sections only
   9.137 + @item M-m
   9.138 +	@dots{} other counters only
   9.139 +@end table
   9.140 +
   9.141 +
   9.142 +@node Large-type completion, Maketitle-type completion, Label Generation, Completion
   9.143  @comment  node-name,  next,  previous,  up
   9.144  @section Large-type completion
   9.145  
   9.146 @@ -1046,11 +1078,11 @@
   9.147  
   9.148  
   9.149  @menu
   9.150 -* Jump to corresponding object::  
   9.151 -* Invoking image processor::    
   9.152 -* Jump to main file::           
   9.153 -* Jumping around the environment::  
   9.154 -* Jumping to last completion position::  
   9.155 +* Jump to corresponding object::
   9.156 +* Invoking image processor::
   9.157 +* Jump to main file::
   9.158 +* Jumping around the environment::
   9.159 +* Jumping to last completion position::
   9.160  @end menu
   9.161  
   9.162  @node Jump to corresponding object, Invoking image processor, Cursor jump, Cursor jump
   9.163 @@ -1194,8 +1226,8 @@
   9.164  @cindex prefix k
   9.165  
   9.166  @menu
   9.167 -* Changing LaTeX commands::     
   9.168 -* Killing LaTeX commands::      
   9.169 +* Changing LaTeX commands::
   9.170 +* Killing LaTeX commands::
   9.171  @end menu
   9.172  
   9.173  @node Changing LaTeX commands, Killing LaTeX commands, Changing and Deleting, Changing and Deleting
   9.174 @@ -1609,9 +1641,9 @@
   9.175  add-in functions.
   9.176  
   9.177  @menu
   9.178 -* Lisp variables::              
   9.179 -* Add-in functions::            
   9.180 -* Add-in generator::            
   9.181 +* Lisp variables::
   9.182 +* Add-in functions::
   9.183 +* Add-in generator::
   9.184  @end menu
   9.185  
   9.186  @node Lisp variables, Add-in functions, Customizations, Customizations
   9.187 @@ -1634,10 +1666,10 @@
   9.188  that variable to 1 instead of @code{t}).
   9.189  
   9.190  @menu
   9.191 -* All customizable variables::  
   9.192 -* Sample definitions::          
   9.193 -* Hook variables::              
   9.194 -* Hook file::                   
   9.195 +* All customizable variables::
   9.196 +* Sample definitions::
   9.197 +* Hook variables::
   9.198 +* Hook file::
   9.199  @end menu
   9.200  
   9.201  @node All customizable variables, Sample definitions, Lisp variables, Lisp variables
   9.202 @@ -2077,10 +2109,10 @@
   9.203  @end enumerate
   9.204  
   9.205  @menu
   9.206 -* How the add-in function works::  
   9.207 -* How the function is called::  
   9.208 -* Useful functions for creating add-in::  
   9.209 -* Contribution::                
   9.210 +* How the add-in function works::
   9.211 +* How the function is called::
   9.212 +* Useful functions for creating add-in::
   9.213 +* Contribution::
   9.214  @end menu
   9.215  
   9.216  @node How the add-in function works, How the function is called, Add-in functions, Add-in functions
   9.217 @@ -2155,9 +2187,9 @@
   9.218  @code{/} to @code{@}@{}.
   9.219  
   9.220  @menu
   9.221 -* Defining option-add-in::      
   9.222 -* Defining argument-add-in::    
   9.223 -* Defining enclosing-add-in::   
   9.224 +* Defining option-add-in::
   9.225 +* Defining argument-add-in::
   9.226 +* Defining enclosing-add-in::
   9.227  @end menu
   9.228  
   9.229  @node Defining option-add-in, Defining argument-add-in, How the add-in function works, How the add-in function works
   9.230 @@ -2508,9 +2540,12 @@
   9.231  anything  as a result  of using  this software.   Adopting code  from this
   9.232  program is  also free.  But  I would not  do contract act.
   9.233  
   9.234 +  This software can be treated with: ``The 2-Clause BSD License''
   9.235 +(since 2017-09-09, yatex 1.80).
   9.236 +
   9.237  Any reports  and suggestions are  welcome as long  as I feel  interests in
   9.238  this software.  My possible  e-mail address is `yuuji@@yatex.org'.  (as of
   9.239 -Jan.2004)  And there  is  mailing  list for  YaTeX.   Although the  common
   9.240 +Sep.2017)  And there  is  mailing  list for  YaTeX.   Although the  common
   9.241  language is Japanese,  questions in English will be  welcome.  To join the
   9.242  ML,   send  the   mail  whose   subject   is  `append'   to  the   address
   9.243  `yatex@@yatex.org.    If   you  have   some   question,   please  ask   to
    10.1 --- a/docs/yatexj	Thu Jan 05 23:20:34 2017 +0900
    10.2 +++ b/docs/yatexj	Sun Sep 10 21:40:11 2017 +0859
    10.3 @@ -49,11 +49,11 @@
    10.4  はじめに
    10.5  ********
    10.6  
    10.7 -  野鳥は、GNU Emacs で LaTeX 用の文書を作成する時に pLaTeX などのタイプ
    10.8 -セットコマンドや、プレヴューアの起動を Emacs 編集画面中から行えるように
    10.9 -すると共に、拡張性の高い種々の補完機能によりソーステキストの編集を支援
   10.10 -します。さらに LaTeX コマンドのオンラインヘルプによりマニュアルを調べる
   10.11 -手間を軽減します。
   10.12 +  野鳥は、GNU Emacs で LaTeX 用の文書を作成する時に pLaTeX などのタイ
   10.13 +プセットコマンドや、プレヴューアの起動を Emacs 編集画面中から行えるよ
   10.14 +うにすると共に、拡張性の高い種々の補完機能によりソーステキストの編集を
   10.15 +支援します。さらに LaTeX コマンドのオンラインヘルプによりマニュアルを
   10.16 +調べる手間を軽減します。
   10.17  
   10.18    English manual *Note Top: (yatexe)Top.
   10.19  
   10.20 @@ -73,8 +73,8 @@
   10.21  
   10.22     * section型コマンド
   10.23  
   10.24 -     `\section{タイトル}'や`\mbox{内容}'のように引数を取るLaTeXコマンド
   10.25 -     を指します。
   10.26 +     `\section{タイトル}'や`\mbox{内容}'のように引数を取るLaTeXコマン
   10.27 +     ドを指します。
   10.28  
   10.29     * maketitle型コマンド
   10.30  
   10.31 @@ -117,16 +117,17 @@
   10.32               `\ref'<->`\label'間、
   10.33               `\cite'<->`\bibitem'ジャンプ(`C-c g')
   10.34     * 一括コメントアウト/アンコメントアウト(`C-c >', `C-c <', `C-c ,',
   10.35 -     `C-c .')
   10.36 +             `C-c .')
   10.37     * アクセント記号/数式環境用コマンド/ギリシャ文字の入力支援(`C-c a',
   10.38 -     `;', `/')
   10.39 +             `;', `/')
   10.40     * tabular/array環境のカラム位置ガイド
   10.41     * 標準的 LaTeX コマンドのオンラインヘルプ(`C-c ?', `C-c /')
   10.42     * ドキュメントのインクルード構造の視覚的表示とバッファ切り替え(`C-c
   10.43       d')
   10.44 -   * 補完入力したマクロに応じて必要な \userpackage を入れてくれる先回り
   10.45 -     userpackage
   10.46 +   * 補完入力したマクロに応じて必要な \userpackage を入れてくれる先回
   10.47 +     りuserpackage
   10.48     * \labelを打つことはもう忘れよう! refやcite補完入力で自動生成します
   10.49 +   * 画像ファイルのドラッグ&ドロップによる自動 \includegraphics
   10.50  
   10.51  
   10.52  
   10.53 @@ -144,8 +145,8 @@
   10.54             (cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist))
   10.55       (autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)
   10.56  
   10.57 -次に野鳥の emacs-lisp ファイル群を置くディレクトリを load-path に加えま
   10.58 -す。たとえば、 `~/src/emacs/yatex'に置くのであれば、
   10.59 +次に野鳥の emacs-lisp ファイル群を置くディレクトリを load-path に加え
   10.60 +ます。たとえば、 `~/src/emacs/yatex'に置くのであれば、
   10.61  
   10.62       (setq load-path (cons (expand-file-name "~/src/emacs/yatex") load-path))
   10.63  
   10.64 @@ -167,8 +168,9 @@
   10.65               ... 起動するプレヴューアのコマンド名
   10.66  `NTT-jTeX'
   10.67               ... 改行+インデントによって、タイプセット後の字間が空いて
   10.68 -     しまうのを抑制する場合にtにする(古いNTT-jTeXで顕著に現れる)。具体
   10.69 -     的には、fillするときに各行の終わりに%を付加するようになる。
   10.70 +             しまうのを抑制する場合にtにする(古いNTT-jTeXで顕著に現れ
   10.71 +             る)。具体的には、fillするときに各行の終わりに%を付加する
   10.72 +             ようになる。
   10.73  `YaTeX-kanji-code'
   10.74               ... 文書を作成する時の漢字コード
   10.75  `dviprint-command-format'
   10.76 @@ -197,9 +199,9 @@
   10.77  `[prefix] t r'
   10.78               ... タイプセッタ起動(領域指定)
   10.79  `[prefix] t e'
   10.80 -             ... 部分タイプセット&プレヴュー(ポイント位置の段落、環境ま
   10.81 -     たは数式モードのみをタイプセットして隣のバッファに組版結果の画像を
   10.82 -     出す)
   10.83 +             ... 部分タイプセット&プレヴュー(ポイント位置の段落、環境
   10.84 +             または数式モードのみをタイプセットして隣のバッファに組版
   10.85 +             結果の画像を出す)
   10.86  `[prefix] t k'
   10.87               ... 動作中のタイプセッタの停止
   10.88  `[prefix] t b'
   10.89 @@ -228,38 +230,38 @@
   10.90  タイプセッタ起動
   10.91  ================
   10.92  
   10.93 -  タイプセッタを起動すると、編集ウィンドウが2つに分割され、片方のウィン
   10.94 -ドウにタイプセット画面が表示されます。出力されるメッセージと連動しタイ
   10.95 -プセットバッファは自動的にスクロールします。もし、途中でエラーが起こっ
   10.96 +  タイプセッタを起動すると、編集ウィンドウが2つに分割され、片方のウィ
   10.97 +ンドウにタイプセット画面が表示されます。出力されるメッセージと連動しタ
   10.98 +イプセットバッファは自動的にスクロールします。もし、途中でエラーが起こっ
   10.99  て止まってしまった場合にはタイプセットバッファに移り、(`C-x o') タイプ
  10.100 -セッタの出している ? プロンプトに対して、`x' (処理の中断)などの指示を送
  10.101 -ることができます。エラーを修正する場合は、
  10.102 +セッタの出している ? プロンプトに対して、`x' (処理の中断)などの指示を
  10.103 +送ることができます。エラーを修正する場合は、
  10.104  
  10.105  `[prefix] ''
  10.106  `(prefix+アポストロフィ)'
  10.107               ... 直前のエラー発生行へジャンプ
  10.108  
  10.109  を入力することにより、タイプセッタがエラーを発生した行に移ることができ
  10.110 -ます。また、タイプセッタの出力する overfull hbox などのウォーニング行に
  10.111 -も対応していますので、順次 `[prefix] '' を押すことにより、一つ前のウォー
  10.112 -ニング発生行にジャンプしていきます。
  10.113 +ます。また、タイプセッタの出力する overfull hbox などのウォーニング行
  10.114 +にも対応していますので、順次 `[prefix] '' を押すことにより、一つ前の
  10.115 +ウォーニング発生行にジャンプしていきます。
  10.116  
  10.117    もし、気になるエラー行があった場合は、タイプセットバッファで、エラー
  10.118 -の表示されている行にカーソルを合わせスペースキーを押すと LaTeX ソースの
  10.119 -対応する行にジャンプします。
  10.120 +の表示されている行にカーソルを合わせスペースキーを押すと LaTeX ソース
  10.121 +の対応する行にジャンプします。
  10.122  
  10.123  
  10.124  領域タイプセット
  10.125  ----------------
  10.126  
  10.127    ポイントとマークの間、あるいはテキスト中に埋め込んだ `%#BEGIN' と
  10.128 -`%#END'の間の領域(*Note %#notation::)だけを切り取ってタイプセットするこ
  10.129 -とができます。この場合メインファイルのプリアンブルが一時ファイルのプリ
  10.130 -アンブルとして使われます。したがってプリアンブルにないマクロ定義が領域
  10.131 -内にあるとエラーになります。領域タイプセットを使う場合、必ずマクロ定義
  10.132 -はプリアンブル(`\begin{document}'より前)に置くようにして下さい。一時ファ
  10.133 -イルはメインファイルのあるディレクトリの`texput.tex'という名前で出力さ
  10.134 -れるので、上書きには注意してください。
  10.135 +`%#END'の間の領域(*Note %#notation::)だけを切り取ってタイプセットする
  10.136 +ことができます。この場合メインファイルのプリアンブルが一時ファイルのプ
  10.137 +リアンブルとして使われます。したがってプリアンブルにないマクロ定義が領
  10.138 +域内にあるとエラーになります。領域タイプセットを使う場合、必ずマクロ定
  10.139 +義はプリアンブル(`\begin{document}'より前)に置くようにして下さい。一時
  10.140 +ファイルはメインファイルのあるディレクトリの`texput.tex'という名前で出
  10.141 +力されるので、上書きには注意してください。
  10.142  
  10.143  
  10.144  環境タイプセット
  10.145 @@ -269,11 +271,11 @@
  10.146  ド内の場合はその数式モード全体、あるいは環境がなければその段落が自動的
  10.147  に領域選択されて、領域タイプセットを呼び出します。tabular環境や数式モー
  10.148  ドで複雑なものを作っている場合は確かめたい部分だけを確認できるので便利
  10.149 -です。Emacsが画像表示可能な場合は、部分タイプセットの結果を画像化して隣
  10.150 -のウィンドウに表示します。また、特定の環境で呼び出した場合は、環境内の
  10.151 -文字を書き換える度に自動的にプレビュー画像を更新します(on-the-flyプレ
  10.152 -ヴュー)。自動表示されない場合はプレヴューアで `texput.dvi'を開いたまま
  10.153 -にしておけば修正と確認が素早くできるでしょう。
  10.154 +です。Emacsが画像表示可能な場合は、部分タイプセットの結果を画像化して
  10.155 +隣のウィンドウに表示します。また、特定の環境で呼び出した場合は、環境内
  10.156 +の文字を書き換える度に自動的にプレビュー画像を更新します(on-the-flyプ
  10.157 +レヴュー)。自動表示されない場合はプレヴューアで `texput.dvi'を開いたま
  10.158 +まにしておけば修正と確認が素早くできるでしょう。
  10.159  
  10.160    画像プレヴューの場合の大きさ(解像度)はデフォルトで200dpi(数式は
  10.161  300dpi)です。dpiを変えたい場合はLaTeXソースのどこかに`%#PREVIEWDPI
  10.162 @@ -285,10 +287,10 @@
  10.163  
  10.164  プレヴューア起動
  10.165  ================
  10.166 -  `[prefix] t p' によりプレヴューアの起動ができます。さらに、もしあなた
  10.167 -が、-remote 機能つきのxdviを利用している場合は `[prefix] t s' を押すこ
  10.168 -とによりカーソル位置の文字列を検索してそのページを表示するようにすでに
  10.169 -起動中のxdviに命令を送ります。これにより、現在編集中の箇所のタイプセッ
  10.170 +  `[prefix] t p' によりプレヴューアの起動ができます。さらに、もしあな
  10.171 +たが、-remote 機能つきのxdviを利用している場合は `[prefix] t s' を押す
  10.172 +ことによりカーソル位置の文字列を検索してそのページを表示するようにすで
  10.173 +に起動中のxdviに命令を送ります。これにより、現在編集中の箇所のタイプセッ
  10.174  ト結果を即座に見ることができます。
  10.175  
  10.176  
  10.177 @@ -299,8 +301,8 @@
  10.178  プリントアウト
  10.179  ==============
  10.180  
  10.181 -  `[prefix] t l'を押してプリントアウトを指示すると、出力開始/終了ページ
  10.182 -を聞いてくるので、それぞれに答えます。これを省略したい時は、
  10.183 +  `[prefix] t l'を押してプリントアウトを指示すると、出力開始/終了ペー
  10.184 +ジを聞いてくるので、それぞれに答えます。これを省略したい時は、
  10.185  universal-argument をつけ、
  10.186  
  10.187  
  10.188 @@ -367,19 +369,19 @@
  10.189  なお、この行の最後の単語のピリオド以前を「メインファイル」のベースネー
  10.190  ムであると仮定します(上の2つの場合どちらも`main')。この行に記述した、
  10.191  `%f'はメインファイル名に、 `%r' はメインファイルの拡張子を取り除いた部
  10.192 -分に置換されます。ただし、`%f,%r'を利用した場合、初回タイプセット時に必
  10.193 -ずメインファイル名の入力を促されます。
  10.194 -
  10.195 -  `[prefix] g' (*Note Cursor jump::参照) でのファイル間ジャンプを有効に
  10.196 -機能させるため、入力ファイル分割時には次のことに注意して下さい。
  10.197 -
  10.198 -  1. サブディレクトリを作って、その中にサブファイルを置くことはできるが
  10.199 -     サブディレクトリのサブディレクトリには置けない。
  10.200 +分に置換されます。ただし、`%f,%r'を利用した場合、初回タイプセット時に
  10.201 +必ずメインファイル名の入力を促されます。
  10.202 +
  10.203 +  `[prefix] g' (*Note Cursor jump::参照) でのファイル間ジャンプを有効
  10.204 +に機能させるため、入力ファイル分割時には次のことに注意して下さい。
  10.205 +
  10.206 +  1. サブディレクトリを作って、その中にサブファイルを置くことはできる
  10.207 +     がサブディレクトリのサブディレクトリには置けない。
  10.208    2. メインファイルからサブディレクトリ内のファイルを include する時には、
  10.209       相対パス指定を用いて、
  10.210       `\include{chap1/sub}'のように記述。
  10.211 -  3. メインファイルが一つ上のディレクトリにある場合も、サブファイルには
  10.212 -     %#!platex main.tex のように記述する(../mainではない)。
  10.213 +  3. メインファイルが一つ上のディレクトリにある場合も、サブファイルに
  10.214 +     は%#!platex main.tex のように記述する(../mainではない)。
  10.215  
  10.216  
  10.217  
  10.218 @@ -391,15 +393,15 @@
  10.219  ==========
  10.220  
  10.221    `[prefix] tr' の領域指定のタイプセットでは、とくに指定のないかぎり、
  10.222 -`C-SPC'でマークした位置と、ポイント(カーソル位置)の間を領域とみなします
  10.223 -が、必ず決まった領域をタイプセットしたい場合は、その領域を
  10.224 +`C-SPC'でマークした位置と、ポイント(カーソル位置)の間を領域とみなしま
  10.225 +すが、必ず決まった領域をタイプセットしたい場合は、その領域を
  10.226  
  10.227               %#BEGIN
  10.228               <渡したい領域>
  10.229               %#END
  10.230  
  10.231 -のように`%#BEGIN'と`%#END'で囲み、カーソルを「`%#BEGIN'以降」に置いてく
  10.232 -ださい。この時の領域決定規則をまとめると次のようになります。
  10.233 +のように`%#BEGIN'と`%#END'で囲み、カーソルを「`%#BEGIN'以降」に置いて
  10.234 +ください。この時の領域決定規則をまとめると次のようになります。
  10.235  
  10.236  
  10.237    1. カーソル位置よりバッファの先頭方向に`%#BEGIN'というキーワードがあ
  10.238 @@ -430,8 +432,8 @@
  10.239  ===============
  10.240  
  10.241    まず、プリントアウト用コマンド列のフォーマットについて説明します。コ
  10.242 -マンド列フォーマットは、3つの Lisp 変数によって表現されます。デフォルト
  10.243 -の dvi2ps 用のフォーマットを例に説明します。
  10.244 +マンド列フォーマットは、3つの Lisp 変数によって表現されます。デフォル
  10.245 +トの dvi2ps 用のフォーマットを例に説明します。
  10.246  
  10.247  `(1)dviprint-command-format'
  10.248       `"dvi2ps %f %t %s | lpr"'
  10.249 @@ -443,10 +445,10 @@
  10.250       `"-t %e"'
  10.251  
  10.252  実際にプリントアウトする時は、(1)中の %s がファイル名に置き換えられ、
  10.253 -%f が(2)の内容、%t が(3)の内容に置き換えられます。その際に(2)の文字列中
  10.254 -の %b は「出力開始ページ」、(3)の文字列中の %e は「出力終了ページ」に置
  10.255 -き換えられます。もし、ページを指定しない時には、%f, %t 両方とも無視され
  10.256 -ます。
  10.257 +%f が(2)の内容、%t が(3)の内容に置き換えられます。その際に(2)の文字列
  10.258 +中の %b は「出力開始ページ」、(3)の文字列中の %e は「出力終了ページ」
  10.259 +に置き換えられます。もし、ページを指定しない時には、%f, %t 両方とも無
  10.260 +視されます。
  10.261  
  10.262    この、dviprint-command-format を臨時に変えたい時は、LaTeX のソーステ
  10.263  キスト中の任意の場所に、
  10.264 @@ -552,8 +554,8 @@
  10.265  `[prefix] b'
  10.266               ... begin 型補完開始(標準では `C-c b')
  10.267  
  10.268 -で始まります。頻繁に用いられる次の LaTeX 環境の補完は、[prefix] `b'に続
  10.269 -く次の1文字を入力するだけで、`\begin{xxx}...\end{xxx}'を完成させます。
  10.270 +で始まります。頻繁に用いられる次の LaTeX 環境の補完は、[prefix] `b'に
  10.271 +続く次の1文字を入力するだけで、`\begin{xxx}...\end{xxx}'を完成させます。
  10.272  
  10.273  `[prefix] b c'
  10.274               ... `\begin{center}...\end{center}'
  10.275 @@ -590,8 +592,8 @@
  10.276  `[prefix] b V'
  10.277               ... `\begin{verse}...\end{verse}'
  10.278  
  10.279 -  上記のもの以外の環境名は Emacs の持つインクリメンタルな補完機能を用い
  10.280 -て入力します(上記の環境名も以下の補完入力可能)。
  10.281 +  上記のもの以外の環境名は Emacs の持つインクリメンタルな補完機能を用
  10.282 +いて入力します(上記の環境名も以下の補完入力可能)。
  10.283  
  10.284  `[prefix] b SPC'
  10.285               ... begin 型補完入力
  10.286 @@ -623,9 +625,9 @@
  10.287  の次の『小文字の 'b'』 を『大文字』に変えて起動して下さい。(または、
  10.288  `C-u' を先に打ち、universal argument をつけても可能です)
  10.289  
  10.290 -  例えばあるパラグラフを description 環境の中に入れたいときは、そのパラ
  10.291 -グラフをマークしてから、補完機能を呼び出してください(description環境の
  10.292 -場合は `[prefix] b D')。
  10.293 +  例えばあるパラグラフを description 環境の中に入れたいときは、そのパ
  10.294 +ラグラフをマークしてから、補完機能を呼び出してください(description環境
  10.295 +の場合は `[prefix] b D')。
  10.296  
  10.297  選択された領域を括ります。ただしこれは `transient-mark-mode' が t
  10.298  (Emacsの標準)になっている場合のみで、普段
  10.299 @@ -658,8 +660,8 @@
  10.300  
  10.301  というプロンプトが現れるので、そこで `section' のような LaTeX コマンド
  10.302  名を入力します。ここでもリターンキーのみで括弧内のデフォルト値が選択さ
  10.303 -れるほか、`chapter'などのような頻度の高い名称入力にはスペースキーによる
  10.304 -補完機能が有効です。 次に、{}の中身の入力を促す、
  10.305 +れるほか、`chapter'などのような頻度の高い名称入力にはスペースキーによ
  10.306 +る補完機能が有効です。 次に、{}の中身の入力を促す、
  10.307  
  10.308               \section{???}:
  10.309  
  10.310 @@ -701,8 +703,8 @@
  10.311  
  10.312    ところで、`\addtolength{\topmargin}{8mm}' などのように、引数を二つ以
  10.313  上取る LaTeX コマンドがあります。このようなコマンドの補完入力には、
  10.314 -section 型補完呼び出しに引数を付けてください。例えば上の`addtolength'の
  10.315 -例であれば、引数2を指定します。つまり、
  10.316 +section 型補完呼び出しに引数を付けてください。例えば上の`addtolength'
  10.317 +の例であれば、引数2を指定します。つまり、
  10.318  
  10.319               C-u 2 [prefix] s   (または、ESC 2 [prefix] s)
  10.320  
  10.321 @@ -713,12 +715,12 @@
  10.322               Argument 2: 8mm
  10.323  
  10.324  のように入力してください。最初の addtolength の部分と、第一引数である
  10.325 -topmargin の入力は当然スペースによる補完入力が可能です。ユーザ辞書に登
  10.326 -録される LaTeX コマンドには、この引数の数も学習されるので、最初の補完の
  10.327 -時引数の数を指定して起動しておけば、以後の補完時には、記憶された個数だ
  10.328 -け引数を聞いて来るようになります。あとで引数の個数を変えたい時は、再び
  10.329 -`C-u' を用いて個数を指定し直すことで、自動的に辞書中の引数の個数の部分
  10.330 -を更新します。
  10.331 +\topmargin の入力は当然スペースによる補完入力が可能です。ユーザ辞書に
  10.332 +登録される LaTeX コマンドには、この引数の数も学習されるので、最初の補
  10.333 +完の時引数の数を指定して起動しておけば、以後の補完時には、記憶された個
  10.334 +数だけ引数を聞いて来るようになります。あとで引数の個数を変えたい時は、
  10.335 +再び `C-u' を用いて個数を指定し直すことで、自動的に辞書中の引数の個数
  10.336 +の部分を更新します。
  10.337  
  10.338  
  10.339  
  10.340 @@ -741,8 +743,8 @@
  10.341  再帰補完
  10.342  --------
  10.343  
  10.344 -  高度な使い方になるかもしれませんが、section型補完の引数の入力時にさら
  10.345 -に補完入力を利用することができます(section/large/maketitle型に限る)。
  10.346 +  高度な使い方になるかもしれませんが、section型補完の引数の入力時にさ
  10.347 +らに補完入力を利用することができます(section/large/maketitle型に限る)。
  10.348  section型コマンドの引数に更に LaTeX コマンドが来る場合にはミニバッファ
  10.349  で野鳥の補完キーを再帰的に入力することで引数の入力も効率的に行なえます。
  10.350  
  10.351 @@ -754,13 +756,13 @@
  10.352  ----------------------------------
  10.353  
  10.354    通常のsection型補完の時にミニバッファで`C-v'を押すと現在存在するセク
  10.355 -ション区切りコマンド全てを `*Sectioning Lines*'というバッファに一覧表示
  10.356 -します(「<<--」のついている行がもっとも近いセクション区切り)。この時ミ
  10.357 -ニバッファで`C-p', `C-n' を押すと`part', `chapter', ...,
  10.358 +ション区切りコマンド全てを `*Sectioning Lines*'というバッファに一覧表
  10.359 +示します(「<<--」のついている行がもっとも近いセクション区切り)。この時
  10.360 +ミニバッファで`C-p', `C-n' を押すと`part', `chapter', ...,
  10.361  `subparagraph' のコマンドが論理階層の高さにしたがって上下します。また、
  10.362 -`C-v', `M-v' を押すとセクション区切り一覧バッファがスクロールし、数字の
  10.363 -`0'〜`7'を押すとある高さ以上のセクション区切りだけを選んで表示します(実
  10.364 -際にやって見れば分かります)。
  10.365 +`C-v', `M-v' を押すとセクション区切り一覧バッファがスクロールし、数字
  10.366 +の`0'〜`7'を押すとある高さ以上のセクション区切りだけを選んで表示します
  10.367 +(実際にやって見れば分かります)。
  10.368  
  10.369  `*Sectioning Lines*'バッファは、
  10.370  
  10.371 @@ -769,12 +771,12 @@
  10.372  
  10.373  で作成することができます。このバッファを選択し任意の行でスペースを押す
  10.374  と、該当するセクション区切りのある本文中の場所にジャンプします。さらに、
  10.375 -同バッファで `u' を押すと、ソーステキストの対応するセクションコマンドが
  10.376 -一階層上がり(例: subsection が section に変わる)、`d'を押すと一階層下が
  10.377 -ります。`*Sectioning Lines*'バッファにあるセクション区切りの行をマーク
  10.378 -しておいて`U'を押すとリジョン内のものに対応するソーステキストのセクショ
  10.379 -ンコマンドすべてが一階層上がり、`D'を押すと下がります。セクション区切り
  10.380 -一覧バッファで利用できるキーコマンドには以下のものがあります。
  10.381 +同バッファで `u' を押すと、ソーステキストの対応するセクションコマンド
  10.382 +が一階層上がり(例: subsection が section に変わる)、`d'を押すと一階層
  10.383 +下がります。`*Sectioning Lines*'バッファにあるセクション区切りの行をマー
  10.384 +クしておいて`U'を押すとリジョン内のものに対応するソーステキストのセク
  10.385 +ションコマンドすべてが一階層上がり、`D'を押すと下がります。セクション
  10.386 +区切り一覧バッファで利用できるキーコマンドには以下のものがあります。
  10.387  
  10.388  `SPC'
  10.389               ... 対応するソース行へジャンプ
  10.390 @@ -799,13 +801,35 @@
  10.391  ラベル自動生成
  10.392  --------------
  10.393  
  10.394 -  `\ref{}' や `\cite{}' マクロをsection型補完で入れた場合参照先となり得
  10.395 -るものを全て探してメニューにして選択できます。参照先には`\label{}'をつ
  10.396 -けておく必要はありません。もしあれば、そのラベルを使い、なければその場
  10.397 -で参照先に`\label{}'を作らせてくれます。ラベル名を考えるのは苦痛に感じ
  10.398 -るものです。全てのカウンタにラベルをつけるのもたいへんです。もうラベル
  10.399 -名に何をつけるか、ラベルをつけるかつけまいか、などということは忘れましょ
  10.400 -う!
  10.401 +  `\ref{}' や `\cite{}' マクロをsection型補完で入れた場合参照先となり
  10.402 +得るものを全て探してメニューにして選択できます。参照先には`\label{}'を
  10.403 +つけておく必要はありません。もしあれば、そのラベルを使い、なければその
  10.404 +場で参照先に`\label{}'を作らせてくれます。ラベル名を考えるのは苦痛に感
  10.405 +じるものです。全てのカウンタにラベルをつけるのもたいへんです。もうラベ
  10.406 +ル名に何をつけるか、ラベルをつけるかつけまいか、などということは忘れま
  10.407 +しょう!
  10.408 +
  10.409 +ラベルを打つべき項目の選択の際には、可能性のあるすべてのカウンタが表示
  10.410 +されます。これを「数式のみ」のように種別で絞りたいときは以下のキーコマ
  10.411 +ンドが利用できます。
  10.412 +      `M-a'
  10.413 +
  10.414 +        ... 絞り込みを解除してすべてのカウンタを表示
  10.415 +      `M-c'
  10.416 +
  10.417 +        ... キャプションのみを表示
  10.418 +      `M-e'
  10.419 +
  10.420 +        ... 番号のつく数式のみを表示
  10.421 +      `M-i'
  10.422 +
  10.423 +        ... 番号つき箇条書のみを表示
  10.424 +      `M-s'
  10.425 +
  10.426 +        ... セクションのみを表示
  10.427 +      `M-m'
  10.428 +
  10.429 +        ... その他のカウンタのみを表示
  10.430  
  10.431  
  10.432  
  10.433 @@ -825,16 +849,16 @@
  10.434  
  10.435  
  10.436  と表示されるので、上記のものと同じ要領で補完入力して下さい。補完候補に
  10.437 -用意されているのは、`footnotesize' や `huge' のような文字サイズ指定子と、
  10.438 -`bf'や`dg'のようなフォント指定子です。
  10.439 +用意されているのは、`footnotesize' や `huge' のような文字サイズ指定子
  10.440 +と、`bf'や`dg'のようなフォント指定子です。
  10.441  
  10.442  
  10.443  既に書いた文字を括る
  10.444  --------------------
  10.445  
  10.446 -  また、begin型補完の時と同様、先に書いてしまった一連の文章の文字のサイ
  10.447 -ズを変えたいと思う時がありますが、そのような時は、サイズや大きさを変え
  10.448 -たい文字の範囲をマークしてからlarge型補完を呼んでください。
  10.449 +  また、begin型補完の時と同様、先に書いてしまった一連の文章の文字のサ
  10.450 +イズを変えたいと思う時がありますが、そのような時は、サイズや大きさを変
  10.451 +えたい文字の範囲をマークしてからlarge型補完を呼んでください。
  10.452  
  10.453  
  10.454  
  10.455 @@ -858,9 +882,9 @@
  10.456  随時補完
  10.457  ========
  10.458  
  10.459 -  さて、今まで述べた典型的な LaTeX コマンド形式の補完入力を用いずに、今
  10.460 -入力しようとしている LaTeX コマンドを文書中の任意の位置で随時補完するこ
  10.461 -ともできます。LaTeX コマンド(先頭が\で始まる)を入力している途中で、
  10.462 +  さて、今まで述べた典型的な LaTeX コマンド形式の補完入力を用いずに、
  10.463 +今入力しようとしている LaTeX コマンドを文書中の任意の位置で随時補完す
  10.464 +ることもできます。LaTeX コマンド(先頭が\で始まる)を入力している途中で、
  10.465  
  10.466  `[prefix] SPC'
  10.467               ... 随時補完
  10.468 @@ -877,8 +901,8 @@
  10.469  
  10.470    現在開いたままの環境名を自動的に検出し、`\end{環境名}'を挿入します。
  10.471  begin 型補完を用いれば環境の閉じ忘れはないのですが、時にはついつい手で
  10.472 -`\begin{環境名}' を入れてしまい、悲しい思いをすることがあります。そのよ
  10.473 -うな時には気にせず続けて文章を入力し、しかるのちに
  10.474 +`\begin{環境名}' を入れてしまい、悲しい思いをすることがあります。その
  10.475 +ような時には気にせず続けて文章を入力し、しかるのちに
  10.476  
  10.477  `[prefix] e'
  10.478               ... end 補完
  10.479 @@ -901,8 +925,8 @@
  10.480  
  10.481               1:` 2:' 3:^ 4:" 5:~ 6:= 7:. u v H t c d b
  10.482  
  10.483 -というメニューが出て来るので、数字、または対応する記号/英字を入力して下
  10.484 -さい。すると編集バッファに、
  10.485 +というメニューが出て来るので、数字、または対応する記号/英字を入力して
  10.486 +下さい。すると編集バッファに、
  10.487  
  10.488               \`{}
  10.489  
  10.490 @@ -926,11 +950,11 @@
  10.491  
  10.492    さて、例えば、←(leftarrow)をASCII文字だけで表現する場合、一般的には
  10.493  「<-」のようにしますが、これを利用して、数式記号イメージ入力モードで
  10.494 -`\leftarrow'を入力するには、`;'(セミコロン)を打ってから`<-'と入力します。
  10.495 -同様に、長い矢印←-(long-leftarrow) をASCII文字だけで表現する場合「<--」
  10.496 -とするので、`\longleftarrow'を入力するためには、`;<--'と入力します。あ
  10.497 -るいは無限大記号をASCII文字だけで表現する時は「oo」のようにすることから、
  10.498 -`\infty' を入力する時は、`;oo'とキー入力します。
  10.499 +`\leftarrow'を入力するには、`;'(セミコロン)を打ってから`<-'と入力しま
  10.500 +す。同様に、長い矢印←-(long-leftarrow) をASCII文字だけで表現する場合
  10.501 +「<--」とするので、`\longleftarrow'を入力するためには、`;<--'と入力し
  10.502 +ます。あるいは無限大記号をASCII文字だけで表現する時は「oo」のようにす
  10.503 +ることから、`\infty' を入力する時は、`;oo'とキー入力します。
  10.504  
  10.505    これらの操作をまとめると次のようになります。
  10.506  
  10.507 @@ -947,14 +971,14 @@
  10.508  表示されたなら、そこでイメージ入力を止めて次の編集動作に移っても構いま
  10.509  せん。
  10.510  
  10.511 -  数式環境中で`;'自身を入力するには`;;'のようにします。イメージ入力の途
  10.512 -中でTABを押すと、それまで入力した文字で始まるもの一覧が表示されます。こ
  10.513 -こで目的の LaTeX コマンドまでカーソルを移動し再度TABを押すことでその
  10.514 +  数式環境中で`;'自身を入力するには`;;'のようにします。イメージ入力の
  10.515 +途中でTABを押すと、それまで入力した文字で始まるもの一覧が表示されます。
  10.516 +ここで目的の LaTeX コマンドまでカーソルを移動し再度TABを押すことでその
  10.517  LaTeX コマンドがバッファに挿入されます。
  10.518  
  10.519 -  どのキー入力にどの記号が対応しているか全て知りたい時は、`;'を押した直
  10.520 -後にTABを押してください。以下の例は、`;<'と押した後にTABを押したもので
  10.521 -す。
  10.522 +  どのキー入力にどの記号が対応しているか全て知りたい時は、`;'を押した
  10.523 +直後にTABを押してください。以下の例は、`;<'と押した後にTABを押したもの
  10.524 +です。
  10.525  
  10.526       KEY             LaTeX sequence          sign
  10.527       <               \leq                    ≦
  10.528 @@ -962,12 +986,12 @@
  10.529       <-              \leftarrow              ←
  10.530       <=              \Leftarrow              <=
  10.531  
  10.532 -左から[入力キー]、[対応する LaTeX コマンド]、[(擬似)記号図示]、という順
  10.533 -でメニューが出て来るので、よく使うものを覚えておくと良いでしょう。もの
  10.534 -によってはASCII文字で表現することが困難なので、あまり覚えやすいキー並び
  10.535 -ではないものがあるでしょうから、そのような場合は \maketitle 型補完で入
  10.536 -力するか、以下に述べる対応表の設定を行って単純なキー並びのものを設定す
  10.537 -ると良いでしょう。
  10.538 +左から[入力キー]、[対応する LaTeX コマンド]、[(擬似)記号図示]、という
  10.539 +順でメニューが出て来るので、よく使うものを覚えておくと良いでしょう。も
  10.540 +のによってはASCII文字で表現することが困難なので、あまり覚えやすいキー
  10.541 +並びではないものがあるでしょうから、そのような場合は \maketitle 型補完
  10.542 +で入力するか、以下に述べる対応表の設定を行って単純なキー並びのものを設
  10.543 +定すると良いでしょう。
  10.544  
  10.545    入力キーと LaTeX コマンド、記号の対応表を個人的に設定したい場合は
  10.546  Emacs-Lisp 変数 `YaTeX-math-sign-alist-private' に定義してください。そ
  10.547 @@ -983,15 +1007,15 @@
  10.548  ================
  10.549  
  10.550    もう一つ、数式環境中で`:'を押すとギリシャ文字入力モードに入ります。
  10.551 -`:'を押した直後に`a'を押すと`\alpha'が、`g' を押すと `\gamma'が、などア
  10.552 -ルファベットに対応したギリシャ文字が挿入されます。操作方法は;の数式記号
  10.553 -補完とまったく同じです。まずは`:'の直後にTABを押してどのアルファベット
  10.554 -にどのギリシャ文字が対応しているか調べてみてください。
  10.555 +`:'を押した直後に`a'を押すと`\alpha'が、`g' を押すと `\gamma'が、など
  10.556 +アルファベットに対応したギリシャ文字が挿入されます。操作方法は;の数式
  10.557 +記号補完とまったく同じです。まずは`:'の直後にTABを押してどのアルファベッ
  10.558 +トにどのギリシャ文字が対応しているか調べてみてください。
  10.559  
  10.560    `;'と`:'を数式環境中で押しているにもかかわらず、イメージ補完が働かな
  10.561 -い場合は、`C-u ;'のように universal-argument をつけてキーを押すことによ
  10.562 -り、強制的にイメージ補完に入ることができます。また、この時にどのような
  10.563 -状態で数式環境内判定に失敗したかをご連絡下さい。
  10.564 +い場合は、`C-u ;'のように universal-argument をつけてキーを押すことに
  10.565 +より、強制的にイメージ補完に入ることができます。また、この時にどのよう
  10.566 +な状態で数式環境内判定に失敗したかをご連絡下さい。
  10.567  
  10.568  
  10.569  
  10.570 @@ -1000,11 +1024,11 @@
  10.571  括弧入力補助
  10.572  ============
  10.573  
  10.574 -  3種類ある括弧 () {} [] の開き括弧を入れたときに閉じ括弧を自動的に入れ
  10.575 -ます。`\' の直後にの `[' を入れると行を分けてインデントを揃え、数式入力
  10.576 -に備えます。その他 LaTeX のマクロに応じて括弧の釣合の取れた状態に導きま
  10.577 -す。開き括弧そのものを1つだけ入れたいときは `C-q' でクォート入力するか、
  10.578 -`[prefix] w m' で修正モードをOFFにしてください。
  10.579 +  3種類ある括弧 () {} [] の開き括弧を入れたときに閉じ括弧を自動的に入
  10.580 +れます。`\' の直後にの `[' を入れると行を分けてインデントを揃え、数式
  10.581 +入力に備えます。その他 LaTeX のマクロに応じて括弧の釣合の取れた状態に
  10.582 +導きます。開き括弧そのものを1つだけ入れたいときは `C-q' でクォート入力
  10.583 +するか、`[prefix] w m' で修正モードをOFFにしてください。
  10.584  
  10.585    領域選択してから開き括弧を入れるとその領域をその種類の括弧で括ります。
  10.586  
  10.587 @@ -1027,8 +1051,8 @@
  10.588  
  10.589  というプロンプトに対し、`u'と答えると「ユーザ辞書」を、`l'と答えるとロー
  10.590  カル辞書を更新し、`n'と答えると辞書ファイルは更新せず現在のEmacsセッショ
  10.591 -ンのみ有効な単語とし、`d'と答えると新たな単語を学習せずに捨てることにな
  10.592 -ります。
  10.593 +ンのみ有効な単語とし、`d'と答えると新たな単語を学習せずに捨てることに
  10.594 +なります。
  10.595  
  10.596    もし、ローカル辞書の機能はいらず、全てユーザ辞書の更新のみでよいと言
  10.597  う場合には`~/.emacs'などで、
  10.598 @@ -1045,8 +1069,8 @@
  10.599  **************
  10.600  
  10.601  
  10.602 -  LaTeXの編集には試行錯誤がつきものです。ある部分を一括でコメントアウト
  10.603 -したり、コメントを外したりしたいことがあります。
  10.604 +  LaTeXの編集には試行錯誤がつきものです。ある部分を一括でコメントアウ
  10.605 +トしたり、コメントを外したりしたいことがあります。
  10.606  
  10.607  `[prefix] >'
  10.608               ... リジョンを % でコメントアウト
  10.609 @@ -1116,8 +1140,8 @@
  10.610  `[prefix] g'
  10.611               ... 対応するオブジェクトにジャンプ
  10.612  
  10.613 -を押すことにより、カーソル位置のLaTeXコマンドに対応する場所にジャンプし
  10.614 -ます。対応関係が存在すると解釈されるコマンドには以下のものがあります。
  10.615 +を押すことにより、カーソル位置のLaTeXコマンドに対応する場所にジャンプ
  10.616 +します。対応関係が存在すると解釈されるコマンドには以下のものがあります。
  10.617  
  10.618     * `\begin{}' ←→ `\end{}'
  10.619     * `%#BEGIN' ←→ `%#END'
  10.620 @@ -1141,8 +1165,8 @@
  10.621               ... 別ウィンドウで対応オブジェクトにジャンプ
  10.622  
  10.623  を押すと、対応するオブジェクトへのジャンプを別ウィンドウで行います。た
  10.624 -だし、この機能は `begin/end', `%#BEGIN/%#END' 間のジャンプに対しては(意
  10.625 -味がないと思われるので)機能しないので注意してください。
  10.626 +だし、この機能は `begin/end', `%#BEGIN/%#END' 間のジャンプに対しては
  10.627 +(意味がないと思われるので)機能しないので注意してください。
  10.628  
  10.629  
  10.630  
  10.631 @@ -1159,21 +1183,22 @@
  10.632  
  10.633    1. カレント行が変数 `YaTeX-processed-file-regexp-alist' に定義されて
  10.634       いる正規表現のいずれかとマッチしたら、ファイル名に相当する部分を
  10.635 -     (\\)から抜き出して覚えておく(何番目の\\(\\)かは変数の各リストの
  10.636 +     \\(\\)から抜き出して覚えておく(何番目の\\(\\)かは変数の各リストの
  10.637       cdr 部に入れておく)。マッチしなければ何もしない。
  10.638 -  2. 行末に、変数 `YaTeX-file-processor-alist' に登録されているコマンド
  10.639 -     が「%コマンド」 のように書いてあれば強制的に「コマンド ファイル
  10.640 +  2. 行末に、変数 `YaTeX-file-processor-alist' に登録されているコマン
  10.641 +     ドが「%コマンド」 のように書いてあれば強制的に「コマンド ファイル
  10.642       名.拡張子」を起動。
  10.643    3. なければ、変数 `YaTeX-file-processor-alist' の各リストのcdr部に入っ
  10.644 -     ている拡張子を「ファイル名」の後ろに足したファイルが存在するか順次
  10.645 -     調べて、存在した場合car部に入っているコマンドを起動する。
  10.646 +     ている拡張子を「ファイル名」の後ろに足したファイルが存在するか順
  10.647 +     次調べて、存在した場合car部に入っているコマンドを起動する。
  10.648    4. 以上どれかにマッチしなければあきらめる。
  10.649  
  10.650  
  10.651  変数 `YaTeX-file-processor-alist' と変数 `YaTeX-file-processor-alist'
  10.652 -の設定方法についてはそれぞれの変数について describe-variable して説明を
  10.653 -読んで下さい。うまく設定すると、画像ファイルにかぎらず、任意の形式のファ
  10.654 -イルを任意のプロセッサで処理するコマンドを簡単に呼び出すことができます。
  10.655 +の設定方法についてはそれぞれの変数について describe-variable して説明
  10.656 +を読んで下さい。うまく設定すると、画像ファイルにかぎらず、任意の形式の
  10.657 +ファイルを任意のプロセッサで処理するコマンドを簡単に呼び出すことができ
  10.658 +ます。
  10.659  
  10.660  
  10.661  
  10.662 @@ -1293,9 +1318,9 @@
  10.663  や `%#BEGIN, %#END' の存在する行はまるごと削除されるので、それらの一行
  10.664  に `\begin' などを二つ以上連ねて書かないように注意してください。上記の
  10.665  ものはすべて本文を囲う「容器」を削除するように働きますが、
  10.666 -universal-argument (`C-u') を打った後で`[prefix] k'をタイプすると、それ
  10.667 -ぞれの「容器」に含まれる「中身」も一気に削除します。以下の例を参考にし
  10.668 -て下さい。
  10.669 +universal-argument (`C-u') を打った後で`[prefix] k'をタイプすると、そ
  10.670 +れぞれの「容器」に含まれる「中身」も一気に削除します。以下の例を参考に
  10.671 +して下さい。
  10.672  
  10.673               元のテキスト:                   [prefix] k      C-u [prefix] k
  10.674               本文\footnote{脚注}です。     本文脚注です。  本文です。
  10.675 @@ -1312,16 +1337,16 @@
  10.676  itemの桁揃え
  10.677  ============
  10.678  
  10.679 -  itemize 環境中にある`\item'の項目(文章)が複数行に渡る場合に、項目の先
  10.680 -頭を桁揃えしたい場合には、
  10.681 +  itemize 環境中にある`\item'の項目(文章)が複数行に渡る場合に、項目の
  10.682 +先頭を桁揃えしたい場合には、
  10.683  
  10.684  
  10.685  `M-q'
  10.686               ... 桁揃え
  10.687  
  10.688  によって、その item のインデントの深さに応じて fill されます。なお、古
  10.689 -いNTT jTeX を使用している場合には、Lisp 変数`NTT-jTeX'を`t'にセットして
  10.690 -下さい。
  10.691 +いNTT jTeX を使用している場合には、Lisp 変数`NTT-jTeX'を`t'にセットし
  10.692 +て下さい。
  10.693  
  10.694    このとき、変数`YaTeX-item-regexp'の値(標準では `"\\\\item"')を
  10.695  項目指定コマンドの正規表現として検索に使用します。itemize 環境で、独自のコ
  10.696 @@ -1351,13 +1376,13 @@
  10.697  パラグラフの桁揃え
  10.698  ==================
  10.699  
  10.700 -  itemize環境以外でのパラグラフの桁揃え(fill)は、基本的に他のモードと同
  10.701 -じように機能しますが、verbatim環境や、tabular環境など桁揃えをすると悲惨
  10.702 -な状況になるような環境中では機能しません。また、\verb で括ってあるもの
  10.703 -は決して行分割されません(変数 `YaTeX-verb-regexp' で制御) )。さらに、一
  10.704 -時的にインデントの深さを変えてある箇所では、そのインデントの先頭で
  10.705 -`M-q'を押すことにより fill-prefix をいちいち変更しなくて桁揃えができま
  10.706 -す。
  10.707 +  itemize環境以外でのパラグラフの桁揃え(fill)は、基本的に他のモードと
  10.708 +同じように機能しますが、verbatim環境や、tabular環境など桁揃えをすると
  10.709 +悲惨な状況になるような環境中では機能しません。また、\verb で括ってある
  10.710 +ものは決して行分割されません(変数 `YaTeX-verb-regexp' で制御) )。さら
  10.711 +に、一時的にインデントの深さを変えてある箇所では、そのインデントの先頭
  10.712 +で`M-q'を押すことにより fill-prefix をいちいち変更しなくて桁揃えができ
  10.713 +ます。
  10.714  
  10.715  
  10.716  
  10.717 @@ -1384,8 +1409,8 @@
  10.718               A)dd R)eplace %)comment?
  10.719  
  10.720  
  10.721 -現在編集中のファイルを `\includeonly' のリストに加えたい時には`a'を、現
  10.722 -在編集中のファイルだけを `\includeonly' にしたい時は`r'を、
  10.723 +現在編集中のファイルを `\includeonly' のリストに加えたい時には`a'を、
  10.724 +現在編集中のファイルだけを `\includeonly' にしたい時は`r'を、
  10.725  `\includeonly' の行をコメントアウトして無効化したい時には、`%'をそれぞ
  10.726  れ押して下さい。
  10.727  
  10.728 @@ -1396,9 +1421,9 @@
  10.729  ここはどこ?
  10.730  ***********
  10.731  
  10.732 -  項目数の多い tabular などをたくさん書いていると下の方の行で、いま書い
  10.733 -ている桁がどこに対応するのかわからなくなってしまうことがあります。例え
  10.734 -ば、以下のような tabular において、
  10.735 +  項目数の多い tabular などをたくさん書いていると下の方の行で、いま書
  10.736 +いている桁がどこに対応するのかわからなくなってしまうことがあります。例
  10.737 +えば、以下のような tabular において、
  10.738  
  10.739               \begin{tabular}{|c|c|c|c|c|c|c|c|}\hline
  10.740                氏名&所属&〒&住所&電話&FAX&帰省先&帰省先電話\\ \hline
  10.741 @@ -1410,15 +1435,16 @@
  10.742               \end{tabular}
  10.743  
  10.744  
  10.745 -(???)の部分がどの項目なのかすぐに判断するのは難しいでしょう。こんな時は、
  10.746 +(???)の部分がどの項目なのかすぐに判断するのは難しいでしょう。こんな時
  10.747 +は、
  10.748  
  10.749  `[prefix] &'
  10.750               ... 現在のカラム表示
  10.751  
  10.752  を押すとカーソル位置のカラムがどの項目に該当するかをミニバッファに表示
  10.753  します。tabular/array環境の第1行目を項目名の並びとみなして対応するもの
  10.754 -を探します。もし項目名として別のものを表示して欲しい場合は、行頭を`%'に
  10.755 -してダミーの項目並びを作っておくと良いでしょう。
  10.756 +を探します。もし項目名として別のものを表示して欲しい場合は、行頭を`%'
  10.757 +にしてダミーの項目並びを作っておくと良いでしょう。
  10.758  
  10.759  
  10.760  
  10.761 @@ -1435,10 +1461,10 @@
  10.762  
  10.763  
  10.764  を押すと、その環境に応じた行エントリを次の行に挿入します(begin型補完時
  10.765 -に自動挿入されたエントリが不要な場合は undo によって消去できます)。例え
  10.766 -ば、tabular環境では、その環境のカラム数に対応した個数の `&' に加え、行
  10.767 -末の `\\' を入れます。この時それ以前に `\hline' があればそれも付け加え
  10.768 -ます。環境とそれに応じて自動入力するものの対応は以下のようになります。
  10.769 +に自動挿入されたエントリが不要な場合は undo によって消去できます)。例
  10.770 +えば、tabular環境では、その環境のカラム数に対応した個数の `&' に加え、
  10.771 +行末の `\\' を入れます。この時それ以前に `\hline' があればそれも付け加
  10.772 +えます。環境とそれに応じて自動入力するものの対応は以下のようになります。
  10.773  
  10.774     * `tabular', `tabular*', `array'
  10.775  
  10.776 @@ -1473,9 +1499,9 @@
  10.777  
  10.778    begin型、section型、maketitle型、いずれかのLaTeX2eマクロを補完入力す
  10.779  ると、そのマクロの利用に外部パッケージを必要とする場合、そのパッケージ
  10.780 -を本文中で `\usepackage{}' しているかどうかを調査し、もししていなければ
  10.781 -プリアンブルに対応するパッケージを引数にした `\usepackage' 文を(確認後
  10.782 -に)挿入します。
  10.783 +を本文中で `\usepackage{}' しているかどうかを調査し、もししていなけれ
  10.784 +ばプリアンブルに対応するパッケージを引数にした `\usepackage' 文を(確認
  10.785 +後に)挿入します。
  10.786  
  10.787    ただしこの機能が働くためには、パッケージ名とその中で定義されているマ
  10.788  クロ群をalistの形式で変数 `YaTeX-package-alist-private' に設定しておく
  10.789 @@ -1497,8 +1523,9 @@
  10.790     * 野鳥数式モード
  10.791  
  10.792  修正モードは、開き括弧入力時の処理をコントロールし、修正モードONの時は
  10.793 -開き括弧の入力は開き括弧のみの入力になり、修正モードOFFの時は開き括弧の
  10.794 -入力だけで閉じ括弧まで入力します。デフォルト(起動時)の設定は*OFF*です。
  10.795 +開き括弧の入力は開き括弧のみの入力になり、修正モードOFFの時は開き括弧
  10.796 +の入力だけで閉じ括弧まで入力します。デフォルト(起動時)の設定は*OFF*で
  10.797 +す。
  10.798  
  10.799    野鳥数式モードは、変数 `YaTeX-auto-math-mode' が `nil' の時の
  10.800  み有効で、このとき`;'や`:'を押した時(*Note Image completion::参照)に、
  10.801 @@ -1514,8 +1541,8 @@
  10.802  オンラインヘルプ
  10.803  ****************
  10.804  
  10.805 -  使おうとする LaTeX コマンドの用法がよく分からない時は、オンラインヘル
  10.806 -プをひきましょう。ヘルプに関するキーには以下のものがあります。
  10.807 +  使おうとする LaTeX コマンドの用法がよく分からない時は、オンラインヘ
  10.808 +ルプをひきましょう。ヘルプに関するキーには以下のものがあります。
  10.809  
  10.810  `[prefix] ?'
  10.811               ... オンラインヘルプ
  10.812 @@ -1527,13 +1554,13 @@
  10.813  ================
  10.814  
  10.815    「オンラインヘルプ」は、一般的な LaTeX コマンド(デフォルトでカーソル
  10.816 -位置のコマンド)に対する説明を隣のバッファに表示します。この時参照される
  10.817 -ヘルプ用ファイルには「グローバルヘルプ」と「プライベートヘルプ」の二種
  10.818 -類があり、前者は LaTeX の標準コマンドの主なものの説明を含むファイルで、
  10.819 -変数`YaTeX-help-file'の値で指定されます。このファイルは通常公共の場所
  10.820 -(デフォルトで`$EMACSEXECPATH')に置かれ、誰もがその内容を更新できるよう
  10.821 -に全員に書き込み権が与えられるべきものです。後者は、非標準もしくは個人
  10.822 -的なマクロ定義に関する説明が書かれているファイルで、変数
  10.823 +位置のコマンド)に対する説明を隣のバッファに表示します。この時参照され
  10.824 +るヘルプ用ファイルには「グローバルヘルプ」と「プライベートヘルプ」の二
  10.825 +種類があり、前者は LaTeX の標準コマンドの主なものの説明を含むファイル
  10.826 +で、変数`YaTeX-help-file'の値で指定されます。このファイルは通常公共の
  10.827 +場所(デフォルトで`$EMACSEXECPATH')に置かれ、誰もがその内容を更新できる
  10.828 +ように全員に書き込み権が与えられるべきものです。後者は、非標準もしくは
  10.829 +個人的なマクロ定義に関する説明が書かれているファイルで、変数
  10.830  `YaTeX-help-file-private'の値で指定されます。こちらはユーザのホームディ
  10.831  レクトリの下などに置かれます。
  10.832  
  10.833 @@ -1541,14 +1568,14 @@
  10.834  オンラインapropos
  10.835  =================
  10.836  
  10.837 -  「オンラインapropos」は GNU Emacs の apropos と同様、ユーザが指定した
  10.838 -キーワードを説明文に含む項目すべてを隣のバッファに表示します。
  10.839 -
  10.840 -  もし、調べようとしたLaTeXコマンドに対する説明がヘルプファイル中に見つ
  10.841 -からなかった場合は、説明文の入力を求めてくるので、可能であれば参考書な
  10.842 -どを調べてそのコマンドの説明を入力してください。もし、なにか標準的なコ
  10.843 -マンドに対する説明を書いたならばぜひ私までその説明をお送り下さい。次回
  10.844 -の配布に含めたいと思います。
  10.845 +  「オンラインapropos」は GNU Emacs の apropos と同様、ユーザが指定し
  10.846 +たキーワードを説明文に含む項目すべてを隣のバッファに表示します。
  10.847 +
  10.848 +  もし、調べようとしたLaTeXコマンドに対する説明がヘルプファイル中に見
  10.849 +つからなかった場合は、説明文の入力を求めてくるので、可能であれば参考書
  10.850 +などを調べてそのコマンドの説明を入力してください。もし、なにか標準的な
  10.851 +コマンドに対する説明を書いたならばぜひ私までその説明をお送り下さい。次
  10.852 +回の配布に含めたいと思います。
  10.853  
  10.854  
  10.855  
  10.856 @@ -1563,9 +1590,9 @@
  10.857               ... インクルード構造ブラウズ
  10.858  
  10.859  を押すと、そのドキュメントの親ファイルを聞いて来ます。ここで全てのファ
  10.860 -イルの親となるファイル(デフォルトが示されているので大抵はRETのみ)を入力
  10.861 -するとインクルードしている全てのファイルを解析し、インクルード状況を視
  10.862 -覚的に表示します。このバッファでは以下のキー操作が有効です。
  10.863 +イルの親となるファイル(デフォルトが示されているので大抵はRETのみ)を入
  10.864 +力するとインクルードしている全てのファイルを解析し、インクルード状況を
  10.865 +視覚的に表示します。このバッファでは以下のキー操作が有効です。
  10.866  
  10.867  `n'
  10.868               ... 次の行に移動し対応するファイルを隣のバッファに表示
  10.869 @@ -1625,9 +1652,9 @@
  10.870  ======
  10.871  
  10.872    `gmhist.el'と`gmhist-mh.el' をロードしている場合、プレヴューコマンド
  10.873 -の入力(`[prefix] tp]')、印刷コマンドの入力(`[prefix] tl')の時に独立した
  10.874 -ヒストリを利用できます。それぞれのプロンプトで、`M-p' を押すと直前に利
  10.875 -用したコマンド文字列をくり返し呼び出すことができます。
  10.876 +の入力(`[prefix] tp]')、印刷コマンドの入力(`[prefix] tl')の時に独立し
  10.877 +たヒストリを利用できます。それぞれのプロンプトで、`M-p' を押すと直前に
  10.878 +利用したコマンド文字列をくり返し呼び出すことができます。
  10.879  
  10.880  
  10.881  min-out
  10.882 @@ -1659,13 +1686,13 @@
  10.883  lisp 変数
  10.884  =========
  10.885  
  10.886 -  例えば prefix キーを `C-c' 以外のキーにしたい場合は、`YaTeX-prefix'に
  10.887 -prefix キーにしたいシンボルを定義してください。さらに、「`C-c 英字'」と
  10.888 -いうキーバインドは独自の関数が割り当ててあるので使いたくない。このよう
  10.889 -な時は、`YaTeX-inhibit-prefix-letter' を `t' に設定することにより、
  10.890 -`C-c 英字…'のバインドが全て、対応する`C-c C-英字…'に変わります(ただし、
  10.891 -begin型 large型補完の大文字起動によるリジョン指定は可能なままです。これ
  10.892 -も無効にしたい場合は`t'ではなく 1 にセットして下さい。)。
  10.893 +  例えば prefix キーを `C-c' 以外のキーにしたい場合は、`YaTeX-prefix'
  10.894 +に prefix キーにしたいシンボルを定義してください。さらに、「`C-c 英字'」
  10.895 +というキーバインドは独自の関数が割り当ててあるので使いたくない。このよ
  10.896 +うな時は、`YaTeX-inhibit-prefix-letter' を `t' に設定することにより、
  10.897 +`C-c 英字…'のバインドが全て、対応する`C-c C-英字…'に変わります(ただ
  10.898 +し、begin型 large型補完の大文字起動によるリジョン指定は可能なままです。
  10.899 +これも無効にしたい場合は`t'ではなく 1 にセットして下さい。)。
  10.900  
  10.901  * Menu:
  10.902  
  10.903 @@ -1682,9 +1709,9 @@
  10.904  --------------------
  10.905  
  10.906    yatex-mode における次の変数がカスタマイズ可能です。`~/.emacs' で
  10.907 -`setq' しておけば、そちらの定義が優先されます。括弧の中はデフォルト値で
  10.908 -す。実際に変数の値を変更する場合は `M-x describe-variable' で変数の詳細
  10.909 -な説明を参照してください。
  10.910 +`setq' しておけば、そちらの定義が優先されます。括弧の中はデフォルト値
  10.911 +です。実際に変数の値を変更する場合は `M-x describe-variable' で変数の
  10.912 +詳細な説明を参照してください。
  10.913  
  10.914   -- Variable: YaTeX-prefix
  10.915       yatex-mode 中のプリフィクスキー (`\C-c')
  10.916 @@ -1759,8 +1786,8 @@
  10.917       displaylineを起動するコマンド
  10.918       (code{"/Applications/Skim.app/Contents/SharedSupport/displayline"})
  10.919   -- Variable: YaTeX-cmd-edit-ps
  10.920 -     PostScriptファイルを編集するコマンド (変数code{"YaTeX-cmd-gimp"}の
  10.921 -     値)
  10.922 +     PostScriptファイルを編集するコマンド (変数code{"YaTeX-cmd-gimp"}
  10.923 +     の値)
  10.924   -- Variable: YaTeX-cmd-edit-pdf
  10.925       PDFファイルを編集するコマンド (変数code{"YaTeX-cmd-ooo"}の値)
  10.926   -- Variable: YaTeX-cmd-edit-ai
  10.927 @@ -1768,8 +1795,8 @@
  10.928   -- Variable: YaTeX-cmd-edit-svg
  10.929       SVGファイルを編集するコマンド (変数code{"YaTeX-cmd-inkscape"}の値)
  10.930   -- Variable: YaTeX-cmd-edit-images
  10.931 -     その他画像ファイルを編集するコマンド (変数code{"YaTeX-cmd-gimp"}の
  10.932 -     値)
  10.933 +     その他画像ファイルを編集するコマンド (変数code{"YaTeX-cmd-gimp"}
  10.934 +     の値)
  10.935  
  10.936   -- Variable: YaTeX-need-nonstop
  10.937       `\nonstopmode{}'を自動的に付加するか (`nil')
  10.938 @@ -1809,8 +1836,8 @@
  10.939  
  10.940   -- Variable: YaTeX-fill-inhibit-environments
  10.941       fill を抑止する環境名のリスト (`'("tabular" "tabular*" "array"
  10.942 -     picture" "eqnarray" "eqnarray*" "equation" "math" "displaymath"
  10.943 -     verbatim" "verbatim*")')
  10.944 +     "picture" "eqnarray" "eqnarray*" "equation" "math" "displaymath"
  10.945 +     "verbatim" "verbatim*")')
  10.946  
  10.947   -- Variable: YaTeX-uncomment-once
  10.948       領域uncommentで行頭の複数の`%'を全て削除するか (`nil')
  10.949 @@ -1840,9 +1867,9 @@
  10.950       入力に入る (`nil')
  10.951  
  10.952   -- Variable: YaTeX-hilit-pattern-adjustment-private
  10.953 -     正規表現とそれにマッチするものの論理的意味をシンボルであらわしたも
  10.954 -     ののリスト…のリスト。hilit19 を組み込んでいる時のみ有効。詳しくは
  10.955 -     `(assq 'yatex-mode hilit-patterns-alist)' した結果と、変数
  10.956 +     正規表現とそれにマッチするものの論理的意味をシンボルであらわした
  10.957 +     もののリスト…のリスト。hilit19 を組み込んでいる時のみ有効。詳し
  10.958 +     くは `(assq 'yatex-mode hilit-patterns-alist)' した結果と、変数
  10.959       `YaTeX-hilit-pattern-adjustment-default' の値(と場合によっては
  10.960       hilit19 のドキュメント)を参照せよ。
  10.961  
  10.962 @@ -1851,9 +1878,10 @@
  10.963  
  10.964   -- Variable: YaTeX-hierarchy-ignore-heading-regexp
  10.965       Hierarchy バッファは通常ファイルヘッダとして、LaTeXのセクション宣
  10.966 -     言コマンドの引数を検索し、それがなければコメント行を探すが、その際
  10.967 -     にヘッダとしては意味を持たないパターンをこの変数に設定する。デフォ
  10.968 -     ルトでは RCS ヘッダとモード指定行(-*- xxx -*-)が設定されている。
  10.969 +     言コマンドの引数を検索し、それがなければコメント行を探すが、その
  10.970 +     際にヘッダとしては意味を持たないパターンをこの変数に設定する。デ
  10.971 +     フォルトでは RCS ヘッダとモード指定行(-*- xxx -*-)が設定されてい
  10.972 +     る。
  10.973  
  10.974   -- Variable: YaTeX-skip-default-reader
  10.975       Non-nil に設定するとsection型コマンドの引数入力時、アドイン関数が
  10.976 @@ -1868,9 +1896,9 @@
  10.977  
  10.978   -- Variable: YaTeX-hilit-sectioning-face
  10.979       色付けが有効な時の `\part' の色 (`'(yellow/dodgerblue
  10.980 -     yellow/slateblue)')。リストの第一要素は `hilit-background-mode' が
  10.981 -     `'light' の時の、第二要素は `'dark' の時の `\chapter' の色で、文字
  10.982 -     色/背景色 のように指定する。
  10.983 +     yellow/slateblue)')。リストの第一要素は `hilit-background-mode'
  10.984 +     が `'light' の時の、第二要素は `'dark' の時の `\chapter' の色で、
  10.985 +     文字色/背景色 のように指定する。
  10.986  
  10.987   -- Variable: YaTeX-hilit-sectioning-attenuation-rate
  10.988       色付けが有効な時の、`\subparagraph' の色を `\chapter' の濃度の何%
  10.989 @@ -1910,7 +1938,7 @@
  10.990       LaTeX2eのパッケージ名とその中に含まれるマクロのリスト。適切に設定
  10.991       しておくと本文入力時にマクロを補完入力するとそのマクロに必要なパッ
  10.992       ケージを usepackage するか自動的に検査してくれる。していなければ
  10.993 -     usepackage を自動追加することもできる。リストは'((パッケージ名1
  10.994 +     \usepackage を自動追加することもできる。リストは'((パッケージ名1
  10.995       (補完タイプ マクロのリスト……) (補完タイプ マクロのリスト……))
  10.996       (パッケージ名2 (補完タイプ マクロのリスト……) (補完タイプ マクロ
  10.997       のリスト……))………)という形式にする。補完タイプは `env,
  10.998 @@ -1923,8 +1951,8 @@
  10.999       する。
 10.1000  
 10.1001   -- Variable: YaTeX-noindent-env-regexp
 10.1002 -     別の環境内にあっても \begin{} が行頭から始まるべき環境名の正規表現。
 10.1003 -     verbatim環境などを指定する。
 10.1004 +     別の環境内にあっても \begin{} が行頭から始まるべき環境名の正規表
 10.1005 +     現。verbatim環境などを指定する。
 10.1006  
 10.1007   -- Variable: YaTeX-electric-indent-mode
 10.1008       Emacs 24.4 で導入された改行時の、自動インデントをどうするか。
 10.1009 @@ -1936,14 +1964,14 @@
 10.1010       の書式。strftime(3)関数に似た日付ベースで指定する。利用できる書式
 10.1011       は以下のとおり。%y -> 西暦下二桁, %b -> 月の英名, %m -> 月(1〜12)
 10.1012       %d -> 日, %H -> 時, %M -> 分, %S -> 秒, %qx -> アルファベットで26
 10.1013 -     進数化した yymmdd.  %qX -> アルファベットで26進数化した HHMMSS. デ
 10.1014 -     フォルトは "%H%M%S_%d%b%y"
 10.1015 +     進数化した yymmdd.  %qX -> アルファベットで26進数化した
 10.1016 +     HHMMSS. デフォルトは "%H%M%S_%d%b%y"
 10.1017  
 10.1018   -- Variable: YaTeX-ref-generate-label-function
 10.1019 -     \ref{}のラベル名自動生成のときに使う関数のシンボル。デフォルトは標
 10.1020 -     準の YaTeX::ref-generate-label 関数が割り当ててある。引数を2つ取る
 10.1021 -     関数を定義して、この変数にセットするとその関数を呼んだ結果をデフォ
 10.1022 -     ルトのラベル名候補とする。設定例:
 10.1023 +     \ref{}のラベル名自動生成のときに使う関数のシンボル。デフォルトは
 10.1024 +     標準の YaTeX::ref-generate-label 関数が割り当ててある。引数を2つ
 10.1025 +     取る関数を定義して、この変数にセットするとその関数を呼んだ結果を
 10.1026 +     デフォルトのラベル名候補とする。設定例:
 10.1027              (setq YaTeX-ref-generate-label-function 'my-yatex-generate-label)
 10.1028              (defun my-yatex-generate-label (command value)
 10.1029                (and (string= command "caption")
 10.1030 @@ -1984,20 +2012,21 @@
 10.1031  
 10.1032    また、hook 変数 `yatex-mode-hook', `yatex-mode-load-hook' を用意して
 10.1033  います。すべての yatex-mode のバッファで作用させたいものは、
 10.1034 -`yatex-mode-hook' に記述し、`yatex.el' をロードする時だけ作用させたいも
 10.1035 -のは`yatex-mode-load-hook' に記述します。例えば、`outline-minor-mode'
 10.1036 -を利用する場合、それぞれのバッファで `outline-minor-mode' を有効にした
 10.1037 -いので、`yatex-mode-hook' を次のように設定します。
 10.1038 +`yatex-mode-hook' に記述し、`yatex.el' をロードする時だけ作用させたい
 10.1039 +ものは`yatex-mode-load-hook' に記述します。例えば、
 10.1040 +`outline-minor-mode' を利用する場合、それぞれのバッファで
 10.1041 +`outline-minor-mode' を有効にしたいので、`yatex-mode-hook' を次のよう
 10.1042 +に設定します。
 10.1043  
 10.1044               (setq yatex-mode-hook
 10.1045                     '(lambda () (outline-minor-mode t)))
 10.1046  
 10.1047  
 10.1048 -逆に、独自のキー定義を行いたい時などは、`yatex-mode-load-hook' を利用し
 10.1049 -ます。例えば、begin 型補完において、 document や、enumerate 以外の環境
 10.1050 -名もショートカットキーで入れたいなどという時は、次のようにします。以下
 10.1051 -の例は、`[prefix] ba' で `\begin{abstract}', `\end{abstract}' を挿入し
 10.1052 -ます。
 10.1053 +逆に、独自のキー定義を行いたい時などは、`yatex-mode-load-hook' を利用
 10.1054 +します。例えば、begin 型補完において、 document や、enumerate 以外の環
 10.1055 +境名もショートカットキーで入れたいなどという時は、次のようにします。以
 10.1056 +下の例は、`[prefix] ba' で `\begin{abstract}', `\end{abstract}' を挿入
 10.1057 +します。
 10.1058  
 10.1059               (setq yatex-mode-load-hook
 10.1060                     '(lambda() (YaTeX-define-begend-key "ba" "abstract")))
 10.1061 @@ -2012,9 +2041,9 @@
 10.1062  hook用ファイル
 10.1063  --------------
 10.1064  
 10.1065 -  変数 `yatex-mode-load-hook' で定義する内容が多い時は、`yatexhks.el'と
 10.1066 -いうファイルを作り、その中に野鳥関連の設定を書く事で、初期化の時に自動
 10.1067 -的にロードします。
 10.1068 +  変数 `yatex-mode-load-hook' で定義する内容が多い時は、`yatexhks.el'
 10.1069 +というファイルを作り、その中に野鳥関連の設定を書く事で、初期化の時に自
 10.1070 +動的にロードします。
 10.1071  
 10.1072  
 10.1073  
 10.1074 @@ -2035,12 +2064,12 @@
 10.1075  その他
 10.1076  ******
 10.1077  
 10.1078 -  野鳥の標準の LaTeX コマンドの辞書には、作者が頻繁に使うものしか登録さ
 10.1079 -れていません。これは、補完候補に使いそうもないコマンドが存在して、補完
 10.1080 -したいコマンドを出すまでのストローク数を増やしてしまう事を防止するため
 10.1081 -です。標準辞書にないコマンドも、できるだけ補完入力方式を利用し、ユーザ
 10.1082 -辞書を充実させることで、あなたの LaTeX スタイルにあった野鳥へと育ってい
 10.1083 -くことでしょう。
 10.1084 +  野鳥の標準の LaTeX コマンドの辞書には、作者が頻繁に使うものしか登録
 10.1085 +されていません。これは、補完候補に使いそうもないコマンドが存在して、補
 10.1086 +完したいコマンドを出すまでのストローク数を増やしてしまう事を防止するた
 10.1087 +めです。標準辞書にないコマンドも、できるだけ補完入力方式を利用し、ユー
 10.1088 +ザ辞書を充実させることで、あなたの LaTeX スタイルにあった野鳥へと育っ
 10.1089 +ていくことでしょう。
 10.1090  
 10.1091  
 10.1092  
 10.1093 @@ -2059,8 +2088,8 @@
 10.1094  なるコード流用も拒否しませんが契約締結は辞退します。
 10.1095  
 10.1096    苦情、希望、バグ報告、感想等は歓迎いたします。連絡は yuuji@yatex.org
 10.1097 -まで(2004年1月現在)。継続的に使用してくださる方はメイリングリスト「fj野
 10.1098 -鳥の会」に是非加入してください。加入方法については本パッケージの
 10.1099 +まで(2017年9月現在)。継続的に使用してくださる方はメイリングリスト「fj
 10.1100 +野鳥の会」に是非加入してください。加入方法については本パッケージの
 10.1101  `docs/qanda'ファイルの「その他」の章を御覧ください。
 10.1102  
 10.1103  仕様は、予告なく確実に(気分次第で)変更されます:-p。
 10.1104 @@ -2076,128 +2105,130 @@
 10.1105  
 10.1106  * Menu:
 10.1107  
 10.1108 +* 引数の個数を変える[ひきすうのこすうをかえる]: 2個以上の引数をとる section型コマンド.  (line  26)
 10.1109 +* 引数[ひきすう]:               2個以上の引数をとる section型コマンド.  (line   5)
 10.1110 +* 欧文[おうふん]:               Accent mark completion.  (line   5)
 10.1111 +* アクセント記号補完[あくせんときこうほかん]: Accent mark completion.  (line   5)
 10.1112 +* カスタマイズ変数一覧[かすたまいすへんすういちらん]: All customizable variables.  (line   5)
 10.1113 +* 随時補完[すいしほかん]:       Arbitrary completion.   (line   5)
 10.1114 +* %#BEGIN:                      Fix region for typesetting.  (line   5)
 10.1115 +* C-c:                          Invocation.             (line   5)
 10.1116 +* エラー修正[えらあしゆうせい]: Calling typesetter.     (line   5)
 10.1117 +* タイプセットエラー[たいふせつとえらあ]: Calling typesetter.  (line   5)
 10.1118 +* タイプセッタ起動[たいふせつたきとう]: Calling typesetter.  (line   5)
 10.1119 +* 環境名の変更[かんきようめいのへんこう]: Changing LaTeX command.  (line  21)
 10.1120 +* モード切り替え[もうときりかえ]: Changing mode of YaTeX.  (line   5)
 10.1121 +* タイプセッタの使い分け[たいふせつたのつかいわけ]: Changing typesetter.  (line  13)
 10.1122 +* 起動するコマンドを変える[きとうするこまんとをかえる]: Changing typesetter.  (line   8)
 10.1123 +* コメントアウト[こめんとあうと]: Commenting out.       (line   5)
 10.1124 +* その他のコマンド制御[そのたのこまんとせいきよ]: Controlling which command to invoke.  (line   5)
 10.1125 +* 他パッケージとの連携[たはつけえしとのれんけい]: Cooperation with other packages.  (line   5)
 10.1126 +* ヒストリ[ひすとり]:           Cooperation with other packages.  (line   9)
 10.1127 +* コマンドヒストリ[こまんとひすとり]: Cooperation with other packages.  (line   9)
 10.1128 +* カーソルジャンプ[かあそるしやんふ]: Cursor jump.      (line   5)
 10.1129 +* キーアサイン[きいあさいん]:   Customizations.         (line   5)
 10.1130 +* カスタマイズ[かすたまいす]:   Customizations.         (line   5)
 10.1131 +* Demacs:                       Intro.                  (line   5)
 10.1132 +* %#END:                        Fix region for typesetting.  (line   5)
 10.1133 +* %#記法自体の編集[%#きほうしたいのへんしゆう]: Editing %# notation.  (line   5)
 10.1134 +* 括る[くくる]:                 Enclose section-type command.  (line   5)
 10.1135 +* パラグラフの桁揃え[はらくらふのけたそろえ]: Filling.  (line  48)
 10.1136 +* 桁揃え[けたそろえ]:           Filling.                (line   5)
 10.1137 +* 領域決定規則[りよういきけつていきそく]: Fix region for typesetting.  (line  27)
 10.1138 +* 長いファイルの編集[なかいふあいるのへんしゆう]: Fix region for typesetting.  (line  36)
 10.1139 +* 固定領域のタイプセット[こていりよういきのたいふせつと]: Fix region for typesetting.  (line   5)
 10.1140  * ::                            Greek letter completion.  (line   5)
 10.1141 +* ギリシャ文字補完[きりしやもしほかん]: Greek letter completion.  (line   5)
 10.1142 +* ;自身[;ししん]:               Image completion.       (line  34)
 10.1143 +* ∞[むけんたい]:               Image completion.       (line   5)
 10.1144 +* Σ[しくま]:                   Image completion.       (line   5)
 10.1145 +* 矢印[やしるし]:               Image completion.       (line   5)
 10.1146 +* 数式モード[すうしきもおと]:   Image completion.       (line   5)
 10.1147  * ;:                            Image completion.       (line   5)
 10.1148 -* Σ[しくま]:                   Image completion.       (line   5)
 10.1149 -* 括る[くくる]:                 Enclose section-type command.  (line   5)
 10.1150 -* 括る[くくる]:                 large伍補完.            (line  23)
 10.1151 -* 引数[ひきすう]:               2個以上の引数をとるsection伍υン.  (line   5)
 10.1152 -* 欧文[おうふん]:               Accent mark completion.  (line   5)
 10.1153 -* ∞[むけんたい]:               Image completion.       (line   5)
 10.1154 -* 矢印[やしるし]:               Image completion.       (line   5)
 10.1155 -* ;ゥ千[;ししん]:               Image completion.       (line  34)
 10.1156 -* ロ窿ホ[ふろつく]:           begin伍補完.            (line  82)
 10.1157 -* リ辜骸ひすとり]:           Cooperation with other packages.  (line   9)
 10.1158 -* 桁揃え[けたそろえ]:           Filling.                (line   5)
 10.1159 +* イメージ補完[いめえしほかん]: Image completion.       (line   5)
 10.1160 +* 数式記号イメージ補完[すうしききこういめえしほかん]: Image completion.  (line   5)
 10.1161 +* 他のファイルの手直し[ほかのふあいるのてなおし]: Includeonly.  (line  12)
 10.1162 +* インクルード構造[いんくるうとこうそう]: Inclusion hierarchy browser.  (line   5)
 10.1163 +* 括弧入力補助[かつこにゆうりよくほしよ]: Inserting parens.  (line   5)
 10.1164 +* Install:                      Installation.           (line   5)
 10.1165 +* インストール[いんすとおる]:   Installation.           (line   5)
 10.1166 +* &入力[&にゆうりよく]:         Intelligent newline.    (line   5)
 10.1167 +* おまかせ改行[おまかせかいきよう]: Intelligent newline.  (line   5)
 10.1168  * やちょう[やちよう]:           Intro.                  (line   5)
 10.1169 -* ラャン[しやんふ]:           view-sectioning.        (line  44)
 10.1170 -* &入力[&にゆうりよく]:         Intelligent newline.    (line   5)
 10.1171 +* プリントアウト[ふりんとあうと]: Invocation.           (line   5)
 10.1172 +* プレヴューア[ふれひゆうあ]:   Invocation.             (line   5)
 10.1173 +* タイプセッタ[たいふせつた]:   Invocation.             (line   5)
 10.1174 +* 環境の削除[かんきようのさくしよ]: Killing LaTeX command.  (line   7)
 10.1175 +* LaTeX:                        Intro.                  (line   5)
 10.1176 +* ローカル辞書[ろおかるししよ]: Local dictionary.       (line   5)
 10.1177 +* M-C-a:                        環境を単位としたジャンプ.  (line   8)
 10.1178 +* M-C-e:                        環境を単位としたジャンプ.  (line   8)
 10.1179 +* M-C-                        環境を単位としたジャンプ.  (line   8)
 10.1180 +* M-q:                          Filling.                (line  48)
 10.1181 +* 変更/削除[へんこう/さくしよ]: Modifying/Deleting.     (line   5)
 10.1182 +* Mule:                         Intro.                  (line   5)
 10.1183 +* NTT-jTeX[えぬていいていいしえいてつく]: Filling.      (line  16)
 10.1184 +* プライベートヘルプ[ふらいへえとへるふ]: Online help.  (line  17)
 10.1185 +* グローバルヘルプ[くろおはるへるふ]: Online help.      (line  17)
 10.1186 +* キーワード検索[きいわあとけんさく]: Online help.      (line   5)
 10.1187 +* オンラインヘルプ[おんらいんへるふ]: Online help.      (line   5)
 10.1188 +* 出力終了ページ[しゆつりよくしゆうりようへえし]: Print out.  (line  10)
 10.1189 +* 出力開始ページ[しゆつりよくかいしへえし]: Print out.  (line  10)
 10.1190 +* 再帰補完[さいきほかん]:       Recursive completion.   (line   5)
 10.1191  * 設定例[せつていれい]:         Sample definitions.     (line   5)
 10.1192 -* 随時補完[すいしほかん]:       Arbitrary completion.   (line   5)
 10.1193 -* 閉じ込める[としこめる]:       begin伍補完.            (line  82)
 10.1194 -* 再驚補完[さいきほかん]:       Recursive completion.   (line   5)
 10.1195 -* ユ⊥ψォ書ロゆうさししよ]:     begin伍補完.            (line  72)
 10.1196 -* 倚理翰濁[ろんりかいそう]:     view-sectioning.        (line  44)
 10.1197 +* 入力ファイル分割[にゆうりよくふあいるふんかつ]: Splitting input files.  (line  12)
 10.1198 +* 現在のカラム表示[けんさいのからむひようし]: What column.  (line  25)
 10.1199  * ここはどこ?[ここはとこ?]:     What column.            (line   5)
 10.1200 -* μリ゙εル[かすたまいす]:   Customizations.         (line   5)
 10.1201 -* ξ⊥γχεン[きいあさいん]:   Customizations.         (line   5)
 10.1202 -* 数ョモ⊥鐚すうしきもおと]:   Image completion.       (line   5)
 10.1203 -* εンリ轣ロル[いんすとおる]:   Installation.           (line   5)
 10.1204 -* ゙εレ窿゙[たいふせつた]:   Invocation.             (line   5)
 10.1205 -* レヴュ⊥γ[ふれひゆうあ]:   Invocation.             (line   5)
 10.1206 -* お管歩き縺ロル勤動[おえかきつうるきとう]: お管歩き縺ロル勤動.  (line   5)
 10.1207 -* 環境の先頭へ[かんきようのせんとうへ]: 環境を漬位としたラャン.  (line   8)
 10.1208 -* 環境の末尾へ[かんきようのまつひへ]: 環境を漬位としたラャン.  (line   8)
 10.1209 -* 環境を⊥π[かんきようをまあく]: 環境を漬位としたラャン.  (line   8)
 10.1210 -* γη辜宴テン[あうとらいん]:   view-sectioning.        (line   5)
 10.1211 -* 引数の個数を変える[ひきすうのこすうをかえる]: 2個以上の引数をとるsection伍υン.  (line  26)
 10.1212 -* γπレン迢フ号補完[あくせんときこうほかん]: Accent mark completion.  (line   5)
 10.1213 -* μリ゙εル変数一覧[かすたまいすへんすういちらん]: All customizable variables.  (line   5)
 10.1214 -* 環境名の補完[かんきようめいのほかん]: begin伍補完.    (line   5)
 10.1215 -* ιラ⊥湘衰zえらあしゆうせい]: Calling typesetter.     (line   5)
 10.1216 -* ゙εレ窿゙勤動[たいふせつたきとう]: Calling typesetter.  (line   5)
 10.1217 -* ゙εレ窿辜ヌラ⊥[たいふせつとえらあ]: Calling typesetter.  (line   5)
 10.1218 -* 環境名の変菜[かんきようめいのへんこう]: Changing LaTeX command.  (line  21)
 10.1219 -* モ⊥關リり替え[もうときりかえ]: Changing mode of YaTeX.  (line   5)
 10.1220 -* 勤動するυン閧変える[きとうするこまんとをかえる]: Changing typesetter.  (line   8)
 10.1221 -* ゙εレ窿゙の守い分け[たいふせつたのつかいわけ]: Changing typesetter.  (line  13)
 10.1222 -* υメン辜チη躰こめんとあうと]: Commenting out.       (line   5)
 10.1223 -* その他のυン關ァ御[そのたのこまんとせいきよ]: Controlling which command to invoke.  (line   5)
 10.1224 -* 他窿ミ⊥ラとの价檎[たはつけえしとのれんけい]: Cooperation with other packages.  (line   5)
 10.1225 -* υン閭リ辜骸こまんとひすとり]: Cooperation with other packages.  (line   9)
 10.1226 -* μ⊥ワルラャン[かあそるしやんふ]: Cursor jump.      (line   5)
 10.1227 -* %#粁迷ゥ体の編 %#きほうしたいのへんしゆう]: Editing %# notation.  (line   5)
 10.1228 -* ラρラの桁揃え[はらくらふのけたそろえ]: Filling.  (line  48)
 10.1229 -* 固定領域の゙εレ窿躰こていりよういきのたいふせつと]: Fix region for typesetting.  (line   5)
 10.1230 -* 領域決定桐則[りよういきけつていきそく]: Fix region for typesetting.  (line  27)
 10.1231 -* 長いβεルの編 なかいふあいるのへんしゆう]: Fix region for typesetting.  (line  36)
 10.1232 -* οリωャ文字補完[きりしやもしほかん]: Greek letter completion.  (line   5)
 10.1233 -* εメ⊥ラ補完[いめえしほかん]: Image completion.       (line   5)
 10.1234 -* 数ョ粁号εメ⊥ラ補完[すうしききこういめえしほかん]: Image completion.  (line   5)
 10.1235 -* 他のβεルの手直し[ほかのふあいるのてなおし]: Includeonly.  (line  12)
 10.1236 -* εンπル⊥闕ワ造[いんくるうとこうそう]: Inclusion hierarchy browser.  (line   5)
 10.1237 -* 括弧入力補助ロかつこにゆうりよくほしよ]: Inserting parens.  (line   5)
 10.1238 -* おまかせ改窄[おまかせかいきよう]: Intelligent newline.  (line   5)
 10.1239 -* リン辜チη躰ふりんとあうと]: Invocation.           (line   5)
 10.1240 -* 環境の削除ロかんきようのさくしよ]: Killing LaTeX command.  (line   7)
 10.1241 -* ラルゥ動生成[らへるしとうせいせい]: label-generation.  (line   5)
 10.1242 -* κン邇定首[ふおんとしていし]: large伍補完.        (line  19)
 10.1243 -* 文字χεル樹定首[もしさいすしていし]: large伍補完.    (line  19)
 10.1244 -* ロ⊥μルォ書ロろおかるししよ]: Local dictionary.       (line   5)
 10.1245 -* 変菜/削除ロへんこう/さくしよ]: Modifying/Deleting.     (line   5)
 10.1246 -* λンラεンル[おんらいんへるふ]: Online help.      (line   5)
 10.1247 -* ξ⊥ワ⊥闌沚[きいわあとけんさく]: Online help.      (line   5)
 10.1248 -* ρロ⊥ルル[くろおはるへるふ]: Online help.      (line  17)
 10.1249 -* ラε⊥辜ル[ふらいへえとへるふ]: Online help.  (line  17)
 10.1250 -* 入力βεル分割[にゆうりよくふあいるふんかつ]: Splitting input files.  (line  12)
 10.1251 -* レπωョン区切り一覧窿β[せくしよんくきりいちらんはつふあ]: view-sectioning.  (line  20)
 10.1252 -* レπωョン区切り[せくしよんくきり]: view-sectioning.  (line  44)
 10.1253 -* 現在のμラム舗ヲ[けんさいのからむひようし]: What column.  (line  24)
 10.1254 +* YaTeX-help-file:              Online help.            (line  17)
 10.1255 +* YaTeX-help-file-private:      Online help.            (line  17)
 10.1256 +* YaTeX-item-regexp:            Filling.                (line  21)
 10.1257 +* YaTeX-math-sign-alist-private: Image completion.      (line  61)
 10.1258 +* YaTeX-nervous:                Local dictionary.       (line  23)
 10.1259  * apropos:                      Online help.            (line   5)
 10.1260 +* auto-mode-alist:              Installation.           (line   5)
 10.1261  * autoload:                     Installation.           (line   5)
 10.1262 -* auto-mode-alist:              Installation.           (line   5)
 10.1263 -* %#BEGIN:                      Fix region for typesetting.  (line   5)
 10.1264 -* begin伍補完[beginかたほかん]: begin伍補完.            (line   5)
 10.1265 -* C-c:                          Invocation.             (line   5)
 10.1266 -* Demacs:                       Intro.                  (line   5)
 10.1267 +* begin型補完[beginかたほかん]: begin型補完.            (line   5)
 10.1268 +* 環境名の補完[かんきようめいのほかん]: begin型補完.    (line   5)
 10.1269 +* ユーザ辞書[ゆうさししよ]:     begin型補完.            (line  72)
 10.1270 +* 閉じ込める[としこめる]:       begin型補完.            (line  82)
 10.1271 +* ブロック[ふろつく]:           begin型補完.            (line  82)
 10.1272  * .emacs:                       Installation.           (line   5)
 10.1273 -* %#END:                        Fix region for typesetting.  (line   5)
 10.1274  * end補完[endほかん]:           end補完.                (line   5)
 10.1275  * ghostview:                    Splitting input files.  (line  17)
 10.1276  * gmhist:                       Cooperation with other packages.  (line   9)
 10.1277  * hook変数[hookへんすう]:       Hook variables.         (line   5)
 10.1278 -* 擾力終了⊥ラ[しゆつりよくしゆうりようへえし]: Print out.  (line  10)
 10.1279  * includeonly:                  Includeonly.            (line   5)
 10.1280 -* Install:                      Installation.           (line   5)
 10.1281 +* 勝手にincludeonly[かつてにincludeonly]: Includeonly.  (line   5)
 10.1282  * itemなどの桁揃え[itemなとのけたそろえ]: Filling.      (line   9)
 10.1283 -* 擾力開腫⊥ラ[しゆつりよくかいしへえし]: Print out.  (line  10)
 10.1284  * jlatex:                       Invocation.             (line   5)
 10.1285 -* large伍補完[largeかたほかん]: large伍補完.            (line   5)
 10.1286 -* LaTeX:                        Intro.                  (line   5)
 10.1287 +* ラベル自動生成[らへるしとうせいせい]: label-generation.  (line   5)
 10.1288 +* large型補完[largeかたほかん]: large型補完.            (line   5)
 10.1289 +* フォント指定子[ふおんとしていし]: large型補完.        (line  19)
 10.1290 +* 文字サイズ指定子[もしさいすしていし]: large型補完.    (line  19)
 10.1291 +* 括る[くくる]:                 large型補完.            (line  23)
 10.1292  * leftarrow:                    Image completion.       (line   5)
 10.1293 +* お絵描きツール起動[おえかきつうるきとう]: お絵描きツール起動.  (line   5)
 10.1294 +* 環境をマーク[かんきようをまあく]: 環境を単位としたジャンプ.  (line   8)
 10.1295 +* 環境の末尾へ[かんきようのまつひへ]: 環境を単位としたジャンプ.  (line   8)
 10.1296 +* 環境の先頭へ[かんきようのせんとうへ]: 環境を単位としたジャンプ.  (line   8)
 10.1297  * lpr format:                   lpr format.             (line   5)
 10.1298 -* lprκ⊥窿轤フ変菜[lprふおおまつとのへんこう]: Editing %# notation.  (line  20)
 10.1299 -* lprふぉ⊥まっと[lprふおおまつと]: lpr format.         (line   5)
 10.1300 -* lprκ⊥窿躰lprふおおまつと]: lpr format.         (line   5)
 10.1301 -* maketitle伍補完[maketitleかたほかん]: maketitle伍補完.  (line   5)
 10.1302 -* M-C-@:                        環境を漬位としたラャン.  (line   8)
 10.1303 -* M-C-a:                        環境を漬位としたラャン.  (line   8)
 10.1304 -* M-C-e:                        環境を漬位としたラャン.  (line   8)
 10.1305 +* lprフォーマットの変更[lprふおおまつとのへんこう]: Editing %# notation.  (line  20)
 10.1306 +* ページ確認省略lpr起動[へえしかくにんしようりやくlprきとう]: Print out.  (line  13)
 10.1307 +* lprフォーマット[lprふおおまつと]: lpr format.         (line   5)
 10.1308 +* lprふぉーまっと[lprふおおまつと]: lpr format.         (line   5)
 10.1309 +* maketitle型補完[maketitleかたほかん]: maketitle型補完.  (line   5)
 10.1310  * min-out:                      Cooperation with other packages.  (line  18)
 10.1311 -* M-q:                          Filling.                (line  48)
 10.1312 -* Mule:                         Intro.                  (line   5)
 10.1313 -* 勝手u穎cludeonly[かつてにincludeonly]: Includeonly.  (line   5)
 10.1314 -* NTT-jTeX[えぬていいていいしえいてつく]: Filling.      (line  16)
 10.1315  * platex:                       Invocation.             (line   5)
 10.1316  * prefix ,:                     Commenting out.         (line   5)
 10.1317  * prefix .:                     Commenting out.         (line   5)
 10.1318 +* prefix >:                     Commenting out.         (line   5)
 10.1319  * prefix <:                     Commenting out.         (line   5)
 10.1320 -* prefix >:                     Commenting out.         (line   5)
 10.1321  * prefix /:                     Online help.            (line   5)
 10.1322  * prefix ?:                     Online help.            (line   5)
 10.1323 +* prefix SPC:                   Arbitrary completion.   (line   5)
 10.1324  * prefix &:                     What column.            (line   5)
 10.1325  * prefix a:                     Accent mark completion.  (line   5)
 10.1326 -* prefix b:                     begin伍補完.            (line   5)
 10.1327 +* prefix b:                     begin型補完.            (line   5)
 10.1328  * prefix c:                     Modifying/Deleting.     (line   5)
 10.1329  * prefix d:                     Inclusion hierarchy browser.  (line   5)
 10.1330  * prefix e:                     end補完.                (line   5)
 10.1331 @@ -2205,23 +2236,21 @@
 10.1332  * prefix i:                     Filling.                (line   9)
 10.1333  * prefix k:                     Modifying/Deleting.     (line   5)
 10.1334  * prefix key:                   Invocation.             (line   5)
 10.1335 -* prefix l:                     large伍補完.            (line   5)
 10.1336 -* prefix m:                     maketitle伍補完.        (line   5)
 10.1337 -* prefix s:                     section伍補完.          (line   5)
 10.1338 -* prefix SPC:                   Arbitrary completion.   (line   5)
 10.1339 +* prefix l:                     large型補完.            (line   5)
 10.1340 +* prefix m:                     maketitle型補完.        (line   5)
 10.1341 +* prefixキー変更[prefixきいへんこう]: Lisp variables.   (line   5)
 10.1342 +* prefix s:                     section型補完.          (line   5)
 10.1343  * prefix w:                     Changing mode of YaTeX.  (line   5)
 10.1344 -* prefixξ⊥変菜[prefixきいへんこう]: Lisp variables.   (line   5)
 10.1345 -* ⊥ラ器犯省羅麪r勤動[へえしかくにんしようりやくlprきとう]: Print out.  (line  13)
 10.1346 -* section伍補完[sectionかたほかん]: section伍補完.      (line   5)
 10.1347 -* 複ヌなtabular[ふくさつなtabular]: What column.        (line   5)
 10.1348 +* section型補完[sectionかたほかん]: section型補完.      (line   5)
 10.1349 +* 複雑なtabular[ふくさつなtabular]: What column.        (line   5)
 10.1350  * 先回りusepackage[さきまわり]: Usepackage cheker.      (line   5)
 10.1351 -* YaTeX-help-file:              Online help.            (line  17)
 10.1352 -* YaTeX-help-file-private:      Online help.            (line  17)
 10.1353 -* YaTeX-item-regexp:            Filling.                (line  21)
 10.1354 -* YaTeX-math-sign-alist-private: Image completion.      (line  61)
 10.1355 +* セクション区切り一覧バッファ[せくしよんくきりいちらんはつふあ]: view-sectioning.  (line  20)
 10.1356 +* ジャンプ[しやんふ]:           view-sectioning.        (line  44)
 10.1357 +* セクション区切り[せくしよんくきり]: view-sectioning.  (line  44)
 10.1358 +* 論理階層[ろんりかいそう]:     view-sectioning.        (line  44)
 10.1359 +* アウトライン[あうとらいん]:   view-sectioning.        (line   5)
 10.1360  * yatex-mode-hook:              Hook variables.         (line   5)
 10.1361  * yatex-mode-load-hook:         Hook variables.         (line   5)
 10.1362 -* YaTeX-nervous:                Local dictionary.       (line  23)
 10.1363  * .yatexrc:                     Local dictionary.       (line   5)
 10.1364  
 10.1365  Tag table:
 10.1366 @@ -2229,63 +2258,63 @@
 10.1367  Node: Intro1311
 10.1368  Node: Terminology1614
 10.1369  Node: Main features2254
 10.1370 -Node: Installation3316
 10.1371 -Node: Invocation4546
 10.1372 -Node: Calling typesetter5406
 10.1373 -Node: Calling previewer6867
 10.1374 -Node: Print out7183
 10.1375 -Node: %#notation7449
 10.1376 -Node: Changing typesetter7877
 10.1377 -Node: Splitting input files8135
 10.1378 -Node: Fix region for typesetting9091
 10.1379 -Node: lpr format9999
 10.1380 -Node: Controlling which command to invoke10809
 10.1381 -Node: Editing %# notation11523
 10.1382 -Node: Completion11981
 10.1383 -Node: begin型補完12392
 10.1384 -Node: section型補完15141
 10.1385 -Node: 2個以上の引数をとる section型コマンド16234
 10.1386 -Node: Enclose section-type command17048
 10.1387 -Node: Recursive completion17372
 10.1388 -Node: view-sectioning17677
 10.1389 -Node: label-generation18873
 10.1390 -Node: large型補完19223
 10.1391 -Node: maketitle型補完19757
 10.1392 -Node: Arbitrary completion20056
 10.1393 -Node: end補完20369
 10.1394 -Node: Accent mark completion20710
 10.1395 -Node: Image completion21135
 10.1396 -Node: Greek letter completion22950
 10.1397 -Node: Inserting parens23434
 10.1398 -Node: Local dictionary23782
 10.1399 -Node: Commenting out24386
 10.1400 -Node: Cursor jump25546
 10.1401 -Node: 対応オブジェクトへのジャンプ25763
 10.1402 -Node: お絵描きツール起動26749
 10.1403 -Node: メインファイルへのジャンプ27664
 10.1404 -Node: 環境を単位としたジャンプ28000
 10.1405 -Node: 最後の補完位置へのジャンプ28357
 10.1406 -Node: Modifying/Deleting28594
 10.1407 -Node: Changing LaTeX command29000
 10.1408 -Node: Killing LaTeX command29550
 10.1409 -Node: Filling30422
 10.1410 -Node: Includeonly31752
 10.1411 -Node: What column32313
 10.1412 -Node: Intelligent newline33092
 10.1413 -Node: Usepackage cheker34124
 10.1414 -Node: Changing mode of YaTeX34551
 10.1415 -Node: Online help35126
 10.1416 -Node: Inclusion hierarchy browser36103
 10.1417 -Node: Cooperation with other packages37381
 10.1418 -Node: Customizations37836
 10.1419 -Node: Lisp variables38133
 10.1420 -Node: All customizable variables38739
 10.1421 -Node: Sample definitions47710
 10.1422 -Node: Hook variables48144
 10.1423 -Node: Hook file49038
 10.1424 -Node: Add-in functions49244
 10.1425 -Node: Etc49471
 10.1426 -Node: Copying49756
 10.1427 -Node: Concept Index50380
 10.1428 +Node: Installation3376
 10.1429 +Node: Invocation4636
 10.1430 +Node: Calling typesetter5512
 10.1431 +Node: Calling previewer6973
 10.1432 +Node: Print out7289
 10.1433 +Node: %#notation7555
 10.1434 +Node: Changing typesetter7983
 10.1435 +Node: Splitting input files8241
 10.1436 +Node: Fix region for typesetting9197
 10.1437 +Node: lpr format10105
 10.1438 +Node: Controlling which command to invoke10915
 10.1439 +Node: Editing %# notation11629
 10.1440 +Node: Completion12087
 10.1441 +Node: begin型補完12498
 10.1442 +Node: section型補完15247
 10.1443 +Node: 2個以上の引数をとる section型コマンド16340
 10.1444 +Node: Enclose section-type command17156
 10.1445 +Node: Recursive completion17480
 10.1446 +Node: view-sectioning17785
 10.1447 +Node: label-generation18981
 10.1448 +Node: large型補完19655
 10.1449 +Node: maketitle型補完20189
 10.1450 +Node: Arbitrary completion20488
 10.1451 +Node: end補完20801
 10.1452 +Node: Accent mark completion21142
 10.1453 +Node: Image completion21567
 10.1454 +Node: Greek letter completion23382
 10.1455 +Node: Inserting parens23866
 10.1456 +Node: Local dictionary24214
 10.1457 +Node: Commenting out24818
 10.1458 +Node: Cursor jump25978
 10.1459 +Node: 対応オブジェクトへのジャンプ26195
 10.1460 +Node: お絵描きツール起動27181
 10.1461 +Node: メインファイルへのジャンプ28099
 10.1462 +Node: 環境を単位としたジャンプ28435
 10.1463 +Node: 最後の補完位置へのジャンプ28792
 10.1464 +Node: Modifying/Deleting29029
 10.1465 +Node: Changing LaTeX command29435
 10.1466 +Node: Killing LaTeX command29985
 10.1467 +Node: Filling30857
 10.1468 +Node: Includeonly32187
 10.1469 +Node: What column32748
 10.1470 +Node: Intelligent newline33528
 10.1471 +Node: Usepackage cheker34560
 10.1472 +Node: Changing mode of YaTeX34987
 10.1473 +Node: Online help35563
 10.1474 +Node: Inclusion hierarchy browser36540
 10.1475 +Node: Cooperation with other packages37818
 10.1476 +Node: Customizations38273
 10.1477 +Node: Lisp variables38570
 10.1478 +Node: All customizable variables39177
 10.1479 +Node: Sample definitions48157
 10.1480 +Node: Hook variables48591
 10.1481 +Node: Hook file49486
 10.1482 +Node: Add-in functions49692
 10.1483 +Node: Etc49919
 10.1484 +Node: Copying50204
 10.1485 +Node: Concept Index50828
 10.1486  
 10.1487  End tag table
    11.1 --- a/docs/yatexj.tex	Thu Jan 05 23:20:34 2017 +0900
    11.2 +++ b/docs/yatexj.tex	Sun Sep 10 21:40:11 2017 +0859
    11.3 @@ -13,7 +13,7 @@
    11.4  @c ノードいじったら C-l C-u C-n 全部のノード更新 C-l C-u C-e
    11.5  @c メニュー増やしたら C-l C-u C-m 全部のメニュー更新 C-l C-u C-a
    11.6  @c フォーマットするときは C-l C-e C-b
    11.7 -@c Last modified Fri Feb 13 08:17:31 2015 on firestorm
    11.8 +@c Last modified Sat Sep  9 23:43:04 2017 on firestorm
    11.9  @syncodeindex vr cp
   11.10  @end iftex
   11.11  
   11.12 @@ -23,7 +23,7 @@
   11.13  @subtitle Yet Another tex-mode for emacs
   11.14  @title 『野鳥』
   11.15  @subtitle // YaTeX //
   11.16 -@author @copyright{} 1991-2012 by    HIROSE, Yuuji [yuuji@@yatex.org]
   11.17 +@author @copyright{} 1991-2017 by    HIROSE, Yuuji [yuuji@@yatex.org]
   11.18  @end titlepage
   11.19  
   11.20  @node Top, Intro, (dir), (dir)
   11.21 @@ -145,6 +145,7 @@
   11.22  @item 補完入力したマクロに応じて必要な \userpackage を入れてくれる先回り
   11.23  userpackage
   11.24  @item \labelを打つことはもう忘れよう! refやcite補完入力で自動生成します
   11.25 +@item 画像ファイルのドラッグ&ドロップによる自動 \includegraphics
   11.26  @end itemize
   11.27  
   11.28  @node Installation, Invocation, Main features, Top
   11.29 @@ -903,6 +904,24 @@
   11.30  つけるのもたいへんです。もうラベル名に何をつけるか、ラベルをつけるかつけま
   11.31  いか、などということは忘れましょう!
   11.32  
   11.33 +ラベルを打つべき項目の選択の際には、可能性のあるすべてのカウンタが表示され
   11.34 +ます。これを「数式のみ」のように種別で絞りたいときは以下のキーコマンドが
   11.35 +利用できます。
   11.36 +@table @kbd
   11.37 + @item M-a
   11.38 +	@dots{} 絞り込みを解除してすべてのカウンタを表示
   11.39 + @item M-c
   11.40 +	@dots{} キャプションのみを表示
   11.41 + @item M-e
   11.42 +	@dots{} 番号のつく数式のみを表示
   11.43 + @item M-i
   11.44 +	@dots{} 番号つき箇条書のみを表示
   11.45 + @item M-s
   11.46 +	@dots{} セクションのみを表示
   11.47 + @item M-m
   11.48 +	@dots{} その他のカウンタのみを表示
   11.49 +@end table
   11.50 +
   11.51  @node large型補完, maketitle型補完, section型補完, Completion
   11.52  @comment  node-name,  next,  previous,  up
   11.53  @section large型補完
   11.54 @@ -2319,7 +2338,7 @@
   11.55  せんが契約締結は辞退します。
   11.56  
   11.57    苦情、希望、バグ報告、感想等は歓迎いたします。
   11.58 -連絡は yuuji@@yatex.org まで(2004年1月現在)。
   11.59 +連絡は yuuji@@yatex.org まで(2017年9月現在)。
   11.60  継続的に使用してくださる方はメイリングリスト「fj野鳥の会」に
   11.61  是非加入してください。加入方法については本パッケージの @file{docs/qanda}
   11.62  ファイルの「その他」の章を御覧ください。
    12.1 --- a/makefile	Thu Jan 05 23:20:34 2017 +0900
    12.2 +++ b/makefile	Sun Sep 10 21:40:11 2017 +0859
    12.3 @@ -225,21 +225,15 @@
    12.4  	( version=${VERSION}; cd ${TMPDIR}; \
    12.5  	     ${TAR} vzcf ${TMPDIR}/yahtml$$version.tar.gz yatex$$version)
    12.6  
    12.7 -ci:
    12.8 -	ci -r${VERSION} -sRel -f ${RCSFILE}
    12.9 -	ci -u${VERSION} makefile 00readme
   12.10 +tag:
   12.11 +	echo hg tag ${VERSION}
   12.12 +# ci:
   12.13 +# 	ci -r${VERSION} -sRel -f ${RCSFILE}
   12.14 +# 	ci -u${VERSION} makefile 00readme
   12.15  
   12.16 -co:
   12.17 -	co ${RCSFILE}
   12.18 +# co:
   12.19 +# 	co ${RCSFILE}
   12.20  
   12.21 -co-l:
   12.22 -	co -l ${RCSFILE}
   12.23 -
   12.24 -tci:
   12.25 -	ci -l${VERSION}.0 -Ncurrent ${RCSFILE} makefile
   12.26 -
   12.27 -dostci:
   12.28 -	ci -l${MVER}.0 -Ncurrent @rcsfile
   12.29  
   12.30  RSYNCDIR	= ${HOME}/http/yatex/rsync/yatex
   12.31  #sync:	
    13.1 --- a/yahtml.el	Thu Jan 05 23:20:34 2017 +0900
    13.2 +++ b/yahtml.el	Sun Sep 10 21:40:11 2017 +0859
    13.3 @@ -1,9 +1,8 @@
    13.4  ;;; yahtml.el --- Yet Another HTML mode -*- coding: sjis -*-
    13.5  ;;; (c) 1994-2017 by HIROSE Yuuji [yuuji(@)yatex.org]
    13.6 -;;; Last modified Thu Jan  5 17:45:36 2017 on firestorm
    13.7  ;;; $Id$
    13.8  
    13.9 -(defconst yahtml-revision-number "1.79"
   13.10 +(defconst yahtml-revision-number "1.80"
   13.11    "Revision number of running yahtml.el")
   13.12  
   13.13  ;;; Commentary:
   13.14 @@ -51,7 +50,7 @@
   13.15  ;;;	(setq yahtml-kanji-code 2)
   13.16  ;;;	;HTMLファイルの漢字コードを変更する場合は
   13.17  ;;;	;1=SJIS、2=JIS、3=EUC 4=UTF-8
   13.18 -;;;	;で設定して下さい。デフォルトは 2 です。
   13.19 +;;;	;で設定して下さい。デフォルトは 4 です。
   13.20  ;;; 
   13.21  ;;; を適切に書き換えて ~/.emacs に足して下さい。
   13.22  ;;; 
   13.23 @@ -186,7 +185,7 @@
   13.24    "*Prefix key stroke of yahtml functions.")
   13.25  (defvar yahtml-image-viewer "display" "*Image viewer program")
   13.26  (defvar yahtml-www-browser "firefox" "*WWW Browser command")
   13.27 -(defvar yahtml-kanji-code 2
   13.28 +(defvar yahtml-kanji-code 4
   13.29    "*Kanji coding system number of html file; 1=sjis, 2=jis, 3=euc, 4=UTF-8")
   13.30  ;;(defvar yahtml-coding-system
   13.31  ;;  (cdr (assq yahtml-kanji-code YaTeX-kanji-code-alist))
   13.32 @@ -444,7 +443,7 @@
   13.33      ("style") ("script") ("noscript") ("div") ("object") ("ins") ("del")
   13.34      ("option") ("datalist")
   13.35      ;;HTML5
   13.36 -    ("video") ("audio")
   13.37 +    ("video") ("audio") ("figure") ("iframe")
   13.38      ))
   13.39  
   13.40  (if yahtml-html4-strict
   13.41 @@ -476,7 +475,10 @@
   13.42    (append
   13.43     '(("dfn") ("em") ("cite") ("code") ("kbd") ("samp") ("caption")
   13.44       ("strong") ("var") ("b") ("i") ("tt") ("big") ("small")
   13.45 -     ("sup") ("sub") ("span") ("abbr") ("label"))
   13.46 +     ("sup") ("sub") ("span") ("abbr") ("label")
   13.47 +     ;; HTML5
   13.48 +     ("figcaption")
   13.49 +     )
   13.50     (if (not yahtml-html4-strict)
   13.51         '(("strike") ("s") ("u") ("font")))
   13.52     yahtml-env-table)
   13.53 @@ -999,7 +1001,7 @@
   13.54  	(min (if (fboundp 'field-beginning) (field-beginning) (point-min))))
   13.55      (setq initial (YaTeX-minibuffer-string))
   13.56      (cond
   13.57 -     ((string-match "^http:" initial)
   13.58 +     ((string-match "^htt" initial)
   13.59        (setq cmpl (try-completion initial yahtml-urls)
   13.60  	    listfunc (list 'lambda nil
   13.61  			   (list 'all-completions initial 'yahtml-urls))
   13.62 @@ -1135,26 +1137,30 @@
   13.63        (set-marker e nil))))
   13.64  ;; ab%defgls/.|
   13.65  
   13.66 -(defun yahtml:a ()
   13.67 -  "Add-in function for <a>"
   13.68 +(defun yahtml-read-url (prompt)
   13.69    (let ((href ""))
   13.70      (setq yahtml-completing-buffer (current-buffer)
   13.71  	  yahtml-urls (append yahtml-urls-private yahtml-urls-local)
   13.72  	  href (yahtml-escape-chars-string
   13.73  		(read-from-minibuffer-with-history
   13.74 -		 "href: " "" yahtml-url-completion-map)))
   13.75 +		 prompt "" yahtml-url-completion-map)))
   13.76      (prog1
   13.77 -	(concat (yahtml-make-optional-argument
   13.78 -		 "href" href)
   13.79 -		(yahtml-make-optional-argument
   13.80 -		 "name" (read-string-with-history "name: ")))
   13.81 -      (if (and (string-match "^http://" href)
   13.82 +	href
   13.83 +      (if (and (string-match "^https?://" href)
   13.84  	       (null (assoc href yahtml-urls-private))
   13.85  	       (null (assoc href yahtml-urls-local)))
   13.86  	  (YaTeX-update-table
   13.87  	   (list href)
   13.88  	   'yahtml-urls-private 'yahtml-urls-private 'yahtml-urls-local)))))
   13.89  
   13.90 +(defun yahtml:a ()
   13.91 +  "Add-in function for <a>"
   13.92 +  (let ((href (yahtml-read-url "href: ")))
   13.93 +    (concat (yahtml-make-optional-argument
   13.94 +	     "href" href)
   13.95 +	    (yahtml-make-optional-argument
   13.96 +	     "name" (read-string-with-history "name: ")))))
   13.97 +
   13.98  (defvar yahtml-parameters-completion-alist
   13.99    '(("align" ("top") ("middle") ("bottom") ("left") ("right") ("center"))
  13.100      ("clear" ("left") ("right") ("center") ("all") ("none"))
  13.101 @@ -1167,7 +1173,9 @@
  13.102      ("rel" . yahtml-link-types-alist)
  13.103      ("type" . yahtml-content-types-alist)
  13.104      ("codetype" . yahtml-content-types-alist)
  13.105 -    ("http-equiv" ("Refresh"))))
  13.106 +    ("http-equiv" ("Refresh") ("Content-Language") ("Content-Type"))
  13.107 +    ("charset"
  13.108 +     ("utf-8")("euc-jp")("iso-2022-jp")("iso-8859-1")("shift_jis"))))
  13.109  
  13.110  (defvar yahtml-link-types-alist 
  13.111    '(("alternate") ("stylesheet") ("start") ("next") ("prev")
  13.112 @@ -1263,7 +1271,7 @@
  13.113  (defun yahtml:img ()
  13.114    "Add-in function for <img>"
  13.115    (let ((src (yahtml-read-parameter "src"))
  13.116 -	(alg (yahtml-read-parameter "align"))
  13.117 +	(alg (if yahtml-html4-strict nil (yahtml-read-parameter "align")))
  13.118  	alt
  13.119  	(brd (read-string-with-history "border="))
  13.120  	(l yahtml-prefer-upcase-attributes)
  13.121 @@ -1302,7 +1310,7 @@
  13.122  			   (cons "align" alg))
  13.123  		       (if (string< "" brd)
  13.124  			   (cons "border"
  13.125 -				 (format "%dpx" (string-to-int brd))))))))
  13.126 +				 (format "%dpx" (YaTeX-str2int brd))))))))
  13.127  	      (concat
  13.128  	       (yahtml-make-optional-argument "border" brd)
  13.129  	       (yahtml-make-optional-argument "align" alg))))))
  13.130 @@ -1447,7 +1455,7 @@
  13.131  
  13.132  (defun yahtml:ol ()
  13.133    "Add-in function for <ol>"
  13.134 -  (setq yahtml-last-single-cmd "li")
  13.135 +  (setq yahtml-last-typeface-cmd "li")
  13.136    (let ((start (YaTeX-read-string-or-skip "start="))
  13.137  	(type (YaTeX-completing-read-or-skip
  13.138  	       "type=" '(("1") ("a") ("A") ("i") ("I")) nil t)))
  13.139 @@ -1455,11 +1463,11 @@
  13.140       (yahtml-make-optional-argument "start" start)
  13.141       (yahtml-make-optional-argument "type" type))))
  13.142  (defun yahtml:ul ()
  13.143 -  (setq yahtml-last-single-cmd "li") "")
  13.144 +  (setq yahtml-last-typeface-cmd "li") "")
  13.145  (defun yahtml:dl ()
  13.146 -  (setq yahtml-last-single-cmd "dt") "")
  13.147 +  (setq yahtml-last-typeface-cmd "dt") "")
  13.148  (defun yahtml:dt ()
  13.149 -  (setq yahtml-last-single-cmd "dd") "")
  13.150 +  (setq yahtml-last-typeface-cmd "dd") "")
  13.151  
  13.152  (defun yahtml:p ()
  13.153    (if yahtml-html4-strict nil
  13.154 @@ -1477,9 +1485,10 @@
  13.155      (setq name (read-string-with-history "name: ")
  13.156  	  type (YaTeX-completing-read-or-skip "type (default=text): "
  13.157  				yahtml-input-types nil t)
  13.158 -	  value (YaTeX-read-string-or-skip "value: ")
  13.159 -	  id (YaTeX-read-string-or-skip "id: "))
  13.160 -    (if (string-match "text\\|password\\|^$" typxe)
  13.161 +	  value (YaTeX-read-string-or-skip "value: "))
  13.162 +    (or (string-match "submit\\|reset" type)
  13.163 +	(setq id (YaTeX-read-string-or-skip "id: ")))
  13.164 +    (if (string-match "text\\|password\\|^$" type)
  13.165  	(setq size (YaTeX-read-string-or-skip "size: ")
  13.166  	      maxlength (YaTeX-read-string-or-skip "maxlength: ")))
  13.167      (concat
  13.168 @@ -1524,7 +1533,7 @@
  13.169  	      (append
  13.170  	       (if (string< "" b)
  13.171  		   (list
  13.172 -		    (cons "border" (format "%dpx solid" (string-to-int b)))
  13.173 +		    (cons "border" (format "%dpx solid" (YaTeX-str2int b)))
  13.174  		    (cons "border-collapse" "collapse")))
  13.175  	       (if (string< "" a)
  13.176  		   (cond
  13.177 @@ -1569,8 +1578,7 @@
  13.178  
  13.179  (defun yahtml:tr ()
  13.180    "Add-in function for `tr'"
  13.181 -  (setq ;yahtml-last-begend "td"		;; which do you prefer?
  13.182 -	yahtml-last-typeface-cmd "td")
  13.183 +  (setq yahtml-last-typeface-cmd "td")
  13.184    "")
  13.185  
  13.186  (defun yahtml:link ()
  13.187 @@ -1613,27 +1621,29 @@
  13.188  	(read-from-minibuffer-with-history
  13.189  	 "href: " "" yahtml-url-completion-map)))))))
  13.190  
  13.191 -(defvar yahtml:meta-names
  13.192 -  '(("name" ("keywords")("author")("copyright")("date")("GENERATOR"))))
  13.193 +(defvar yahtml:meta-attrs
  13.194 +  '(("charset" value)
  13.195 +    ("name" content ("keywords")("author")("copyright")("date")("GENERATOR"))
  13.196 +    ("http-equiv" content)))
  13.197  
  13.198  (defun yahtml:meta ()
  13.199 -  (let ((name (yahtml-make-optional-argument
  13.200 -	       "name"
  13.201 -	       (yahtml-read-parameter "name" nil yahtml:meta-names)))
  13.202 -	http-equiv content)
  13.203 -    (if (string= "" name)
  13.204 -	(if (string-match
  13.205 -	     "Content-type"
  13.206 -	     (setq http-equiv (yahtml-make-optional-argument
  13.207 -			       "http-equiv"
  13.208 -			       (yahtml-read-parameter "http-equiv" nil))))
  13.209 -	    (error "It's very bad idea to set Content-type in META.  %s"
  13.210 -		     "See docs/qanda")
  13.211 -	  (concat http-equiv
  13.212 -		  (yahtml-make-optional-argument
  13.213 -		   "content" (yahtml-read-parameter "content"))))
  13.214 +  (let ((attr (completing-read-with-history
  13.215 +	       "Meta Attribute: " yahtml:meta-attrs))
  13.216 +	(case-fold-search t)
  13.217 +	(completion-ignore-case t)
  13.218 +	todonext name http-equiv content)
  13.219 +    (cond
  13.220 +     ((string= "" attr) nil)
  13.221 +     ((and (setq todonext (cdr-safe (assoc attr yahtml:meta-attrs)))
  13.222 +	   (eq 'value (car todonext)))
  13.223 +      (yahtml-make-optional-argument attr (yahtml-read-parameter attr)))
  13.224 +     ((eq 'content (car todonext))
  13.225 +      (setq name (if (cdr todonext)
  13.226 +		     (completing-read-with-history
  13.227 +		      (format "%s: " attr) (cdr todonext))
  13.228 +		   (yahtml-read-parameter attr)))
  13.229        (concat
  13.230 -       name
  13.231 +       (yahtml-make-optional-argument attr name)
  13.232         (yahtml-make-optional-argument
  13.233  	"content"
  13.234  	(cond
  13.235 @@ -1650,7 +1660,14 @@
  13.236  	  (if (string-match "yahtml" content)
  13.237  	      (message "Thank you!"))
  13.238  	  content)
  13.239 -	 (t (read-string-with-history (concat name ": ")))))))))
  13.240 +	 ((string-match "content-type" name)
  13.241 +	  (if (string-match "http-equiv" attr )
  13.242 +	      (error "Use <meta charset=\"...\" instead..  See docs/qanda.")
  13.243 +	    (yahtml-make-optional-argument
  13.244 +	     "content" (yahtml-read-parameter "content"))))
  13.245 +	 (t (read-string-with-history (concat name ": ")))))))
  13.246 +     (t (yahtml-make-optional-argument
  13.247 +	 attr (yahtml-read-parameter attr))))))
  13.248  
  13.249  (defun yahtml:br ()
  13.250    (yahtml-make-optional-argument "clear" (yahtml-read-parameter "clear")))
  13.251 @@ -1671,9 +1688,7 @@
  13.252         (yahtml-make-optional-argument
  13.253  	"width" (yahtml-read-parameter "width"))
  13.254         (yahtml-make-optional-argument
  13.255 -	"height" (yahtml-read-parameter "height"))
  13.256 -       (yahtml-make-optional-argument
  13.257 -	"align" (yahtml-read-parameter "align"))))
  13.258 +	"height" (yahtml-read-parameter "height"))))
  13.259       (t
  13.260        ""))))
  13.261  
  13.262 @@ -1824,7 +1839,19 @@
  13.263    ;; source element must have src attribute
  13.264    (format "src=\"%s\"" (yahtml-read-file-name-regexp
  13.265  			"source: " yahtml-media-file-regexp "" "" nil "")))
  13.266 -    
  13.267 +
  13.268 +(defun yahtml:figure ()
  13.269 +  (setq yahtml-last-typeface-cmd "figcaption"))
  13.270 +
  13.271 +(defun yahtml:iframe ()
  13.272 +  (let ((src (yahtml-read-url "src: ")))
  13.273 +    (concat
  13.274 +     (yahtml-make-optional-argument "src" src)
  13.275 +     (yahtml-make-optional-argument
  13.276 +      "width" (YaTeX-read-string-or-skip "width: "))
  13.277 +     (yahtml-make-optional-argument
  13.278 +      "height" (YaTeX-read-string-or-skip "height: ")))))
  13.279 +
  13.280  ;;; ---------- Jump ----------
  13.281  (defun yahtml-on-href-p ()
  13.282    "Check if point is on href clause."
  13.283 @@ -1913,7 +1940,9 @@
  13.284  	(cond
  13.285  	 ((string-match "^\\(ht\\|f\\)tps?:" href)
  13.286  	  (yahtml-browse-html href))
  13.287 -	 (t (setq file (substring href 0 (string-match "#" href)))
  13.288 +	 (t (if (string-match "\&" href)
  13.289 +		(setq href (yahtml-untranslate-string href)))
  13.290 +	    (setq file (substring href 0 (string-match "#" href)))
  13.291  	    (if (string-match "#" href)
  13.292  		(setq name (substring href (1+ (string-match "#" href)))))
  13.293  	    (if (string< "" file)
  13.294 @@ -2830,7 +2859,7 @@
  13.295  	(if (file-directory-p (car (car list)))
  13.296  	    (progn
  13.297  	      (setq url (cdr (car list)))
  13.298 -	      (if (string-match "\\(http://[^/]*\\)/" url)
  13.299 +	      (if (string-match "\\(https?://[^/]*\\)/" url)
  13.300  		  (setq docroot (substring url (match-end 1)))
  13.301  		(setq docroot url))
  13.302  	      (cond
  13.303 @@ -2995,7 +3024,7 @@
  13.304  		 (progn
  13.305  		   (skip-chars-forward "\"' \t\n")
  13.306  		   (looking-at "[0-9]+")))
  13.307 -	    (setq cols (+ (string-to-int (YaTeX-match-string 0)) cols))
  13.308 +	    (setq cols (+ (YaTeX-str2int (YaTeX-match-string 0)) cols))
  13.309  	  (setq cols (1+ cols)))
  13.310  	(goto-char rb)
  13.311  	(setq p (point)))
  13.312 @@ -3048,6 +3077,9 @@
  13.313        )))
  13.314  (fset 'yahtml-intelligent-newline-video 'yahtml-intelligent-newline-audio)
  13.315  
  13.316 +(defun yahtml-intelligent-newline-iframe ()
  13.317 +  (insert "<p>Your browser does not support iframes.</p>"))
  13.318 +
  13.319  ;;; ---------- Marking ----------
  13.320  (defun yahtml-mark-begend ()
  13.321    "Mark current tag"
  13.322 @@ -3095,7 +3127,7 @@
  13.323  	(let ((f (if (string= "" (YaTeX-match-string 1))
  13.324  		     YaTeX-current-file-name
  13.325  		   (YaTeX-match-string 1)))
  13.326 -	      (l (string-to-int (or (YaTeX-match-string 2)
  13.327 +	      (l (YaTeX-str2int (or (YaTeX-match-string 2)
  13.328  				    (YaTeX-match-string 3)))))
  13.329  	  (if sit (sit-for 1))
  13.330  	  (forward-line -1)
  13.331 @@ -3332,5 +3364,4 @@
  13.332  ; fill-prefix: ";;; "
  13.333  ; paragraph-start: "^$\\|\\|;;;$"
  13.334  ; paragraph-separate: "^$\\|\\|;;;$"
  13.335 -; coding: sjis
  13.336  ; End:
    14.1 --- a/yatex.el	Thu Jan 05 23:20:34 2017 +0900
    14.2 +++ b/yatex.el	Sun Sep 10 21:40:11 2017 +0859
    14.3 @@ -1,14 +1,13 @@
    14.4  ;;; yatex.el --- Yet Another tex-mode for emacs //野鳥// -*- coding: sjis -*-
    14.5  ;;; (c)1991-2017 by HIROSE Yuuji.[yuuji@yatex.org]
    14.6 -;;; Last modified Thu Jan  5 23:13:56 2017 on firestorm
    14.7 +;;; Last modified Sun Sep 10 21:19:43 2017 on firestorm
    14.8  ;;; $Id$
    14.9  ;;; The latest version of this software is always available at;
   14.10 -;;; http://www.yatex.org/
   14.11 +;;; https://www.yatex.org/
   14.12  
   14.13  ;;; Code:
   14.14 -(require 'comment)
   14.15  (require 'yatexlib)
   14.16 -(defconst YaTeX-revision-number "1.79.1"
   14.17 +(defconst YaTeX-revision-number "1.80"
   14.18    "Revision number of running yatex.el")
   14.19  
   14.20  ;---------- Local variables ----------
   14.21 @@ -52,8 +51,9 @@
   14.22  Overridden with `%#BIBTEX CommandLine...' in the buffer.")
   14.23  
   14.24  (defvar dvi2-command		;previewer command for your site
   14.25 -  (if YaTeX-dos "dviout -wait=0"
   14.26 -    "xdvi -geo +0+0 -s 4")
   14.27 +  (cond (YaTeX-dos	"dviout -wait=0")
   14.28 +	(YaTeX-macos	"open -a Preview")
   14.29 +	(t		"xdvi -geo +0+0 -s 4"))
   14.30    "*Default previewer command including its option.
   14.31  Overridden with `%#PREVIEW CommandLine...' in the buffer.")
   14.32  
   14.33 @@ -296,7 +296,8 @@
   14.34       ("tilde") ("hat") ("check") ("bar") ("dot") ("ddot") ("vec")
   14.35       ("widetilde") ("widehat") ("overline") ("overrightarrow")
   14.36       ;; section types in mathmode
   14.37 -     ("frac" 2) ("sqrt") ("mathrm") ("mathbf") ("mathit")
   14.38 +     ("frac" 2) ("sqrt") ("mathrm") ("mathbf") ("mathit") ("mathbb")
   14.39 +     ("mathscr") ("mathrsfs")
   14.40       ;;cleveref
   14.41       ("cref") ("crefrange") ("cpageref") ("labelcref") ("labelcpageref")
   14.42       ;; beamer
   14.43 @@ -338,12 +339,23 @@
   14.44      ("split") ("split*") ("aligned") ("aligned*") ("alignedat") ("gathered")
   14.45      ("smallmatrix") ("cases") ("subequations")))
   14.46  ;; Prepare list(not alist) for YaTeX::ref in yatexadd.el
   14.47 +(defvar YaTeX-math-other-env-alist-default
   14.48 +  '(("numcases") ("subnumcases"))
   14.49 +  "Default alist of additional environments for equations")
   14.50 +(defvar YaTeX-math-other-env-alist-private nil
   14.51 +  "*User defined alist of additional environments for equations")
   14.52 +(defvar YaTeX-math-other-env-alist
   14.53 +  (append YaTeX-math-other-env-alist-default
   14.54 +	  YaTeX-math-other-env-alist-private)
   14.55 +  "Alist of additional environments for equations")
   14.56 +(defvar YaTeX-math-other-env-list
   14.57 +  (mapcar 'car YaTeX-math-other-env-alist))
   14.58 +
   14.59  (defvar YaTeX-math-begin-list
   14.60    (mapcar 'car YaTeX-ams-math-begin-alist))
   14.61  (defvar YaTeX-math-gathering-list	;used in yatexadd.el#yatex::ref
   14.62    (mapcar 'car YaTeX-ams-math-gathering-alist))
   14.63  
   14.64 -
   14.65  (defvar YaTeX-ams-env-table
   14.66    (append YaTeX-ams-math-begin-alist YaTeX-ams-math-gathering-alist)
   14.67    "*Standard AMS-LaTeX(2e) environment completion table.")
   14.68 @@ -370,7 +382,8 @@
   14.69  	 ("alltt")			;defined in alltt
   14.70  	 ("multicols")			;defined in multicol
   14.71  	 ("breakbox")))			;defined in eclbkbox
   14.72 -   (if YaTeX-use-AMS-LaTeX YaTeX-ams-env-table))
   14.73 +   (if YaTeX-use-AMS-LaTeX YaTeX-ams-env-table)
   14.74 +   YaTeX-math-other-env-alist)
   14.75    "Default completion table for begin-type completion.")
   14.76  
   14.77  (defvar user-env-table nil)
   14.78 @@ -582,7 +595,7 @@
   14.79    "*Initial tex-section completion")
   14.80  (defvar YaTeX-fontsize-name "large" "*Initial fontsize completion")
   14.81  (defvar YaTeX-single-command "maketitle" "*Initial LaTeX single command")
   14.82 -(defvar YaTeX-kanji-code (if YaTeX-dos 1 2)
   14.83 +(defvar YaTeX-kanji-code nil
   14.84    "*File kanji code used by Japanese TeX.
   14.85  nil: Do not care (Preserve coding-system)
   14.86  0: no-converion (mule)
   14.87 @@ -1298,7 +1311,7 @@
   14.88  		 (car (where-is-internal 'YaTeX-make-begin-end))))
   14.89  	       (point))
   14.90  	      (put 'YaTeX-insert-braces 'begend-guide
   14.91 -		   (+ 1 (string-to-int ;increment counter of beg-end guidance
   14.92 +		   (+ 1 (YaTeX-str2int ;increment counter of beg-end guidance
   14.93  			 (prin1-to-string
   14.94  			  (get 'YaTeX-insert-braces 'begend-guide)))))))))
   14.95  	env macro not-literal b e)
   14.96 @@ -2242,34 +2255,40 @@
   14.97  it comments out whole environment"
   14.98    (interactive "P")
   14.99    (if (not (YaTeX-on-begin-end-p))
  14.100 -      (comment-out-region
  14.101 +      (YaTeX-comment-region-sub
  14.102         (if alt-prefix
  14.103  	   (read-string-with-history "Insert prefix: ")
  14.104  	 YaTeX-comment-prefix))
  14.105 -    (YaTeX-comment-uncomment-env 'comment-out-region)))
  14.106 +    (YaTeX-comment-uncomment-env 'YaTeX-comment-region-sub)))
  14.107  
  14.108  (defun YaTeX-uncomment-region (alt-prefix)
  14.109    "Uncomment out region by '%'."
  14.110    (interactive "P")
  14.111    (if (not (YaTeX-on-begin-end-p))
  14.112 -      (uncomment-out-region
  14.113 +      (YaTeX-uncomment-region-sub
  14.114         (if alt-prefix (read-string-with-history "Remove prefix: ")
  14.115  	 YaTeX-comment-prefix)
  14.116         (region-beginning) (region-end) YaTeX-uncomment-once)
  14.117 -    (YaTeX-comment-uncomment-env 'uncomment-out-region)))
  14.118 +    (YaTeX-comment-uncomment-env 'YaTeX-uncomment-region-sub)))
  14.119  
  14.120  (defun YaTeX-comment-uncomment-env (func)
  14.121    "Comment or uncomment out one LaTeX environment switching function by FUNC."
  14.122 -  (let (beg (p (point)))
  14.123 +  (let (beg beg2 (p (point)))
  14.124      (save-excursion
  14.125 -      (beginning-of-line)
  14.126 -      (setq beg (point))
  14.127 -      (YaTeX-goto-corresponding-environment)
  14.128 -      (beginning-of-line)
  14.129 -      (if (> p (point)) (setq beg (1+ beg)) (forward-char 1))
  14.130 -      (funcall func YaTeX-comment-prefix beg (point) YaTeX-uncomment-once)))
  14.131 +	(beginning-of-line)
  14.132 +	(setq beg (point))
  14.133 +	(save-match-data
  14.134 +	  (while (and (not (eobp))
  14.135 +		      (not (eolp))
  14.136 +		      (looking-at YaTeX-comment-prefix))
  14.137 +	    (goto-char (match-end 0))))
  14.138 +	(setq beg2 (point))
  14.139 +	(YaTeX-goto-corresponding-environment)
  14.140 +	(beginning-of-line)
  14.141 +	(if (> p (point)) (setq beg (1+ beg2)) (forward-char 1))
  14.142 +	(funcall func YaTeX-comment-prefix beg (point) YaTeX-uncomment-once)))
  14.143    (message "%sommented out current environment."
  14.144 -	   (if (eq func 'comment-out-region) "C" "Un-c")))
  14.145 +	   (if (string-match "uncom" (symbol-name func)) "Un-c" "C")))
  14.146  
  14.147  (defun YaTeX-comment-paragraph ()
  14.148    "Comment out current paragraph."
  14.149 @@ -2287,7 +2306,7 @@
  14.150       (t
  14.151        (mark-paragraph)
  14.152        (if (looking-at paragraph-separate) (forward-line 1))
  14.153 -      (comment-out-region "%")))))
  14.154 +      (YaTeX-comment-region-sub "%")))))
  14.155  
  14.156  (defun YaTeX-uncomment-paragraph ()
  14.157    "Uncomment current paragraph."
  14.158 @@ -2309,7 +2328,7 @@
  14.159  		(paragraph-separate paragraph-start))
  14.160  	    (mark-paragraph)
  14.161  	    (if (not (bobp)) (forward-line 1))
  14.162 -	    (uncomment-out-region "%" nil nil YaTeX-uncomment-once))
  14.163 +	    (YaTeX-uncomment-region-sub "%" nil nil YaTeX-uncomment-once))
  14.164  	(message "This line is not a comment line.")))))
  14.165  
  14.166  (defun YaTeX-remove-prefix (prefix &optional once)
  14.167 @@ -3264,7 +3283,3 @@
  14.168  
  14.169  ;; `History' was moved to ChangeLog
  14.170  ;----------------------------- End of yatex.el -----------------------------
  14.171 -
  14.172 -; Local variables:
  14.173 -; coding: sjis
  14.174 -; End:
    15.1 --- a/yatex.new	Thu Jan 05 23:20:34 2017 +0900
    15.2 +++ b/yatex.new	Sun Sep 10 21:40:11 2017 +0859
    15.3 @@ -1,6 +1,24 @@
    15.4  	What's new in YaTeX/yahtml
    15.5  	野鳥/yahtml - 各バージョンの変更点について
    15.6  
    15.7 +1.80	string-to-int除外と同時に emacs-18 をサポート外に。
    15.8 +	2-Clause BSDでもOKという風に書いてみた。
    15.9 +	RCS管理を外した。
   15.10 +	== yatex ==
   15.11 +	ラベル補完バッファで M-e, M-i 等でラベル種の絞り込み可能。
   15.12 +	dviからPS変換コマンドを少し丁寧に探すようにした。
   15.13 +	mathbb, mathscr, mathrsfs, text, and, onslide, pause
   15.14 +	YaTeX-math-other-env-alist-private で追加数式環境を足しやすくした。
   15.15 +	YaTeX-electric-indent-mode で C-m での自動インデントを制御。
   15.16 +	%#キーワードに追加: DVIPDF, PDFVIEW, IMAGEDPI(ワンタッチ更新も可)。
   15.17 +	Beamer用の補完アドインを追加(原案谷村さん)。
   15.18 +	YaTeX-kanji-code のデフォルトをnil(温存)に変更。
   15.19 +	== yahtml ==
   15.20 +	figure, iframe 対応。
   15.21 +	a要素の属性補完を修正。
   15.22 +	meta要素の属性補完を拡充、<meta charset="..."> に対応。
   15.23 +	yahtml-kanji-code のデフォルトを4(UTF-8)に変更。
   15.24 +
   15.25  1.79	別フレームに同一バッファがあるときのミニバッファ入力で、
   15.26  	ポイント位置がずれるEmacsの問題への対策を入れた。
   15.27  	=== yatex ===
    16.1 --- a/yatex19.el	Thu Jan 05 23:20:34 2017 +0900
    16.2 +++ b/yatex19.el	Sun Sep 10 21:40:11 2017 +0859
    16.3 @@ -1,6 +1,6 @@
    16.4  ;;; yatex19.el -- YaTeX facilities for Emacs 19 or later -*- coding: sjis -*-
    16.5  ;;; (c)1994-2017 by HIROSE Yuuji.[yuuji@yatex.org]
    16.6 -;;; Last modified Thu Jan  5 17:45:46 2017 on firestorm
    16.7 +;;; Last modified Sun Sep 10 09:51:04 2017 on firestorm
    16.8  ;;; $Id$
    16.9  
   16.10  ;;; Code:
   16.11 @@ -823,5 +823,4 @@
   16.12  ; fill-prefix: ";;; "
   16.13  ; paragraph-start: "^$\\|\\|;;;$"
   16.14  ; paragraph-separate: "^$\\|\\|;;;$"
   16.15 -; coding: sjis
   16.16  ; End:
    17.1 --- a/yatex23.el	Thu Jan 05 23:20:34 2017 +0900
    17.2 +++ b/yatex23.el	Sun Sep 10 21:40:11 2017 +0859
    17.3 @@ -1,6 +1,6 @@
    17.4  ;;; yatex23.el --- YaTeX facilities for Emacs 23 or later -*- coding: sjis -*-
    17.5  ;;; (c)2014-2017 by HIROSE Yuuji.[yuuji@yatex.org]
    17.6 -;;; Last modified Thu Jan  5 17:45:48 2017 on firestorm
    17.7 +;;; Last modified Sun Sep 10 09:52:29 2017 on firestorm
    17.8  ;;; $Id$
    17.9  
   17.10  (require 'yatex19)
   17.11 @@ -105,10 +105,3 @@
   17.12    "Face of on-the-fly preview image mode")
   17.13  
   17.14  (provide 'yatex23)
   17.15 -
   17.16 -; Local variables:
   17.17 -; fill-prefix: ";;; "
   17.18 -; paragraph-start: "^$\\|\\|;;;$"
   17.19 -; paragraph-separate: "^$\\|\\|;;;$"
   17.20 -; coding: sjis
   17.21 -; End:
    18.1 --- a/yatexadd.el	Thu Jan 05 23:20:34 2017 +0900
    18.2 +++ b/yatexadd.el	Sun Sep 10 21:40:11 2017 +0859
    18.3 @@ -1,6 +1,6 @@
    18.4  ;;; yatexadd.el --- YaTeX add-in functions -*- coding: sjis -*-
    18.5  ;;; (c)1991-2017 by HIROSE Yuuji.[yuuji@yatex.org]
    18.6 -;;; Last modified Thu Jan  5 23:13:23 2017 on firestorm
    18.7 +;;; Last modified Sun Sep 10 09:52:35 2017 on firestorm
    18.8  ;;; $Id$
    18.9  
   18.10  ;;; Code:
   18.11 @@ -25,7 +25,7 @@
   18.12      (if (string= YaTeX-env-name "tabular*")
   18.13  	(setq width (concat "{" (YaTeX:read-length "Width: ") "}")))
   18.14      (setq loc (YaTeX:read-position "tb")
   18.15 -	  bars (string-to-int
   18.16 +	  bars (YaTeX-str2int
   18.17  		(YaTeX-read-string-or-skip
   18.18  		 "Number of columns(0 for default format): " "3")))
   18.19      (if (<= bars 0)
   18.20 @@ -404,11 +404,12 @@
   18.21  (defvar YaTeX-label-menu-other
   18.22    (if YaTeX-japan "':他のバッファのラベル\n" "':LABEL IN OTHER BUFFER.\n"))
   18.23  (defvar YaTeX-label-menu-repeat
   18.24 -  (if YaTeX-japan ".:直前の\\refと同じ\n" "/:REPEAT LAST \ref{}\n"))
   18.25 +  (if YaTeX-japan ".:直前の\\refと同じ\n" ".:REPEAT LAST \\ref{}\n"))
   18.26  (defvar YaTeX-label-menu-any
   18.27    (if YaTeX-japan "*:任意の文字列\n" "*:ANY STRING.\n"))
   18.28  (defvar YaTeX-label-buffer "*Label completions*")
   18.29 -(defvar YaTeX-label-guide-msg "Select label and hit RETURN.")
   18.30 +(defvar YaTeX-label-guide-msg
   18.31 +  "[RET] on the Label. M-a)All M-c)Capt M-e)Eqn M-i)Itm M-s)Sec M-m)misc")
   18.32  (defvar YaTeX-label-select-map nil
   18.33    "Key map used in label selection buffer.")
   18.34  (defun YaTeX::label-setup-key-map ()
   18.35 @@ -434,6 +435,12 @@
   18.36      (define-key YaTeX-label-select-map "'"	'YaTeX::label-search-tag)
   18.37      (define-key YaTeX-label-select-map "."	'YaTeX::label-search-tag)
   18.38      (define-key YaTeX-label-select-map "*"	'YaTeX::label-search-tag)
   18.39 +    (define-key YaTeX-label-select-map "\M-a"	'YaTeX::label-sel-all)
   18.40 +    (define-key YaTeX-label-select-map "\M-c"	'YaTeX::label-sel-cap)
   18.41 +    (define-key YaTeX-label-select-map "\M-e"	'YaTeX::label-sel-eqn)
   18.42 +    (define-key YaTeX-label-select-map "\M-i"	'YaTeX::label-sel-item)
   18.43 +    (define-key YaTeX-label-select-map "\M-s"	'YaTeX::label-sel-sec)
   18.44 +    (define-key YaTeX-label-select-map "\M-m"	'YaTeX::label-sel-misc)
   18.45      (message "Setting up label selection mode map...Done")
   18.46      (let ((key ?A))
   18.47        (while (<= key ?Z)
   18.48 @@ -462,6 +469,38 @@
   18.49        (goto-char (match-beginning 0))))
   18.50      (message YaTeX-label-guide-msg)))
   18.51  
   18.52 +(defun YaTeX::label-sel-* (type &optional any)
   18.53 +  "Label type filtering out in YaTeX Label completion buffer"
   18.54 +  (save-excursion
   18.55 +    (let (ov)
   18.56 +      (goto-char (point-min))
   18.57 +      (while (not (eobp))
   18.58 +	(goto-char (next-overlay-change (point)))
   18.59 +	(if (null (setq ov (car-safe (overlays-at (point)))))
   18.60 +	    nil				;do nothin if overlays not found
   18.61 +	  (overlay-put
   18.62 +	   ov 'invisible (not (or any
   18.63 +				  (eq (overlay-get ov 'type) type)))))))))
   18.64 +
   18.65 +(defun YaTeX::label-sel-all ()
   18.66 +  (interactive)
   18.67 +  (YaTeX::label-sel-* 'any 'any))
   18.68 +(defun YaTeX::label-sel-cap ()
   18.69 +  (interactive)
   18.70 +  (YaTeX::label-sel-* 'cap))
   18.71 +(defun YaTeX::label-sel-eqn ()
   18.72 +  (interactive)
   18.73 +  (YaTeX::label-sel-* 'eqn))
   18.74 +(defun YaTeX::label-sel-item ()
   18.75 +  (interactive)
   18.76 +  (YaTeX::label-sel-* 'item))
   18.77 +(defun YaTeX::label-sel-sec ()
   18.78 +  (interactive)
   18.79 +  (YaTeX::label-sel-* 'sec))
   18.80 +(defun YaTeX::label-sel-misc ()
   18.81 +  (interactive)
   18.82 +  (YaTeX::label-sel-* 'misc))
   18.83 +
   18.84  ; (defun YaTeX::ref (argp &optional labelcmd refcmd)
   18.85  ;   (cond
   18.86  ;    ((= argp 1)
   18.87 @@ -571,19 +610,19 @@
   18.88  	(Y (substring ts -4))
   18.89  	(y (substring ts -2))
   18.90  	(b (substring ts 0 3))
   18.91 -	(d (format "%d" (string-to-int (substring ts 4 6))))
   18.92 +	(d (format "%d" (YaTeX-str2int (substring ts 4 6))))
   18.93  	(H (substring ts 7 9))
   18.94  	(M (substring ts 10 12))
   18.95  	(S (substring ts 13 15))
   18.96 -	(HMS (+ (* 10000 (string-to-int H))
   18.97 -		(* 100 (string-to-int M))
   18.98 -		(string-to-int S)))
   18.99 +	(HMS (+ (* 10000 (YaTeX-str2int H))
  18.100 +		(* 100 (YaTeX-str2int M))
  18.101 +		(YaTeX-str2int S)))
  18.102  	(talphabex (YaTeX::ref-alphabex HMS))
  18.103  	(mnames "JanFebMarAprMayJunJulAugSepOctNovDec")
  18.104  	(m (format "%02d" (/ (string-match b mnames) 3)))
  18.105 -	(ymd (+ (* 10000 (string-to-int y))
  18.106 -		(* 100 (string-to-int m))
  18.107 -		(string-to-int d)))
  18.108 +	(ymd (+ (* 10000 (YaTeX-str2int y))
  18.109 +		(* 100 (YaTeX-str2int m))
  18.110 +		(YaTeX-str2int d)))
  18.111  	(dalphabex (YaTeX::ref-alphabex ymd)))
  18.112      (YaTeX-replace-formats
  18.113       (or format YaTeX-ref-default-label-string)
  18.114 @@ -680,7 +719,7 @@
  18.115  	  (if (condition-case nil
  18.116  		  (progn
  18.117  		    (goto-char curtop)
  18.118 -		    (YaTeX-goto-corresponding-environment))
  18.119 +		    (YaTeX-goto-corresponding-environment nil t 'nonstop))
  18.120  		(error nil))
  18.121  	      (setq end (point)))
  18.122  	  (goto-char inspoint)
  18.123 @@ -814,6 +853,265 @@
  18.124    "*ref補完で収集するセクショニングコマンドの下限レベル
  18.125  YaTeX-sectioning-levelの数値で指定.")
  18.126  
  18.127 +(defun YaTeX::ref-1 (&optional nest-level)
  18.128 +  ;; Sub-function of YaTeX::ref() for recursive call
  18.129 +  ;; DO NOT CALL FROM OTHER FUNCTIONS but YaTeX:ref()
  18.130 +  (setq nest-level (or nest-level 0))
  18.131 +  (let ((labelleader (substring "     " 0 nest-level))
  18.132 +	label)
  18.133 +    (while (YaTeX-re-search-active-forward
  18.134 +	    regexp ;;counter
  18.135 +	    percent nil t)
  18.136 +					;(goto-char (match-beginning 0))
  18.137 +      (setq e0 (match-end 0))
  18.138 +      (cond
  18.139 +       ;; 
  18.140 +       ;;2005/10/21 Skip it if predicate function returns nil
  18.141 +       ((and predf
  18.142 +	     (let ((md (match-data)))
  18.143 +	       (prog1
  18.144 +		   (condition-case nil
  18.145 +		       (not (funcall predf))
  18.146 +		     (error nil))
  18.147 +		 (store-match-data md)))))
  18.148 +       ((YaTeX-literal-p) nil)
  18.149 +       ((YaTeX-match-string 1)
  18.150 +	;;if standard counter commands found 
  18.151 +	(setq cmd (YaTeX-match-string 2)
  18.152 +	      m0 (match-beginning 0))
  18.153 +	(setq match-point (match-beginning 0))
  18.154 +	(or initl
  18.155 +	    (if (< p (point)) (setq initl lnum)))
  18.156 +	(cond
  18.157 +	 ;; In any case, variables e0 should be set
  18.158 +	 ((and YaTeX-use-AMS-LaTeX
  18.159 +	       (string-match YaTeX::ref-nestable-counter-regexp cmd))
  18.160 +	  (skip-chars-forward "}")
  18.161 +	  (setq label (buffer-substring
  18.162 +		       (point) (min (+ 80 (point)) (point-max))))
  18.163 +	  ;; to skip (maybe)auto-generated comment
  18.164 +	  (skip-chars-forward " \t")
  18.165 +	  (if (looking-at YaTeX-comment-prefix)
  18.166 +	      (forward-line 1))
  18.167 +	  (setq e0 (point))
  18.168 +	  (skip-chars-forward " \t\n")
  18.169 +	  (if (looking-at "\\\\label{\\([^}]+\\)}")
  18.170 +	      (setq label (format "(labe:%s)" (YaTeX-match-string 1))
  18.171 +		    e0 (match-end 1)))
  18.172 +	  (funcall output
  18.173 +		   (format "--subequation--%s%s" labelleader label)
  18.174 +		   e0 'eqn))
  18.175 +	 ((string-match mathenvs cmd) ;;if matches mathematical env
  18.176 +	  (skip-chars-forward "}")
  18.177 +	  (setq x (point)
  18.178 +		envname (substring
  18.179 +			 cmd (match-beginning 0) (match-end 0)))
  18.180 +	  (save-restriction
  18.181 +	    (narrow-to-region
  18.182 +	     m0
  18.183 +	     (save-excursion
  18.184 +	       (YaTeX-re-search-active-forward
  18.185 +		(setq endrx (format "%send{%s}" YaTeX-ec-regexp
  18.186 +				    (regexp-quote envname)))
  18.187 +		percent nil t)))
  18.188 +	    (catch 'scan
  18.189 +	      (while (YaTeX-re-search-active-forward
  18.190 +		      (concat
  18.191 +		       "\\\\end{\\(" (regexp-quote envname) "\\)" ;;(1)
  18.192 +		       "\\|\\\\\\(notag\\)"			  ;;2
  18.193 +		       (if (string-match
  18.194 +			    YaTeX::ref-mathenv-exp1-regexp  cmd)
  18.195 +			   "" "\\|\\(\\\\\\\\\\)$") ;;3
  18.196 +		       )
  18.197 +		      percent nil t)
  18.198 +		(let*((quit (match-beginning 1))
  18.199 +		      (notag (match-beginning 2))
  18.200 +		      (newln (match-beginning 3))
  18.201 +		      (label ".......................") l2
  18.202 +		      (e (point)) (m0 (match-beginning 0))
  18.203 +		      (ln (YaTeX-string-width label)))
  18.204 +		  (cond
  18.205 +		   (notag
  18.206 +		    (YaTeX-re-search-active-forward
  18.207 +		     "\\\\\\\\" percent nil 1)
  18.208 +		    (setq x (point)))	;use x as \label search bound
  18.209 +		   ((and newln		; `\\' found
  18.210 +			 (not (equal (YaTeX-inner-environment)
  18.211 +				     envname)))
  18.212 +		    (YaTeX-end-of-environment)
  18.213 +		    (goto-char (match-end 0)))
  18.214 +		   (t
  18.215 +		    (if (YaTeX-re-search-active-backward
  18.216 +			 YaTeX::ref-labeling-regexp
  18.217 +			 percent x t)
  18.218 +			;; if \label{x} in math-expression, display it
  18.219 +			;; because formula source is hard to recognize
  18.220 +			(progn
  18.221 +			  (goto-char (match-end 0))
  18.222 +			  (setq l2 (format "\"label:%s\""
  18.223 +					   (buffer-substring
  18.224 +					    (1- (point))
  18.225 +					    (progn (forward-sexp -1)
  18.226 +						   (1+ (point))))))
  18.227 +			  (setq label
  18.228 +				(if (< (YaTeX-string-width l2) ln)
  18.229 +				    (concat
  18.230 +				     l2
  18.231 +				     (substring
  18.232 +				      label
  18.233 +				      0 (- ln (YaTeX-string-width l2))))
  18.234 +				  l2))
  18.235 +			  (goto-char e)))
  18.236 +		    (funcall output
  18.237 +			     (concat
  18.238 +			      labelleader label " "
  18.239 +			      (buffer-substring x m0))
  18.240 +			     x 'eqn)
  18.241 +		    (cond
  18.242 +		     ((YaTeX-quick-in-environment-p
  18.243 +		       YaTeX-math-gathering-list)
  18.244 +		      ;; if here is inner split/cases/gathered env.,
  18.245 +		      ;; counter for here is only one.
  18.246 +		      ;; Go out this environment and,
  18.247 +		      (YaTeX-end-of-environment)
  18.248 +		      ;; search next expression unit boundary.
  18.249 +		      (YaTeX-re-search-active-forward
  18.250 +		       (concat endrx "\\|\\\\begin{")
  18.251 +		       percent nil 1)
  18.252 +		      (end-of-line)))
  18.253 +		    (if quit (throw 'scan t)))))
  18.254 +		(setq x (point)))))
  18.255 +	  (setq e0 (point)))
  18.256 +	 ((string-match enums cmd)
  18.257 +					;(skip-chars-forward "} \t\n")
  18.258 +	  (save-restriction
  18.259 +	    (narrow-to-region
  18.260 +	     (point)
  18.261 +	     (save-excursion
  18.262 +	       (YaTeX-goto-corresponding-environment nil t 'nonstop) (point)))
  18.263 +	    (forward-line 1)
  18.264 +	    (let ((b0 nil) mb0)
  18.265 +	      (while (not (eobp))
  18.266 +		(setq x (and
  18.267 +			 (YaTeX-re-search-active-forward
  18.268 +			  (concat YaTeX-ec-regexp "item\\s ")
  18.269 +			  percent nil 1)
  18.270 +			 (match-beginning 0)))
  18.271 +
  18.272 +		(if b0		  ;Inspect sentence after previous \item
  18.273 +		    (save-excursion
  18.274 +		      (save-restriction
  18.275 +			(let ((md (match-data))) ;save-match-data 
  18.276 +			  (unwind-protect
  18.277 +			      (progn
  18.278 +				(narrow-to-region b0 (or x (point)))
  18.279 +				(goto-char (point-min))
  18.280 +				(let ((x x)) (YaTeX::ref-1 (1+ nest-level)))
  18.281 +				(goto-char (point-max)))
  18.282 +			    (store-match-data md))))))
  18.283 +		(if x			;Output THIS \item line
  18.284 +		    (funcall
  18.285 +		     output
  18.286 +		     (concat
  18.287 +		      labelleader existlabel
  18.288 +		      (buffer-substring
  18.289 +		       (match-beginning 0)
  18.290 +		       (if (re-search-forward itemsep nil 1)
  18.291 +			   (progn (goto-char (match-beginning 0))
  18.292 +				  (skip-chars-backward " \t")
  18.293 +				  (1- (point)))
  18.294 +			 (point-end-of-line))))
  18.295 +		     x 'item))
  18.296 +		(setq b0 (point))
  18.297 +		))
  18.298 +	    (setq e0 (point-max))))
  18.299 +	 ((string-match "bibitem" cmd)	;maybe generated by myself
  18.300 +	  (setq label "")
  18.301 +	  (skip-chars-forward " \t")
  18.302 +	  (if (looking-at "{")		;sure to be true!!
  18.303 +	      (forward-list 1))
  18.304 +	  (let ((list '(30 10 65))
  18.305 +		(delim ";") q lim len l str)
  18.306 +	    (save-excursion
  18.307 +	      (setq lim (if (re-search-forward itemsep nil 1)
  18.308 +			    (match-beginning 0) (point))))
  18.309 +	    (while list
  18.310 +	      (skip-chars-forward " \t\n\\")
  18.311 +	      (setq q (looking-at "[\"'{]")
  18.312 +		    len (car list)
  18.313 +		    str
  18.314 +		    (buffer-substring
  18.315 +		     (point)
  18.316 +		     (progn
  18.317 +		       (if q (forward-sexp 1)
  18.318 +			 (search-forward delim lim 1)
  18.319 +			 (forward-char -1))
  18.320 +		       (point))))
  18.321 +	      (if (> (setq l (YaTeX-string-width str)) len)
  18.322 +		  (setq str (concat
  18.323 +			     (YaTeX-truncate-string-width
  18.324 +			      str (- len (if q 5 4)))
  18.325 +			     "... "
  18.326 +			     (if q (substring str -1)))))
  18.327 +	      (if (< (setq l (YaTeX-string-width str)) len)
  18.328 +		  (setq str (concat str (make-string (- len l) ? ))))
  18.329 +	      (if (looking-at delim) (goto-char (match-end 0)))
  18.330 +	      (setq label (concat label " " str)
  18.331 +		    list (cdr list)))
  18.332 +	    (funcall output (concat labelleader label) match-point 'bib)))
  18.333 +	 ;;else, simple section-type counter
  18.334 +	 ((= (char-after (1- (point))) ?{)
  18.335 +	  (setq label (buffer-substring
  18.336 +		       (match-beginning 0)
  18.337 +		       (progn (forward-char -1)
  18.338 +			      (forward-list 1)
  18.339 +			      (point))))
  18.340 +	  (funcall output (concat labelleader label) match-point
  18.341 +		   (if (string-match "caption" cmd) 'cap 'sec))
  18.342 +	  ;; Skip preceding label if exists
  18.343 +	  (if (YaTeX::ref-getset-label (current-buffer) match-point t)
  18.344 +	      (goto-char (get 'YaTeX::ref-getset-label 'foundpoint)))
  18.345 +	  (if (save-excursion
  18.346 +		(skip-chars-forward "\t \n")
  18.347 +		(looking-at YaTeX::ref-labeling-regexp))
  18.348 +	      (setq e0 (match-end 0))))
  18.349 +	 (t
  18.350 +	  (skip-chars-forward " \t")
  18.351 +	  (setq label (buffer-substring
  18.352 +		       (match-beginning 0)
  18.353 +		       (if (re-search-forward
  18.354 +			    itemsep
  18.355 +			    nil t)
  18.356 +			   (progn
  18.357 +			     (goto-char (match-beginning 0))
  18.358 +			     (skip-chars-backward " \t")
  18.359 +			     (1- (point)))
  18.360 +			 (point-end-of-line))))
  18.361 +	  (funcall output (concat labelleader label) match-point 'misc)
  18.362 +	  (if (save-excursion
  18.363 +		(skip-chars-forward "\t \n")
  18.364 +		(looking-at YaTeX::ref-labeling-regexp))
  18.365 +	      (setq e0 (match-end 0)))))
  18.366 +	) ;;put label buffer
  18.367 +       ;;
  18.368 +       ;; if user defined label found
  18.369 +       (t
  18.370 +	;; memorize line number and label into property
  18.371 +	(goto-char (match-beginning 0))
  18.372 +	(let ((list YaTeX::ref-labeling-regexp-alist)
  18.373 +	      (cache (symbol-plist 'YaTeX::ref-labeling-regexp)))
  18.374 +	  (while list
  18.375 +	    (if (looking-at (car (car list)))
  18.376 +		(progn
  18.377 +		  (setq label (YaTeX-match-string 0))
  18.378 +		  (put 'YaTeX::ref-labeling-regexp lnum
  18.379 +		       (YaTeX-match-string (cdr (car list))))
  18.380 +		  (funcall output (concat labelleader label) 0) ;;0 is dummy
  18.381 +		  (setq list nil)))
  18.382 +	    (setq list (cdr list))))
  18.383 +	))
  18.384 +      (goto-char e0))))
  18.385 +
  18.386  (defun YaTeX::ref (argp &optional labelcmd refcmd predf)
  18.387    (setplist 'YaTeX::ref-labeling-regexp nil) ;erase memory cache
  18.388    (require 'yatexsec)
  18.389 @@ -854,14 +1152,22 @@
  18.390  	  (percent (regexp-quote YaTeX-comment-prefix))
  18.391  	  (output
  18.392  	   (function
  18.393 -	    (lambda (label p)
  18.394 +	    (lambda (label p &optional type) ;type: 'eqn 'item 'cap 'sec 'misc
  18.395  	      (while (setq x (string-match "[\n\t]" label))
  18.396  		(aset label x ? ))
  18.397  	      (while (setq x (string-match "  +" label))
  18.398  		(setq label (concat
  18.399  			     (substring label 0 (1+ (match-beginning 0)))
  18.400  			     (substring label (match-end 0)))))
  18.401 -	      (princ (format "%c: <<%s>>\n" (+ (% lnum 26) ?A) label))
  18.402 +	      (save-excursion
  18.403 +		(set-buffer standard-output)
  18.404 +		(overlay-put
  18.405 +		 (make-overlay
  18.406 +		  (point)
  18.407 +		  (progn
  18.408 +		    (insert (format "%c: <<%s>>\n" (+ (% lnum 26) ?A) label))
  18.409 +		    (point)))
  18.410 +		 'type type))
  18.411  	      (setq point-list (cons p point-list))
  18.412  	      (message "Collecting labels... %d" lnum)
  18.413  	      (setq lnum (1+ lnum)))))
  18.414 @@ -890,238 +1196,10 @@
  18.415  	  (goto-char (point-min))
  18.416  	  (let ((standard-output (get-buffer YaTeX-label-buffer)) existlabel)
  18.417  	    (princ (format "=== LABELS in [%s] ===\n" (buffer-name buf)))
  18.418 -	    (while (YaTeX-re-search-active-forward
  18.419 -		    regexp ;;counter
  18.420 -		    percent nil t)
  18.421 -	      ;(goto-char (match-beginning 0))
  18.422 -	      (setq e0 (match-end 0))
  18.423 -	      (cond
  18.424 -	       ;; 
  18.425 -	       ;;2005/10/21 Skip it if predicate function returns nil
  18.426 -	       ((and predf
  18.427 -		     (let ((md (match-data)))
  18.428 -		       (prog1
  18.429 -			   (condition-case nil
  18.430 -			       (not (funcall predf))
  18.431 -			     (error nil))
  18.432 -			 (store-match-data md)))))
  18.433 -	       ((YaTeX-literal-p) nil)
  18.434 -	       ((YaTeX-match-string 1)
  18.435 -		;;if standard counter commands found 
  18.436 -		(setq cmd (YaTeX-match-string 2)
  18.437 -		      m0 (match-beginning 0))
  18.438 -		(setq match-point (match-beginning 0))
  18.439 -		(or initl
  18.440 -		    (if (< p (point)) (setq initl lnum)))
  18.441 -		(cond
  18.442 -		 ;; In any case, variables e0 should be set
  18.443 -		 ((and YaTeX-use-AMS-LaTeX
  18.444 -		       (string-match YaTeX::ref-nestable-counter-regexp cmd))
  18.445 -		  (let (label)
  18.446 -		    (skip-chars-forward "}")
  18.447 -		    (setq label (buffer-substring
  18.448 -				 (point) (min (+ 80 (point)) (point-max))))
  18.449 -		    ;; to skip (maybe)auto-generated comment
  18.450 -		    (skip-chars-forward " \t")
  18.451 -		    (if (looking-at YaTeX-comment-prefix)
  18.452 -			(forward-line 1))
  18.453 -		    (setq e0 (point))
  18.454 -		    (skip-chars-forward " \t\n")
  18.455 -		    (if (looking-at "\\\\label{\\([^}]+\\)}")
  18.456 -			(setq label (format "(labe:%s)" (YaTeX-match-string 1))
  18.457 -			      e0 (match-end 1)))
  18.458 -		    (funcall output (format "--subequation--%s" label) e0)))
  18.459 -		 ((string-match mathenvs cmd) ;;if matches mathematical env
  18.460 -		  (skip-chars-forward "}")
  18.461 -		  (setq x (point)
  18.462 -			envname (substring
  18.463 -				 cmd (match-beginning 0) (match-end 0)))
  18.464 -		  (save-restriction
  18.465 -		    (narrow-to-region
  18.466 -		     m0
  18.467 -		     (save-excursion
  18.468 -		       (YaTeX-re-search-active-forward
  18.469 -			(setq endrx (format "%send{%s}" YaTeX-ec-regexp
  18.470 -					    (regexp-quote envname)))
  18.471 -			percent nil t)))
  18.472 -		    (catch 'scan
  18.473 -		      (while (YaTeX-re-search-active-forward
  18.474 -			      (concat
  18.475 -			       "\\\\end{\\(" (regexp-quote envname) "\\)";;(1)
  18.476 -			       "\\|\\\\\\(notag\\)" ;;2
  18.477 -			       (if (string-match
  18.478 -				    YaTeX::ref-mathenv-exp1-regexp  cmd)
  18.479 -				   "" "\\|\\(\\\\\\\\\\)$") ;;3
  18.480 -			       )
  18.481 -			      percent nil t)
  18.482 -			(let*((quit (match-beginning 1))
  18.483 -			      (notag (match-beginning 2))
  18.484 -			      (newln (match-beginning 3))
  18.485 -			      (label ".......................") l2
  18.486 -			      (e (point)) (m0 (match-beginning 0))
  18.487 -			      (ln (YaTeX-string-width label)))
  18.488 -			  (cond
  18.489 -			   (notag
  18.490 -			    (YaTeX-re-search-active-forward
  18.491 -			     "\\\\\\\\" percent nil 1)
  18.492 -			    (setq x (point))) ;use x as \label search bound
  18.493 -			   ((and newln	; `\\' found
  18.494 -				 (not (equal (YaTeX-inner-environment)
  18.495 -					     envname)))
  18.496 -			    (YaTeX-end-of-environment)
  18.497 -			    (goto-char (match-end 0)))
  18.498 -			   (t
  18.499 -			    (if (YaTeX-re-search-active-backward
  18.500 -				 YaTeX::ref-labeling-regexp
  18.501 -				 percent x t)
  18.502 -				;; if \label{x} in math-expression, display it
  18.503 -				;; because formula source is hard to recognize
  18.504 -				(progn
  18.505 -				  (goto-char (match-end 0))
  18.506 -				  (setq l2 (format "\"label:%s\""
  18.507 -						   (buffer-substring
  18.508 -						    (1- (point))
  18.509 -						    (progn (forward-sexp -1)
  18.510 -							   (1+ (point))))))
  18.511 -				  (setq label
  18.512 -					(if (< (YaTeX-string-width l2) ln)
  18.513 -					    (concat
  18.514 -					     l2
  18.515 -					     (substring
  18.516 -					      label
  18.517 -					      0 (- ln (YaTeX-string-width l2))))
  18.518 -					  l2))
  18.519 -				  (goto-char e)))
  18.520 -			    (funcall output
  18.521 -				     (concat
  18.522 -				      label " "
  18.523 -				      (buffer-substring x m0))
  18.524 -				     x)
  18.525 -			    (cond
  18.526 -			     ((YaTeX-quick-in-environment-p
  18.527 -			       YaTeX-math-gathering-list)
  18.528 -			      ;; if here is inner split/cases/gathered env.,
  18.529 -			      ;; counter for here is only one.
  18.530 -			      ;; Go out this environment and,
  18.531 -			      (YaTeX-end-of-environment)
  18.532 -			      ;; search next expression unit boundary.
  18.533 -			      (YaTeX-re-search-active-forward
  18.534 -			       (concat endrx "\\|\\\\begin{")
  18.535 -			       percent nil 1)
  18.536 -			      (end-of-line)))
  18.537 -			    (if quit (throw 'scan t)))))
  18.538 -			(setq x (point)))))
  18.539 -		  (setq e0 (point)))
  18.540 -		 ((string-match enums cmd)
  18.541 -		  ;(skip-chars-forward "} \t\n")
  18.542 -		  (save-restriction
  18.543 -		    (narrow-to-region
  18.544 -		     (point)
  18.545 -		     (save-excursion
  18.546 -		       (YaTeX-goto-corresponding-environment) (point)))
  18.547 -		    (forward-line 1)
  18.548 -		    (while (YaTeX-re-search-active-forward
  18.549 -			    (concat YaTeX-ec-regexp "item\\s ")
  18.550 -			    percent nil t)
  18.551 -		      (setq x (match-beginning 0))
  18.552 -		      (funcall
  18.553 -		       output
  18.554 -		       (concat
  18.555 -			existlabel
  18.556 -			(buffer-substring
  18.557 -			 (match-beginning 0)
  18.558 -			 (if (re-search-forward itemsep nil t)
  18.559 -			     (progn (goto-char (match-beginning 0))
  18.560 -				    (skip-chars-backward " \t")
  18.561 -				    (1- (point)))
  18.562 -			   (point-end-of-line))))
  18.563 -		       x))
  18.564 -		    (setq e0 (point-max))))
  18.565 -		 ((string-match "bibitem" cmd) ;maybe generated by myself
  18.566 -		  (setq label "")
  18.567 -		  (skip-chars-forward " \t")
  18.568 -		  (if (looking-at "{")	;sure to be true!!
  18.569 -		      (forward-list 1))
  18.570 -		  (let ((list '(30 10 65))
  18.571 -			(delim ";") q lim len l str)
  18.572 -		    (save-excursion
  18.573 -		      (setq lim (if (re-search-forward itemsep nil 1)
  18.574 -				    (match-beginning 0) (point))))
  18.575 -		    (while list
  18.576 -		      (skip-chars-forward " \t\n\\")
  18.577 -		      (setq q (looking-at "[\"'{]")
  18.578 -			    len (car list)
  18.579 -			    str
  18.580 -			    (buffer-substring
  18.581 -			     (point)
  18.582 -			     (progn
  18.583 -			       (if q (forward-sexp 1)
  18.584 -				 (search-forward delim lim 1)
  18.585 -				 (forward-char -1))
  18.586 -			       (point))))
  18.587 -		      (if (> (setq l (YaTeX-string-width str)) len)
  18.588 -			  (setq str (concat
  18.589 -				     (YaTeX-truncate-string-width
  18.590 -				      str (- len (if q 5 4)))
  18.591 -				     "... "
  18.592 -				     (if q (substring str -1)))))
  18.593 -		      (if (< (setq l (YaTeX-string-width str)) len)
  18.594 -			  (setq str (concat str (make-string (- len l) ? ))))
  18.595 -		      (if (looking-at delim) (goto-char (match-end 0)))
  18.596 -		      (setq label (concat label " " str)
  18.597 -			    list (cdr list)))
  18.598 -		    (funcall output label match-point)))
  18.599 -		 ;;else, simple section-type counter
  18.600 -		 ((= (char-after (1- (point))) ?{)
  18.601 -		  (setq label (buffer-substring
  18.602 -			       (match-beginning 0)
  18.603 -			       (progn (forward-char -1)
  18.604 -				      (forward-list 1)
  18.605 -				      (point))))
  18.606 -		  (funcall output label match-point)
  18.607 -		  ;; Skip preceding label if exists
  18.608 -		  (if (YaTeX::ref-getset-label (current-buffer) match-point t)
  18.609 -		      (goto-char (get 'YaTeX::ref-getset-label 'foundpoint)))
  18.610 -		  (if (save-excursion
  18.611 -			(skip-chars-forward "\t \n")
  18.612 -			(looking-at YaTeX::ref-labeling-regexp))
  18.613 -		      (setq e0 (match-end 0))))
  18.614 -		 (t
  18.615 -		  (skip-chars-forward " \t")
  18.616 -		  (setq label (buffer-substring
  18.617 -			       (match-beginning 0)
  18.618 -			       (if (re-search-forward
  18.619 -				    itemsep
  18.620 -				    nil t)
  18.621 -				   (progn
  18.622 -				     (goto-char (match-beginning 0))
  18.623 -				     (skip-chars-backward " \t")
  18.624 -				     (1- (point)))
  18.625 -				 (point-end-of-line))))
  18.626 -		  (funcall output label match-point)
  18.627 -		  (if (save-excursion
  18.628 -			(skip-chars-forward "\t \n")
  18.629 -			(looking-at YaTeX::ref-labeling-regexp))
  18.630 -		      (setq e0 (match-end 0)))))
  18.631 -		) ;;put label buffer
  18.632 -	       ;;
  18.633 -	       ;; if user defined label found
  18.634 -	       (t
  18.635 -		;; memorize line number and label into property
  18.636 -		(goto-char (match-beginning 0))
  18.637 -		(let ((list YaTeX::ref-labeling-regexp-alist)
  18.638 -		      (cache (symbol-plist 'YaTeX::ref-labeling-regexp)))
  18.639 -		  (while list
  18.640 -		    (if (looking-at (car (car list)))
  18.641 -			(progn
  18.642 -			  (setq label (YaTeX-match-string 0))
  18.643 -			  (put 'YaTeX::ref-labeling-regexp lnum
  18.644 -			       (YaTeX-match-string (cdr (car list))))
  18.645 -			  (funcall output label 0) ;;0 is dummy, never used
  18.646 -			  (setq list nil)))
  18.647 -		    (setq list (cdr list))))
  18.648 -		))
  18.649 -	      (goto-char e0))
  18.650 +
  18.651 +	    (YaTeX::ref-1)
  18.652 +
  18.653 +	    
  18.654  	    (princ YaTeX-label-menu-other)
  18.655  	    (princ YaTeX-label-menu-repeat)
  18.656  	    (princ YaTeX-label-menu-any)
  18.657 @@ -1511,7 +1589,7 @@
  18.658        command))
  18.659     ((= argp 2)
  18.660      (let ((argc
  18.661 -	   (string-to-int
  18.662 +	   (YaTeX-str2int
  18.663  	    (read-string-with-history "Number of arguments(Default 0): ")))
  18.664  	  (def (YaTeX-read-string-or-skip "Definition: "))
  18.665  	  (command (get 'YaTeX::newcommand 'command)))
  18.666 @@ -2290,5 +2368,4 @@
  18.667  ; fill-prefix: ";;; "
  18.668  ; paragraph-start: "^$\\|\\|;;;$"
  18.669  ; paragraph-separate: "^$\\|\\|;;;$"
  18.670 -; coding: sjis
  18.671  ; End:
    19.1 --- a/yatexenv.el	Thu Jan 05 23:20:34 2017 +0900
    19.2 +++ b/yatexenv.el	Sun Sep 10 21:40:11 2017 +0859
    19.3 @@ -1,6 +1,6 @@
    19.4  ;;; yatexenv.el --- YaTeX environment-specific functions
    19.5  ;;; (c) 1994-2017 by HIROSE Yuuji.[yuuji@yatex.org]
    19.6 -;;; Last modified Thu Jan  5 17:45:53 2017 on firestorm
    19.7 +;;; Last modified Thu May  4 10:19:20 2017 on firestorm
    19.8  ;;; $Id$
    19.9  
   19.10  ;;; Code:
   19.11 @@ -43,7 +43,7 @@
   19.12         ((> n 1)
   19.13  	(re-search-backward andptn)	;Sure to find!
   19.14  	(while (re-search-backward "\\\\multicolumn{\\([0-9]+\\)}" bor t)
   19.15 -	  (setq n (+ n (string-to-int
   19.16 +	  (setq n (+ n (YaTeX-str2int
   19.17  			(buffer-substring (match-beginning 1)
   19.18  					  (match-end 1)))
   19.19  		     -1)))))
   19.20 @@ -101,7 +101,7 @@
   19.21  	  (forward-list 1))
   19.22  	 ((equal elt ?*)		;*{N}{EXP} -> Repeat EXP N times
   19.23  	  (skip-chars-forward "^{" end)
   19.24 -	  (setq cols (* (string-to-int
   19.25 +	  (setq cols (* (YaTeX-str2int
   19.26  			 (buffer-substring
   19.27  			  (1+ (point))
   19.28  			  (progn (forward-list 1) (1- (point)))))
   19.29 @@ -136,7 +136,7 @@
   19.30  	     ((eq type 'alignat)
   19.31  	      (max
   19.32  	       1
   19.33 -	       (* 2 (string-to-int
   19.34 +	       (* 2 (YaTeX-str2int
   19.35  		     (buffer-substring
   19.36  		      (point)
   19.37  		      (progn (up-list -1) (forward-list 1) (1- (point))))))))
   19.38 @@ -391,6 +391,11 @@
   19.39  
   19.40  (fset 'YaTeX-enclose-eqnarray 'YaTeX-enclose-equation)
   19.41  (fset 'YaTeX-enclose-eqnarray* 'YaTeX-enclose-equation)
   19.42 +(mapcar (function	;; Add all AMS LaTeX envs
   19.43 +	 (lambda (sym)
   19.44 +	   (fset (intern (concat "YaTeX-enclose-" (car sym)))
   19.45 +		 'YaTeX-enclose-equation)))
   19.46 +	YaTeX-ams-math-begin-alist)
   19.47  
   19.48  (defun YaTeX-enclose-verbatim (beg end)) ;do nothing when enclose verbatim
   19.49  (fset 'YaTeX-enclose-verbatim* 'YaTeX-enclose-verbatim)
    20.1 --- a/yatexgen.el	Thu Jan 05 23:20:34 2017 +0900
    20.2 +++ b/yatexgen.el	Sun Sep 10 21:40:11 2017 +0859
    20.3 @@ -1,6 +1,6 @@
    20.4  ;;; yatexgen.el --- YaTeX add-in function generator(rev.5)
    20.5  
    20.6 -;;; (c)1991-1995,1999,2000 by HIROSE Yuuji.[yuuji@yatex.org]
    20.7 +;;; (c)1991-1995,1999,2000,2017 by HIROSE Yuuji.[yuuji@yatex.org]
    20.8  ;;; Last modified Sun Dec 21 14:04:49 2014 on firestorm
    20.9  ;;; $Id$
   20.10  
   20.11 @@ -582,6 +582,6 @@
   20.12         (YaTeX-generate-option-type command)
   20.13       (YaTeX-generate-argument-type
   20.14        command
   20.15 -      (string-to-int (read-string "How many arguments?: ")))) nil))
   20.16 +      (YaTeX-str2int (read-string "How many arguments?: ")))) nil))
   20.17  
   20.18  (provide 'yatexgen)
    21.1 --- a/yatexlib.el	Thu Jan 05 23:20:34 2017 +0900
    21.2 +++ b/yatexlib.el	Sun Sep 10 21:40:11 2017 +0859
    21.3 @@ -1,16 +1,25 @@
    21.4  ;;; yatexlib.el --- YaTeX and yahtml common libraries -*- coding: sjis -*-
    21.5  ;;; 
    21.6  ;;; (c)1994-2017 by HIROSE Yuuji.[yuuji@yatex.org]
    21.7 -;;; Last modified Thu Jan  5 17:46:13 2017 on firestorm
    21.8 +;;; Last modified Sun Sep 10 21:16:11 2017 on firestorm
    21.9  ;;; $Id$
   21.10  
   21.11  ;;; Code:
   21.12 +
   21.13 +;; High-precedence compatible function
   21.14 +(fset 'YaTeX-str2int
   21.15 +      (if (fboundp 'string-to-number)
   21.16 +	  (function
   21.17 +	   (lambda (string &optional base)
   21.18 +	     (ceiling (string-to-number string base))))
   21.19 +	'string-to-int))
   21.20 +
   21.21  ;; General variables
   21.22  (defvar YaTeX-dos (memq system-type '(ms-dos windows-nt OS/2)))
   21.23  (defvar YaTeX-macos (memq system-type '(darwin)))
   21.24 -(defvar YaTeX-emacs-19 (>= (string-to-int emacs-version) 19))
   21.25 -(defvar YaTeX-emacs-20 (>= (string-to-int emacs-version) 20))
   21.26 -(defvar YaTeX-emacs-21 (>= (string-to-int emacs-version) 21))
   21.27 +(defvar YaTeX-emacs-19 (>= (YaTeX-str2int emacs-version) 19))
   21.28 +(defvar YaTeX-emacs-20 (>= (YaTeX-str2int emacs-version) 20))
   21.29 +(defvar YaTeX-emacs-21 (>= (YaTeX-str2int emacs-version) 21))
   21.30  (defvar YaTeX-user-completion-table
   21.31    (if YaTeX-dos "~/_yatexrc" "~/.yatexrc")
   21.32    "*Default filename in which user completion table is saved.")
   21.33 @@ -559,7 +568,7 @@
   21.34  	    (if (numberp height)
   21.35  		(+ height 2)
   21.36  	      (/ (* (YaTeX-screen-height)
   21.37 -		    (string-to-int height))
   21.38 +		    (YaTeX-str2int height))
   21.39  		 100)))
   21.40  	 (- (YaTeX-screen-height) window-min-height 1))
   21.41  	window-min-height))))
   21.42 @@ -1037,7 +1046,7 @@
   21.43  		  (cons env m0)))	;else, return meaningful values
   21.44  	  (store-match-data md)))))))
   21.45  
   21.46 -(defun YaTeX-goto-corresponding-environment (&optional allow-mismatch noerr)
   21.47 +(defun YaTeX-goto-corresponding-environment (&optional allow-mismatch noerr bg)
   21.48    "Go to corresponding begin/end enclosure.
   21.49  Optional argument ALLOW-MISMATCH allows mismatch open/clese.  Use this
   21.50  for \left(, \right).
   21.51 @@ -1049,14 +1058,14 @@
   21.52  	  (m1 (match-beginning 1))	;environment in \begin{}
   21.53  	  (m2 (match-beginning 2))	;environment in \end{}
   21.54  	  (m3 (match-beginning 3)))	;environment in \[ \] \( \)
   21.55 -      ;(setq env (regexp-quote (buffer-substring p (match-beginning 0))))
   21.56 +					;(setq env (regexp-quote (buffer-substring p (match-beginning 0))))
   21.57        (if (cond
   21.58  	   (m1				;if begin{xxx}
   21.59  	    (setq env
   21.60  		  (if allow-mismatch YaTeX-struct-name-regexp
   21.61  		    (regexp-quote (buffer-substring m1 (match-end 1)))))
   21.62 -	;    (setq regexp (concat "\\(\\\\end{" env "}\\)\\|"
   21.63 -	;			 "\\(\\\\begin{" env "}\\)"))
   21.64 +					;    (setq regexp (concat "\\(\\\\end{" env "}\\)\\|"
   21.65 +					;			 "\\(\\\\begin{" env "}\\)"))
   21.66  	    (setq regexp
   21.67  		  (concat
   21.68  		   "\\("
   21.69 @@ -1071,8 +1080,8 @@
   21.70  	    (setq env
   21.71  		  (if allow-mismatch YaTeX-struct-name-regexp
   21.72  		    (regexp-quote (buffer-substring m2 (match-end 2)))))
   21.73 -	;   (setq regexp (concat "\\(\\\\begin{" env "}\\)\\|"
   21.74 -	;			 "\\(\\\\end{" env "}\\)"))
   21.75 +					;   (setq regexp (concat "\\(\\\\begin{" env "}\\)\\|"
   21.76 +					;			 "\\(\\\\end{" env "}\\)"))
   21.77  	    (setq regexp
   21.78  		  (concat
   21.79  		   "\\("
   21.80 @@ -1110,7 +1119,7 @@
   21.81  	      (funcall
   21.82  	       (if noerr 'message 'error)
   21.83  	       "Corresponding environment `%s' not found." env)
   21.84 -	      (sit-for 1)
   21.85 +	      (or bg (sit-for 1))
   21.86  	      nil))))))
   21.87  
   21.88  (defun YaTeX-end-environment ()
   21.89 @@ -1657,6 +1666,37 @@
   21.90  	      (/ (nth 2 before) mil))))))
   21.91  
   21.92  ;;;
   21.93 +;; Moved from comment.el
   21.94 +;;;
   21.95 +(defun YaTeX-comment-region-sub (string &optional beg end once)
   21.96 +  "Insert STRING at the beginning of every line between BEG and END."
   21.97 +  (if (not (stringp string)) (setq string YaTeX-comment-prefix))
   21.98 +  (let ((b (or beg (region-beginning))) (e (or end (region-end))))
   21.99 +    (save-excursion
  21.100 +      (goto-char (max b e))
  21.101 +      (if (bolp)
  21.102 +	  (forward-line -1))
  21.103 +      (save-restriction 
  21.104 +	(narrow-to-region (min b e) (point))
  21.105 +	(goto-char (point-min))
  21.106 +	(message "%s" string)
  21.107 +	(while (re-search-forward "^" nil t)
  21.108 +	  (insert string))))))
  21.109 +
  21.110 +(defun YaTeX-uncomment-region-sub (string &optional beg end once)
  21.111 +  "Delete STRING from the beginning of every line between BEG and END.
  21.112 +BEG and END are optional.  If omitted, active region used.
  21.113 +Non-nil for optional 4th argument ONCE withholds from removing
  21.114 +successive comment chars at the beggining of lines."
  21.115 +  (save-excursion
  21.116 +    (save-restriction 
  21.117 +      (narrow-to-region (or beg (region-beginning)) (or end (region-end)))
  21.118 +      (goto-char (point-min))
  21.119 +      (while (re-search-forward (concat "^" string) nil t)
  21.120 +	(replace-match "")
  21.121 +	(if once (end-of-line))))))
  21.122 +
  21.123 +;;;
  21.124  ;; Functions for the Installation time
  21.125  ;;;
  21.126  
  21.127 @@ -1694,9 +1734,3 @@
  21.128  	(kill-emacs))))
  21.129  
  21.130  (provide 'yatexlib)
  21.131 -; Local variables:
  21.132 -; fill-prefix: ";;; "
  21.133 -; paragraph-start: "^$\\|\\|;;;$"
  21.134 -; paragraph-separate: "^$\\|\\|;;;$"
  21.135 -; coding: sjis
  21.136 -; End:
    22.1 --- a/yatexmth.el	Thu Jan 05 23:20:34 2017 +0900
    22.2 +++ b/yatexmth.el	Sun Sep 10 21:40:11 2017 +0859
    22.3 @@ -1,7 +1,7 @@
    22.4  ;;; yatexmth.el --- YaTeX math-mode-specific functions -*- coding: sjis -*-
    22.5  ;;; 
    22.6  ;;; (c)1993-2017 by HIROSE Yuuji [yuuji@yatex.org]
    22.7 -;;; Last modified Thu Jan  5 17:46:22 2017 on firestorm
    22.8 +;;; Last modified Tue May 23 11:41:17 2017 on firestorm
    22.9  ;;; $Id$
   22.10  
   22.11  ;;; Commentary:
   22.12 @@ -321,6 +321,7 @@
   22.13     ("mi"	"mathit"	"\\mathit{}")
   22.14     ("mr"	"mathrm"	"\\mathrm{}")
   22.15     ("mb"	"mathbf"	"\\mathbf{}")
   22.16 +   ("mB"	"mathbb"	"\\mathbb{}")
   22.17     ("mt"	"mathtt"	"\\mathtt{}")
   22.18     ("ms"	"mathsf"	"\\mathsf{}")
   22.19     ("mc"	"mathcal"	"\\mathcal{}")
   22.20 @@ -346,53 +347,64 @@
   22.21  ;;)
   22.22  
   22.23  (defvar YaTeX-greek-key-alist-default
   22.24 -  '(
   22.25 -    ("a"	"alpha"		("a" "α"))
   22.26 -    ("b"	"beta"		("|>\n|>\n|" "β"))
   22.27 -    ("g"	"gamma"		("~r" "γ"))
   22.28 -    ("G"	"Gamma"		("|~" "Γ"))
   22.29 -    ("d"	"delta"		("<~\n<>" "δ"))
   22.30 -    ("D"	"Delta"		("/\\\n~~" "Δ"))
   22.31 -    ("e"	"epsilon"	"<\n<~")
   22.32 -    ("e-"	"varepsilon"	("(\n(~" "ε"))
   22.33 -    ("z"	"zeta"		("(~\n >" "ζ"))
   22.34 -    ("et"	"eta"		("n\n/" "η"))
   22.35 -    ("th"	"theta"		("8" "θ"))
   22.36 -    ("Th"	"Theta"		("(8)" "Θ"))
   22.37 -    ("th-"	"vartheta"	("-8" "-θ"))
   22.38 -    ("i"	"iota"		("i\n\\_/" "ι"))
   22.39 -    ("k"	"kappa"		("k" "κ"))
   22.40 -    ("l"	"lambda"	("\\n/\\" "λ"))
   22.41 -    ("L"	"Lambda"	("/\\" "Λ"))
   22.42 -    ("m"	"mu"		(" u_\n/" "μ"))
   22.43 -    ("n"	"nu"		("|/" "ν"))
   22.44 -    ("x"	"xi"		("E\n >" "ξ"))
   22.45 -    ("X"	"Xi"		("---\n -\n---" "Ξ"))
   22.46 -    ("p"	"pi"		("__\n)(" "π"))
   22.47 -    ("P"	"Pi"		("__\n||" "Π"))
   22.48 -    ("p-"	"varpi"		("_\nw" "__\nω"))
   22.49 -    ("r"	"rho"		("/O" "ρ"))
   22.50 -    ("r-"	"varrho"	("/O\n~~" "ρ\n~~"))
   22.51 -    ("s"	"sigma"		("o~" "σ"))
   22.52 -    ("S"	"Sigma"		("\\-+\n >\n/-+" "Σ"))
   22.53 -    ("s-"	"varsigma"	"(~~ \n>")
   22.54 -    ("t"	"tau"		("__\n(" "τ"))
   22.55 -    ("u"	"upsilon"	("~v" "υ"))
   22.56 -    ("y"	"upsilon"	("~v" "υ"))
   22.57 -    ("U"	"Upsilon"	("~Y~" "Υ"))
   22.58 -    ("Y"	"Upsilon"	("~Y~" "Υ"))
   22.59 -    ("ph"	"phi"		("  /\n(/)\n/" "φ"))
   22.60 -    ("Ph"	"Phi"		(" _\n(|)\n ~" "Φ"))
   22.61 -    ("ph-"	"varphi"	"\\O\n|")
   22.62 -    ("c"	"chi"		("x" "χ"))
   22.63 -    ("ps"	"psi"		("\\|/\\n |" "ψ"))
   22.64 -    ("Ps"	"Psi"		(" ~\n\\|/\\n |" "Ψ"))
   22.65 -    ("o"	"omega"		("w" "ω"))
   22.66 -    ("w"	"omega"		("w" "ω"))
   22.67 -    ("O"	"Omega"		("(~)\n~ ~" "Ω"))
   22.68 -    ("W"	"Omega"		("(~)\n~ ~" "Ω"))
   22.69 -    ("f" "foo")
   22.70 -    )
   22.71 +  (append
   22.72 +   '(("a"	"alpha"		("a" "α"))
   22.73 +     ("b"	"beta"		("|>\n|>\n|" "β"))
   22.74 +     ("g"	"gamma"		("~r" "γ"))
   22.75 +     ("G"	"Gamma"		("|~" "Γ"))
   22.76 +     ("d"	"delta"		("<~\n<>" "δ"))
   22.77 +     ("D"	"Delta"		("/\\\n~~" "Δ"))
   22.78 +     ("e"	"epsilon"	"<\n<~")
   22.79 +     ("e-"	"varepsilon"	("(\n(~" "_ε"))
   22.80 +     ("z"	"zeta"		("(~\n >" "ζ"))
   22.81 +     ("et"	"eta"		("n\n/" "η"))
   22.82 +     ("th"	"theta"		("8" "θ"))
   22.83 +     ("Th"	"Theta"		("(8)" "Θ"))
   22.84 +     ("th-"	"vartheta"	("-8" "_θ"))
   22.85 +     ("i"	"iota"		("i\n\\_/" "ι"))
   22.86 +     ("k"	"kappa"		("k" "κ"))
   22.87 +     ("l"	"lambda"	("\\n/\\" "λ"))
   22.88 +     ("L"	"Lambda"	("/\\" "Λ"))
   22.89 +     ("m"	"mu"		(" u_\n/" "μ"))
   22.90 +     ("n"	"nu"		("|/" "ν"))
   22.91 +     ("x"	"xi"		("E\n >" "ξ"))
   22.92 +     ("X"	"Xi"		("---\n -\n---" "Ξ"))
   22.93 +     ("p"	"pi"		("__\n)(" "π"))
   22.94 +     ("P"	"Pi"		("__\n||" "Π"))
   22.95 +     ("p-"	"varpi"		("__\n/(" "_π"))
   22.96 +     ("r"	"rho"		("/O" "ρ"))
   22.97 +     ("r-"	"varrho"	("/O\n~~" "ρ\n~~"))
   22.98 +     ("s"	"sigma"		("o~" "σ"))
   22.99 +     ("S"	"Sigma"		("\\-+\n >\n/-+" "Σ"))
  22.100 +     ("s-"	"varsigma"	"/~~ \n /")
  22.101 +     ("t"	"tau"		("__\n(" "τ"))
  22.102 +     ("u"	"upsilon"	("~v" "υ"))
  22.103 +     ("y"	"upsilon"	("~v" "υ"))
  22.104 +     ("U"	"Upsilon"	("~Y~" "Υ"))
  22.105 +     ("Y"	"Upsilon"	("~Y~" "Υ"))
  22.106 +     ("ph"	"phi"		("  /\n(/)\n/" "φ"))
  22.107 +     ("Ph"	"Phi"		(" _\n(|)\n ~" "Φ"))
  22.108 +     ("ph-"	"varphi"	"\\O\n|")
  22.109 +     ("c"	"chi"		("x" "χ"))
  22.110 +     ("ps"	"psi"		("\\|/\\n |" "ψ"))
  22.111 +     ("Ps"	"Psi"		(" ~\n\\|/\\n |" "Ψ"))
  22.112 +     ("o"	"omega"		("w" "ω"))
  22.113 +     ("w"	"omega"		("w" "ω"))
  22.114 +     ("O"	"Omega"		("(~)\n~ ~" "Ω"))
  22.115 +     ("W"	"Omega"		("(~)\n~ ~" "Ω"))
  22.116 +     ("f" "foo"))
  22.117 +   (if YaTeX-use-AMS-LaTeX
  22.118 +       '(
  22.119 +	 ("G-"	"varGamma"	("/~" "_Γ"))
  22.120 +	 ("D-"	"varDelta"	("/|\n~~" "_Δ"))
  22.121 +	 ("Th-"	"varTheta"	("/8/" "_Θ"))
  22.122 +	 ("L-"	"varLambda"	("/|" "_Λ"))
  22.123 +	 ("X-"	"varXi"		(" --\n -\n-- " "_Ξ"))
  22.124 +	 ("S-"	"varSigma"	(" \\-+\n >\n/-+" "_Σ"))
  22.125 +	 ("U-"	"varUpsilon"	("~~Y~" "_Υ"))
  22.126 +	 ("Ph-"	"varPhi"	("  _\n(|)\n~" "_Φ"))
  22.127 +	 ("Ps-"	"varPsi"	("  ~\n\\//\\n /" "Ψ"))
  22.128 +	 ("O-"	"varOmega"	("/~/\n~ ~" "_Ω")))))
  22.129    "Default LaTeX-math-command alist.")
  22.130  
  22.131  (defvar YaTeX-greek-key-alist-private nil
  22.132 @@ -522,7 +534,8 @@
  22.133  	      ;;  "equation*" "cases" "flalign" "flalign*"
  22.134  	      ;;  "alignat*" "xalignat" "xalignat*" "xxalignat" "xxalignat*"
  22.135  	      YaTeX-math-begin-list
  22.136 -	    )))
  22.137 +	    )
  22.138 +	  YaTeX-math-other-env-list))
  22.139  	(let*((p (point)) (nest 0) me0 r firstp dollar
  22.140  	      (delim (concat YaTeX-sectioning-regexp "\\|^$\\|^\C-l"))
  22.141  	      (boundary
    23.1 --- a/yatexpkg.el	Thu Jan 05 23:20:34 2017 +0900
    23.2 +++ b/yatexpkg.el	Sun Sep 10 21:40:11 2017 +0859
    23.3 @@ -1,7 +1,7 @@
    23.4  ;;; yatexpkg.el --- YaTeX package manager -*- coding: sjis -*-
    23.5  ;;; 
    23.6  ;;; (c)2003-2017 by HIROSE, Yuuji [yuuji@yatex.org]
    23.7 -;;; Last modified Thu Jan  5 17:46:30 2017 on firestorm
    23.8 +;;; Last modified Tue May 23 11:33:17 2017 on firestorm
    23.9  ;;; $Id$
   23.10  
   23.11  ;;; Code:
   23.12 @@ -34,7 +34,10 @@
   23.13       		(section "tag" "tag*"))
   23.14      ("amssymb"	(maketitle "leqq" "geqq" "mathbb" "mathfrak"
   23.15  			   "fallingdotseq" "therefore" "because"
   23.16 +			   "varDelta" "varTheta" "varLambda" "varXi" "varPi"
   23.17 +			   "varSigma" "varUpsilon" "varPhi" "varPsi" "varOmega"
   23.18  			   "lll" "ggg")) ;very few.  Please tell us!
   23.19 +    ("mathrsfs"	(section "mathscr"))
   23.20      ("graphicx" (section "includegraphics"
   23.21  			 "rotatebox" "scalebox" "resizebox" "reflectbox")
   23.22       		(option . YaTeX-package-graphics-driver-alist))
   23.23 @@ -52,6 +55,7 @@
   23.24      ("labelcpageref"	(same-as . "cref"))
   23.25      ("wrapfig"	(env "wrapfigure" "wraptable"))
   23.26      ("setspace"	(env "spacing") (section "setstretch"))
   23.27 +    ("cases"	(env "numcases" "subnumcases"))
   23.28      )
   23.29    "Default package vs. macro list.
   23.30  Alists contains '(PACKAGENAME . MACROLIST)
    24.1 --- a/yatexprc.el	Thu Jan 05 23:20:34 2017 +0900
    24.2 +++ b/yatexprc.el	Sun Sep 10 21:40:11 2017 +0859
    24.3 @@ -1,7 +1,7 @@
    24.4  ;;; yatexprc.el --- YaTeX process handler -*- coding: sjis -*-
    24.5  ;;; 
    24.6  ;;; (c)1993-2017 by HIROSE Yuuji.[yuuji@yatex.org]
    24.7 -;;; Last modified Thu Jan  5 17:46:36 2017 on firestorm
    24.8 +;;; Last modified Sun Feb 26 11:33:27 2017 on firestorm
    24.9  ;;; $Id$
   24.10  
   24.11  ;;; Code:
   24.12 @@ -1113,7 +1113,7 @@
   24.13  	  t)				;for YaTeX-goto-corresponding-*
   24.14        nil)))
   24.15  
   24.16 -	 (defun YaTeX-set-virtual-error-position (file-sym line-sym)
   24.17 +(defun YaTeX-set-virtual-error-position (file-sym line-sym)
   24.18    "Replace the value of FILE-SYM, LINE-SYM by virtual error position."
   24.19    (cond
   24.20     ((and (get 'dvi2-command 'region)
   24.21 @@ -1131,9 +1131,14 @@
   24.22    (interactive)
   24.23    (let ((cur-buf (save-excursion (YaTeX-visit-main t) (buffer-name)))
   24.24  	(cur-win (selected-window))
   24.25 +	tsb-frame-selwin
   24.26  	b0 bound errorp error-line typeset-win error-buffer error-win)
   24.27      (if (null (get-buffer YaTeX-typeset-buffer))
   24.28  	(error "There is no typesetting buffer."))
   24.29 +    (and (fboundp 'selected-frame)
   24.30 +	 (setq typeset-win (get-buffer-window YaTeX-typeset-buffer t))
   24.31 +	 (setq tsb-frame-selwin (frame-selected-window typeset-win)))
   24.32 +
   24.33      (YaTeX-showup-buffer YaTeX-typeset-buffer nil t)
   24.34      (if (and (markerp YaTeX-typeset-marker)
   24.35  	     (eq (marker-buffer YaTeX-typeset-marker) (current-buffer)))
   24.36 @@ -1149,7 +1154,7 @@
   24.37      (goto-char (setq b0 (match-beginning 0)))
   24.38      (skip-chars-forward "^0-9" (match-end 0))
   24.39      (setq error-line
   24.40 -	  (string-to-int
   24.41 +	  (YaTeX-str2int
   24.42  	   (buffer-substring
   24.43  	    (point)
   24.44  	    (progn (skip-chars-forward "0-9" (match-end 0)) (point))))
   24.45 @@ -1157,9 +1162,23 @@
   24.46      (if (or (null error-line) (equal 0 error-line))
   24.47  	(error "Can't detect error position."))
   24.48      (YaTeX-set-virtual-error-position 'error-buffer 'error-line)
   24.49 +
   24.50 +    (select-window typeset-win)
   24.51 +    (skip-chars-backward "0-9")
   24.52 +    (recenter (/ (window-height) 2))
   24.53 +    (sit-for 1)
   24.54 +    (goto-char b0)
   24.55 +    (and tsb-frame-selwin (select-window tsb-frame-selwin)) ;restore selwin
   24.56 +
   24.57      (setq error-win (get-buffer-window error-buffer))
   24.58      (select-window cur-win)
   24.59      (cond
   24.60 +     (t (goto-buffer-window error-buffer)
   24.61 +	(if (fboundp 'raise-frame)
   24.62 +	    (let ((edit-frame (window-frame (selected-window))))
   24.63 +	      (raise-frame edit-frame)
   24.64 +	      (select-frame edit-frame)))
   24.65 +	)
   24.66       (error-win (select-window error-win))
   24.67       ((eq (get-lru-window) typeset-win)
   24.68        (YaTeX-switch-to-buffer error-buffer))
   24.69 @@ -1170,11 +1189,6 @@
   24.70      (message "LaTeX %s in `%s' on line: %d."
   24.71  	     (if errorp "error" "warning")
   24.72  	     error-buffer error-line)
   24.73 -    (select-window typeset-win)
   24.74 -    (skip-chars-backward "0-9")
   24.75 -    (recenter (/ (window-height) 2))
   24.76 -    (sit-for 1)
   24.77 -    (goto-char b0)
   24.78      (select-window error-win)))
   24.79  
   24.80  (defun YaTeX-jump-error-line ()
   24.81 @@ -1189,7 +1203,7 @@
   24.82  	(if (eobp) (insert (this-command-keys))
   24.83  	  (error "No line number expression."))
   24.84        (goto-char (match-beginning 0))
   24.85 -      (setq error-line (string-to-int
   24.86 +      (setq error-line (YaTeX-str2int
   24.87  			(buffer-substring (match-beginning 1) (match-end 1)))
   24.88  	    error-file (expand-file-name
   24.89  			(YaTeX-get-error-file YaTeX-current-TeX-buffer)))
   24.90 @@ -1251,8 +1265,11 @@
   24.91        (setq s
   24.92  	    (buffer-substring
   24.93  	     (progn (forward-char 1) (point))
   24.94 -	     (progn (skip-chars-forward "^ \n" (point-end-of-line))
   24.95 -		    (point))))
   24.96 +	     (if (re-search-forward
   24.97 +		  "\\.\\(tex\\|sty\\|ltx\\)\\>" nil (point-end-of-line))
   24.98 +		 (match-end 0)
   24.99 +	       (skip-chars-forward "^ \n" (point-end-of-line))
  24.100 +	       (point))))
  24.101        (if (string= "" s) default s))))
  24.102        
  24.103  (defun YaTeX-put-nonstopmode ()
    25.1 --- a/yatexsec.el	Thu Jan 05 23:20:34 2017 +0900
    25.2 +++ b/yatexsec.el	Sun Sep 10 21:40:11 2017 +0859
    25.3 @@ -1,6 +1,6 @@
    25.4  ;;; yatexsec.el --- YaTeX sectioning browser
    25.5  ;;; 
    25.6 -;;; (c) 1994-2013 by HIROSE Yuuji [yuuji@yatex.org]
    25.7 +;;; (c) 1994-2017 by HIROSE Yuuji [yuuji@yatex.org]
    25.8  ;;; Last modified Sun Dec 21 14:16:35 2014 on firestorm
    25.9  ;;; $Id$
   25.10  
   25.11 @@ -134,7 +134,7 @@
   25.12  	   (and ln (string< "" ln)
   25.13  		(progn
   25.14  		  (goto-char (point-min))
   25.15 -		  (forward-line (max 0 (- (string-to-int ln) 2)))
   25.16 +		  (forward-line (max 0 (- (YaTeX-str2int ln) 2)))
   25.17  		  (and
   25.18  		   (search-forward ptn nil t)
   25.19  		   (goto-char (match-beginning 0)))))
   25.20 @@ -345,7 +345,7 @@
   25.21        (set-buffer secbuf)
   25.22        (goto-char (point-max))
   25.23        (while (re-search-backward pattern nil t)
   25.24 -	(if (< ln (string-to-int (YaTeX-match-string 1))) nil
   25.25 +	(if (< ln (YaTeX-str2int (YaTeX-match-string 1))) nil
   25.26  	  (beginning-of-line)
   25.27  	  (search-forward YaTeX-ec)
   25.28  	  (looking-at YaTeX-TeX-token-regexp)