Mercurial > hgrepos > hgweb.cgi > 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 (current diff) 6fd30c828f96 (diff) |
| children | 129b9f9b6d34 |
| files | comment.el |
| diffstat | 25 files changed, 1338 insertions(+), 1096 deletions(-) [+] |
line wrap: on
line diff
--- a/.hgignore Thu Jan 05 23:20:34 2017 +0900 +++ b/.hgignore Sun Sep 10 21:40:11 2017 +0859 @@ -5,6 +5,7 @@ .cvsignore [._]win* __emacs +*.gz *.swp trashbox *.aux
--- a/.hgtags Thu Jan 05 23:20:34 2017 +0900 +++ b/.hgtags Sun Sep 10 21:40:11 2017 +0859 @@ -11,3 +11,4 @@ 0000000000000000000000000000000000000000 yatex-1.77 d0c09133ced7fffa1eb5fa4d114fb12580f812ff yatex-1.77 d69fd7b1ac4d06d7f8633e892dc24eab2bfc23db yatex-1.78 +a3ba09c1e8e907578f679fceb99264ce2d4eb777 yatex-1.79
--- a/00readme Thu Jan 05 23:20:34 2017 +0900 +++ b/00readme Sun Sep 10 21:40:11 2017 +0859 @@ -1,5 +1,5 @@ ・Mercurialリポジトリでも公開しています(1.74以降)。 - % hg clone http://www.yatex.org/hgrepos/yatex yatex + % hg clone https://www.yatex.org/hgrepos/yatex yatex でコピーし、その後は yatex/ ディレクトリ内で hg pull -u して下さい。 ・yatex-1.69 よりバイトコンパイルしないのをデフォルトとしました。 @@ -19,5 +19,5 @@ 鳥」、Hidemaruへの移植版である「飛鳥」、xyzzyへの移植版である「花鳥」 に関する情報交換のためのメイリングリスト「fj野鳥の会」に是非御参加ください。 詳しくは docs/qanda ファイル、または - http://www.yatex.org/ + https://www.yatex.org/ を御覧ください。
--- a/comment.el Thu Jan 05 23:20:34 2017 +0900 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,86 +0,0 @@ -;;; -*- Emacs-Lisp -*- -;;; comment/uncomment region for emacs. -;;; comment.el rev.0.1 -;;; (c) 1992, 2002 by HIROSE Yuuji.(yuuji@yatex.org) -;;; Last modified Mon Nov 25 18:33:23 2002 on firestorm - -;;; Rename `comment-region' to `comment-out-region' for standard -;;; Emacs-19 function. - -(provide 'comment) - -(defvar current-comment-prefix "> " "*Default prefix string") - -(defun cite-region (beg end) - (save-excursion - (goto-char (max beg end)) - (if (bolp) - (forward-line -1)) - (if (string= string "") (setq string current-comment-prefix) - (setq current-comment-prefix string)) - (save-restriction - (narrow-to-region (min beg end) (point)) - (goto-char (point-min)) - (message "%s" string) - (while (re-search-forward "^" nil t) - (replace-match string)) - )) -) - -(defun comment-out-region (string &optional beg end once) - "Inserts STRING at the beginning of every line in the region specified -BEG and END. -Called interactively, STRING defaults to comment-start (or '> ' if -none is defined) unless a prefix argument is given, in which case it -prompts for a string. Optional second argument ONCE is only for -compatibility for uncomment-region. It has no means now." - (interactive - (list (if current-prefix-arg - (read-string - (concat "String to insert" - (format "(default \"%s\")" current-comment-prefix - " ") - ": ")) - current-comment-prefix))) - (if (not (stringp string)) (setq string current-comment-prefix)) - (cite-region (or beg (region-beginning)) (or end (region-end))) -) - - -(defun uncomment-out-region (string &optional beg end once) - "Deletes STRING from the beginning of every line in the region. -Called interactively, STRING defaults to comment-start (or '> ' if -none is defined) unless a prefix argument is given, in which case it -prompts for a string. Optional second argument ONCE restricts -deletion to first occurance of STRING on each line." - (interactive - (list (if current-prefix-arg - (read-string - (concat "String to delete" - (format "(default \"%s\")" current-comment-prefix - " ") - ": ")) - current-comment-prefix))) - (if (not (stringp string)) (setq string current-comment-prefix)) - (save-excursion - (save-restriction - (narrow-to-region (or beg (region-beginning)) (or end (region-end))) - (goto-char (point-min)) - (while (re-search-forward (concat "^" string) nil t) - (replace-match "") - (if once (end-of-line))) - )) -) - -(defun cite-file (filename) - "insert the file with citation string." - (interactive "FCite-file: ") - (let* - ((string - (read-string - (format "Citation string (default \"%s\"): " current-comment-prefix) - )) - (ins-tail (car (cdr (insert-file-contents filename))))) - (save-excursion - (cite-region (point) (+ (point) ins-tail)))) -)
--- a/docs/htmlqa Thu Jan 05 23:20:34 2017 +0900 +++ b/docs/htmlqa Sun Sep 10 21:40:11 2017 +0859 @@ -52,6 +52,9 @@ ・<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=x-sjis">を 認識して漢字コードを設定して欲しいなー。 + HTML5 で書くのであればこの構文を使うのはやめ、文字集合はUTF-8に + 絞り <meta charset="utf--8"> と記しましょう。 + 文書の中にファイルのエンコード法を書いてもそもそもそのMETAなんちゃ らを読めない可能性があるので charset をMETAで指定するのは本当に 期待した通りには機能しません。たとえば、多国語文書を書く必要が出 @@ -185,5 +188,4 @@ mode: indented-text fill-column: 72 fill-prefix: " " -buffer-file-coding-system: shift_jis-dos End:
--- a/docs/qanda Thu Jan 05 23:20:34 2017 +0900 +++ b/docs/qanda Sun Sep 10 21:40:11 2017 +0859 @@ -672,7 +672,7 @@ に更新を行なって下さい。Mercurialをインストール後、以下のように して開発版に追随します。 - hg clone http://www.yatex.org:/hgrepos/yatex + hg clone https://www.yatex.org:/hgrepos/yatex で、リポジトリ全体を取得します。開発ブランチは dev なので @@ -709,5 +709,4 @@ mode: indented-text fill-column: 72 fill-prefix: " " -buffer-file-coding-system: shift_jis-dos End:
--- a/docs/qanda.eng Thu Jan 05 23:20:34 2017 +0900 +++ b/docs/qanda.eng Sun Sep 10 21:40:11 2017 +0859 @@ -381,7 +381,7 @@ If you want to catch up to latest version, using yatex-current is inefficient. Use yatex's mercurial repository instead. - hg clone http://www.yatex.org:/hgrepos/yatex + hg clone https://www.yatex.org:/hgrepos/yatex cd yatex hg up -C dev
--- a/docs/yatexe Thu Jan 05 23:20:34 2017 +0900 +++ b/docs/yatexe Sun Sep 10 21:40:11 2017 +0859 @@ -65,9 +65,9 @@ * Semiautomatic replacing of `\includeonly' * Jumping to error line(`C-c '') * Completing-read of LaTeX commands such as `\begin{}', `\section' etc. - (`C-c b', `C-c s', `C-c l', `C-c m') + (`C-c b', `C-c s', `C-c l', `C-c m') * Enclosing text into LaTeX environments or commands (ABOVEKEYSTROKES - after region setting) + after region setting) * Displaying the structure of text at entering sectioning commands * Lump shifting of sectioning commands (*Note view-sectioning::) * Learning unknown/new LaTeX commands for the next completion @@ -76,15 +76,16 @@ * Quick changing or deleting of LaTeX commands(`C-c c', `C-c k') * Jumping from and to inter-file, begin<->end, ref<->label(`C-c g') * Blanket commenting out or uncommenting (`C-c >', `C-c <', `C-c ,', - `C-c .') + `C-c .') * Easy input of accent mark, math-mode's commands and Greek letters - (`C-c a', `;', `:') + (`C-c a', `;', `:') * Online help for the popular LaTeX commands (`C-c ?', `C-c /') * Document files hierarchy browser (`C-c d') * Adding automatically \usepackage corresponding to inputting LaTeX - macro with completion + macro with completion * Allow you to forget creating \label{}s, \ref{} or \cite{} completion - automatically generate labels. + automatically generate labels. + * \includegraphics by Drag&Drop of image file @@ -130,7 +131,7 @@ ... invoke typesetter on region `[prefix] t e' ... `on-the-fly preview' on current environment or whole - portion of current formulas in math-mode + portion of current formulas in math-mode `[prefix] t d' ... invoke dvipdfmx after successful typesetting `[prefix] t k' @@ -293,12 +294,12 @@ (see *Note Cursor jump::), take described below into consideration. * You can put split texts in sub directory, but not in sub directory of - sub directory. + sub directory. * In the main text, specify the child file name with relative path name - such as \include{chap1/sub}, when you include the file in a - sub-directory. + such as \include{chap1/sub}, when you include the file in a + sub-directory. * In a sub-text, write `%#!latex main.tex' even if `main.tex' is in the - parent directory(not %#!latex ../main.tex). + parent directory(not %#!latex ../main.tex). @@ -336,7 +337,7 @@ -File: yatexe, Node: Lpr format, Prev: Static region for typesetting, Up: %#notation +File: yatexe, Node: Lpr format, Next: Controlling which command to invoke, Prev: Static region for typesetting, Up: %#notation Lpr format ========== @@ -439,6 +440,7 @@ * Begin-type completion:: * Section-type completion:: +* Label Generation:: * Large-type completion:: * Maketitle-type completion:: * Arbitrary completion:: @@ -533,7 +535,7 @@ -File: yatexe, Node: Section-type completion, Next: Large-type completion, Prev: Begin-type completion, Up: Completion +File: yatexe, Node: Section-type completion, Prev: Begin-type completion, Up: Completion Section-type completion ======================= @@ -655,9 +657,44 @@ ... Hide sectioning commands whose level is lower than n + +File: yatexe, Node: Label Generation, Next: Large-type completion, Prev: Section-type completion, Up: Completion + +Label Generation +================ + +When you want to type-in references of `\ref' or `\cite', all you have to +do is type `[prefix] s ref' without adding labels beforehand. You will +see possible LaTeX-counters in the next window even if some counter does +not have `\label'. Selecting the counter will automatically set the label +to that counter. + +All possible counter list in the buffer tends to be large. You can reduce +the number of list by filtering type of counters by key-commands as +follows. + `M-a' + + ... Show all(disable filtering) + `M-c' + + ... Captions only + `M-e' + + ... equations (with counters) only + `M-i' + + ... numbers items only + `M-s' + + ... sections only + `M-m' + + ... other counters only + + -File: yatexe, Node: Large-type completion, Next: Maketitle-type completion, Prev: Section-type completion, Up: Completion +File: yatexe, Node: Large-type completion, Next: Maketitle-type completion, Prev: Label Generation, Up: Completion Large-type completion ===================== @@ -720,7 +757,7 @@ ============== YaTeX automatically detects the opened environment and close it with -`\end{environment}'. Though proficient YaTeX users never fail to make +\`\end{environment}'. Though proficient YaTeX users never fail to make environment with begin-type completion, some may begin an environment manually. In that case, type @@ -1256,7 +1293,7 @@ * `tabular', `tabular*', `array' Corresponding number of `&' and `\\'. And `\hline' if - needed. + needed. * `tabbing' @@ -1606,8 +1643,8 @@ -- Variable: YaTeX-fill-inhibit-environments Inhibit fill in these environments (`'("tabular" "tabular*" "array" - picture" "eqnarray" "eqnarray*" "equation" "math" "displaymath" - verbatim" "verbatim*")') + "picture" "eqnarray" "eqnarray*" "equation" "math" "displaymath" + "verbatim" "verbatim*")') -- Variable: YaTeX-uncomment-once T for deleting all preceding `%' (`nil') @@ -2082,10 +2119,11 @@ ---------------- The latter generator is invoked by the next sequence. `M-x -YaTeX-generate-simple' This generator can make both "option add-in" and -argument add-in" (*refer the section add-in functions* *Note How the -add-in function works::), whereas `YaTeX-generate' cannot make "argument -addin". + YaTeX-generate-simple' This generator can make both + "option add-in" and "argument add-in" (*refer the + section add-in functions* *Note How the add-in + function works::), whereas `YaTeX-generate' cannot + make "argument addin". For example, assume you have the LaTeX command as follows. @@ -2249,9 +2287,12 @@ anything as a result of using this software. Adopting code from this program is also free. But I would not do contract act. + This software can be treated with: "The 2-Clause BSD License" (since +2017-09-09, yatex 1.80). + Any reports and suggestions are welcome as long as I feel interests in this software. My possible e-mail address is `yuuji@yatex.org'. (as of -Jan.2004) And there is mailing list for YaTeX. Although the common +Sep.2017) And there is mailing list for YaTeX. Although the common language is Japanese, questions in English will be welcome. To join the ML, send the mail whose subject is `append' to the address `yatex@yatex.org. If you have some question, please ask to @@ -2267,65 +2308,66 @@ Node: Top256 Node: What is YaTeX?1583 Node: Main features1956 -Node: Installation3500 -Node: Typesetting4277 -Node: Calling typesetter5389 -Node: Calling previewer7916 -Node: Printing out8277 -Node: %#notation8569 -Node: Changing typesetter8940 -Node: Splitting input files9304 -Node: Static region for typesetting10729 -Node: Lpr format11858 -Node: Controlling which command to invoke12888 -Node: Editing %# notation13845 -Node: Completion14389 -Node: Begin-type completion14904 -Node: Section-type completion17758 -Node: view-sectioning20179 -Node: Large-type completion21759 -Node: Maketitle-type completion22412 -Node: Arbitrary completion22964 -Node: End completion23354 -Node: Accent completion23823 -Node: Image completion24440 -Node: Greek letters completion26695 -Node: Inserting parentheses27451 -Node: Local dictionaries27858 -Node: Commenting out28795 -Node: Cursor jump30254 -Node: Jump to corresponding object30545 -Node: Invoking image processor31945 -Node: Jump to main file33288 -Node: Jumping around the environment33654 -Node: Jumping to last completion position34072 -Node: Changing and Deleting34581 -Node: Changing LaTeX commands34962 -Node: Killing LaTeX commands36139 -Node: Filling37324 -Node: Updation of includeonly39179 -Node: What column39976 -Node: Intelligent newline41061 -Node: Usepackage checker42714 -Node: Online help43305 -Node: Browsing file hierarchy44980 -Node: Cooperation with other packages46717 -Node: Customizations47422 -Node: Lisp variables47718 -Node: All customizable variables48677 -Node: Sample definitions60640 -Node: Hook variables61153 -Node: Hook file61857 -Node: Add-in functions62196 -Node: How the add-in function works63034 -Node: Defining option-add-in65220 -Node: Defining argument-add-in65942 -Node: Defining enclosing-add-in66823 -Node: How the function is called67679 -Node: Useful functions for creating add-in68355 -Node: Contribution69765 -Node: Add-in generator70039 -Node: Etcetera75499 -Node: Copying76104 +Node: Installation3591 +Node: Typesetting4368 +Node: Calling typesetter5489 +Node: Calling previewer8016 +Node: Printing out8377 +Node: %#notation8669 +Node: Changing typesetter9040 +Node: Splitting input files9404 +Node: Static region for typesetting10833 +Node: Lpr format11962 +Node: Controlling which command to invoke13035 +Node: Editing %# notation13992 +Node: Completion14536 +Node: Begin-type completion15072 +Node: Section-type completion17926 +Node: view-sectioning20318 +Node: Label Generation21897 +Node: Large-type completion22797 +Node: Maketitle-type completion23443 +Node: Arbitrary completion23995 +Node: End completion24385 +Node: Accent completion24855 +Node: Image completion25472 +Node: Greek letters completion27727 +Node: Inserting parentheses28483 +Node: Local dictionaries28890 +Node: Commenting out29827 +Node: Cursor jump31286 +Node: Jump to corresponding object31577 +Node: Invoking image processor32977 +Node: Jump to main file34320 +Node: Jumping around the environment34686 +Node: Jumping to last completion position35104 +Node: Changing and Deleting35613 +Node: Changing LaTeX commands35994 +Node: Killing LaTeX commands37171 +Node: Filling38356 +Node: Updation of includeonly40211 +Node: What column41008 +Node: Intelligent newline42093 +Node: Usepackage checker43754 +Node: Online help44345 +Node: Browsing file hierarchy46020 +Node: Cooperation with other packages47757 +Node: Customizations48462 +Node: Lisp variables48758 +Node: All customizable variables49717 +Node: Sample definitions61682 +Node: Hook variables62195 +Node: Hook file62899 +Node: Add-in functions63238 +Node: How the add-in function works64076 +Node: Defining option-add-in66262 +Node: Defining argument-add-in66984 +Node: Defining enclosing-add-in67865 +Node: How the function is called68721 +Node: Useful functions for creating add-in69397 +Node: Contribution70807 +Node: Add-in generator71081 +Node: Etcetera76657 +Node: Copying77262 End tag table
--- a/docs/yatexe.tex Thu Jan 05 23:20:34 2017 +0900 +++ b/docs/yatexe.tex Sun Sep 10 21:40:11 2017 +0859 @@ -8,7 +8,7 @@ @iftex @c @syncodeindex fn cp -@c Last modified Fri Feb 13 08:15:26 2015 on firestorm +@c Last modified Sat Sep 9 23:41:37 2017 on firestorm @syncodeindex vr cp @end iftex @@ -18,7 +18,7 @@ @subtitle Yet Another tex-mode for emacs @title Wild Bird @subtitle // YaTeX // -@author @copyright{} 1991-2012 by HIROSE, Yuuji [yuuji@@yatex.org] +@author @copyright{} 1991-2017 by HIROSE, Yuuji [yuuji@@yatex.org] @end titlepage @node Top, What is YaTeX?, (dir), (dir) @@ -29,7 +29,7 @@ @cindex YaTeX @menu -* What is YaTeX?:: +* What is YaTeX?:: * Main features:: What YaTeX can do * Installation:: Guide to install * Typesetting:: Call typesetting processes @@ -96,6 +96,7 @@ macro with completion @item Allow you to forget creating \label@{@}s, \ref@{@} or \cite@{@} completion automatically generate labels. +@item \includegraphics by Drag&Drop of image file @end itemize @node Installation, Typesetting, Main features, Top @@ -171,9 +172,9 @@ @end table @menu -* Calling typesetter:: -* Calling previewer:: -* Printing out:: +* Calling typesetter:: +* Calling previewer:: +* Printing out:: @end menu @node Calling typesetter, Calling previewer, Typesetting, Typesetting @@ -261,12 +262,12 @@ notations in the source text. @menu -* Changing typesetter:: -* Splitting input files:: -* Static region for typesetting:: -* Lpr format:: -* Controlling which command to invoke:: -* Editing %# notation:: +* Changing typesetter:: +* Splitting input files:: +* Static region for typesetting:: +* Lpr format:: +* Controlling which command to invoke:: +* Editing %# notation:: @end menu @node Changing typesetter, Splitting input files, %#notation, %#notation @@ -376,7 +377,7 @@ @code{%#BEGIN} alone at the middle of very long text. Do not forget to erase @code{%#BEGIN} @code{%#END} pair. -@node Lpr format, , Static region for typesetting, %#notation +@node Lpr format, Controlling which command to invoke, Static region for typesetting, %#notation @comment node-name, next, previous, up @section Lpr format @cindex lpr format @@ -481,6 +482,7 @@ @menu * Begin-type completion:: * Section-type completion:: +* Label Generation:: * Large-type completion:: * Maketitle-type completion:: * Arbitrary completion:: @@ -585,7 +587,7 @@ begin-type completion to enclose text into a environment. -@node Section-type completion, Large-type completion, Begin-type completion, Completion +@node Section-type completion, , Begin-type completion, Completion @comment node-name, next, previous, up @section Section-type completion @cindex section-type completion @@ -687,7 +689,7 @@ minibuffer. @menu -* view-sectioning:: +* view-sectioning:: @end menu @node view-sectioning, , Section-type completion, Section-type completion @@ -736,8 +738,38 @@ @dots{} Hide sectioning commands whose level is lower than n @end table - -@node Large-type completion, Maketitle-type completion, Section-type completion, Completion +@node Label Generation, Large-type completion, Section-type completion, Completion +@section Label Generation +@comment label generation +@cindex label generation +@cindex ref label cite + +When you want to type-in references of @code{\ref} or @code{\cite}, +all you have to do is type @kbd{[prefix] s ref} without adding labels +beforehand. You will see possible La@TeX{}-counters in the next window +even if some counter does not have @code{\label}. Selecting the counter +will automatically set the label to that counter. + +All possible counter list in the buffer tends to be large. +You can reduce the number of list by filtering type of counters by +key-commands as follows. +@table @kbd + @item M-a + @dots{} Show all(disable filtering) + @item M-c + @dots{} Captions only + @item M-e + @dots{} equations (with counters) only + @item M-i + @dots{} numbers items only + @item M-s + @dots{} sections only + @item M-m + @dots{} other counters only +@end table + + +@node Large-type completion, Maketitle-type completion, Label Generation, Completion @comment node-name, next, previous, up @section Large-type completion @@ -1046,11 +1078,11 @@ @menu -* Jump to corresponding object:: -* Invoking image processor:: -* Jump to main file:: -* Jumping around the environment:: -* Jumping to last completion position:: +* Jump to corresponding object:: +* Invoking image processor:: +* Jump to main file:: +* Jumping around the environment:: +* Jumping to last completion position:: @end menu @node Jump to corresponding object, Invoking image processor, Cursor jump, Cursor jump @@ -1194,8 +1226,8 @@ @cindex prefix k @menu -* Changing LaTeX commands:: -* Killing LaTeX commands:: +* Changing LaTeX commands:: +* Killing LaTeX commands:: @end menu @node Changing LaTeX commands, Killing LaTeX commands, Changing and Deleting, Changing and Deleting @@ -1609,9 +1641,9 @@ add-in functions. @menu -* Lisp variables:: -* Add-in functions:: -* Add-in generator:: +* Lisp variables:: +* Add-in functions:: +* Add-in generator:: @end menu @node Lisp variables, Add-in functions, Customizations, Customizations @@ -1634,10 +1666,10 @@ that variable to 1 instead of @code{t}). @menu -* All customizable variables:: -* Sample definitions:: -* Hook variables:: -* Hook file:: +* All customizable variables:: +* Sample definitions:: +* Hook variables:: +* Hook file:: @end menu @node All customizable variables, Sample definitions, Lisp variables, Lisp variables @@ -2077,10 +2109,10 @@ @end enumerate @menu -* How the add-in function works:: -* How the function is called:: -* Useful functions for creating add-in:: -* Contribution:: +* How the add-in function works:: +* How the function is called:: +* Useful functions for creating add-in:: +* Contribution:: @end menu @node How the add-in function works, How the function is called, Add-in functions, Add-in functions @@ -2155,9 +2187,9 @@ @code{/} to @code{@}@{}. @menu -* Defining option-add-in:: -* Defining argument-add-in:: -* Defining enclosing-add-in:: +* Defining option-add-in:: +* Defining argument-add-in:: +* Defining enclosing-add-in:: @end menu @node Defining option-add-in, Defining argument-add-in, How the add-in function works, How the add-in function works @@ -2508,9 +2540,12 @@ anything as a result of using this software. Adopting code from this program is also free. But I would not do contract act. + This software can be treated with: ``The 2-Clause BSD License'' +(since 2017-09-09, yatex 1.80). + Any reports and suggestions are welcome as long as I feel interests in this software. My possible e-mail address is `yuuji@@yatex.org'. (as of -Jan.2004) And there is mailing list for YaTeX. Although the common +Sep.2017) And there is mailing list for YaTeX. Although the common language is Japanese, questions in English will be welcome. To join the ML, send the mail whose subject is `append' to the address `yatex@@yatex.org. If you have some question, please ask to
--- a/docs/yatexj Thu Jan 05 23:20:34 2017 +0900 +++ b/docs/yatexj Sun Sep 10 21:40:11 2017 +0859 @@ -49,11 +49,11 @@ はじめに ******** - 野鳥は、GNU Emacs で LaTeX 用の文書を作成する時に pLaTeX などのタイプ -セットコマンドや、プレヴューアの起動を Emacs 編集画面中から行えるように -すると共に、拡張性の高い種々の補完機能によりソーステキストの編集を支援 -します。さらに LaTeX コマンドのオンラインヘルプによりマニュアルを調べる -手間を軽減します。 + 野鳥は、GNU Emacs で LaTeX 用の文書を作成する時に pLaTeX などのタイ +プセットコマンドや、プレヴューアの起動を Emacs 編集画面中から行えるよ +うにすると共に、拡張性の高い種々の補完機能によりソーステキストの編集を +支援します。さらに LaTeX コマンドのオンラインヘルプによりマニュアルを +調べる手間を軽減します。 English manual *Note Top: (yatexe)Top. @@ -73,8 +73,8 @@ * section型コマンド - `\section{タイトル}'や`\mbox{内容}'のように引数を取るLaTeXコマンド - を指します。 + `\section{タイトル}'や`\mbox{内容}'のように引数を取るLaTeXコマン + ドを指します。 * maketitle型コマンド @@ -117,16 +117,17 @@ `\ref'<->`\label'間、 `\cite'<->`\bibitem'ジャンプ(`C-c g') * 一括コメントアウト/アンコメントアウト(`C-c >', `C-c <', `C-c ,', - `C-c .') + `C-c .') * アクセント記号/数式環境用コマンド/ギリシャ文字の入力支援(`C-c a', - `;', `/') + `;', `/') * tabular/array環境のカラム位置ガイド * 標準的 LaTeX コマンドのオンラインヘルプ(`C-c ?', `C-c /') * ドキュメントのインクルード構造の視覚的表示とバッファ切り替え(`C-c d') - * 補完入力したマクロに応じて必要な \userpackage を入れてくれる先回り - userpackage + * 補完入力したマクロに応じて必要な \userpackage を入れてくれる先回 + りuserpackage * \labelを打つことはもう忘れよう! refやcite補完入力で自動生成します + * 画像ファイルのドラッグ&ドロップによる自動 \includegraphics @@ -144,8 +145,8 @@ (cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist)) (autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t) -次に野鳥の emacs-lisp ファイル群を置くディレクトリを load-path に加えま -す。たとえば、 `~/src/emacs/yatex'に置くのであれば、 +次に野鳥の emacs-lisp ファイル群を置くディレクトリを load-path に加え +ます。たとえば、 `~/src/emacs/yatex'に置くのであれば、 (setq load-path (cons (expand-file-name "~/src/emacs/yatex") load-path)) @@ -167,8 +168,9 @@ ... 起動するプレヴューアのコマンド名 `NTT-jTeX' ... 改行+インデントによって、タイプセット後の字間が空いて - しまうのを抑制する場合にtにする(古いNTT-jTeXで顕著に現れる)。具体 - 的には、fillするときに各行の終わりに%を付加するようになる。 + しまうのを抑制する場合にtにする(古いNTT-jTeXで顕著に現れ + る)。具体的には、fillするときに各行の終わりに%を付加する + ようになる。 `YaTeX-kanji-code' ... 文書を作成する時の漢字コード `dviprint-command-format' @@ -197,9 +199,9 @@ `[prefix] t r' ... タイプセッタ起動(領域指定) `[prefix] t e' - ... 部分タイプセット&プレヴュー(ポイント位置の段落、環境ま - たは数式モードのみをタイプセットして隣のバッファに組版結果の画像を - 出す) + ... 部分タイプセット&プレヴュー(ポイント位置の段落、環境 + または数式モードのみをタイプセットして隣のバッファに組版 + 結果の画像を出す) `[prefix] t k' ... 動作中のタイプセッタの停止 `[prefix] t b' @@ -228,38 +230,38 @@ タイプセッタ起動 ================ - タイプセッタを起動すると、編集ウィンドウが2つに分割され、片方のウィン -ドウにタイプセット画面が表示されます。出力されるメッセージと連動しタイ -プセットバッファは自動的にスクロールします。もし、途中でエラーが起こっ + タイプセッタを起動すると、編集ウィンドウが2つに分割され、片方のウィ +ンドウにタイプセット画面が表示されます。出力されるメッセージと連動しタ +イプセットバッファは自動的にスクロールします。もし、途中でエラーが起こっ て止まってしまった場合にはタイプセットバッファに移り、(`C-x o') タイプ -セッタの出している ? プロンプトに対して、`x' (処理の中断)などの指示を送 -ることができます。エラーを修正する場合は、 +セッタの出している ? プロンプトに対して、`x' (処理の中断)などの指示を +送ることができます。エラーを修正する場合は、 `[prefix] '' `(prefix+アポストロフィ)' ... 直前のエラー発生行へジャンプ を入力することにより、タイプセッタがエラーを発生した行に移ることができ -ます。また、タイプセッタの出力する overfull hbox などのウォーニング行に -も対応していますので、順次 `[prefix] '' を押すことにより、一つ前のウォー -ニング発生行にジャンプしていきます。 +ます。また、タイプセッタの出力する overfull hbox などのウォーニング行 +にも対応していますので、順次 `[prefix] '' を押すことにより、一つ前の +ウォーニング発生行にジャンプしていきます。 もし、気になるエラー行があった場合は、タイプセットバッファで、エラー -の表示されている行にカーソルを合わせスペースキーを押すと LaTeX ソースの -対応する行にジャンプします。 +の表示されている行にカーソルを合わせスペースキーを押すと LaTeX ソース +の対応する行にジャンプします。 領域タイプセット ---------------- ポイントとマークの間、あるいはテキスト中に埋め込んだ `%#BEGIN' と -`%#END'の間の領域(*Note %#notation::)だけを切り取ってタイプセットするこ -とができます。この場合メインファイルのプリアンブルが一時ファイルのプリ -アンブルとして使われます。したがってプリアンブルにないマクロ定義が領域 -内にあるとエラーになります。領域タイプセットを使う場合、必ずマクロ定義 -はプリアンブル(`\begin{document}'より前)に置くようにして下さい。一時ファ -イルはメインファイルのあるディレクトリの`texput.tex'という名前で出力さ -れるので、上書きには注意してください。 +`%#END'の間の領域(*Note %#notation::)だけを切り取ってタイプセットする +ことができます。この場合メインファイルのプリアンブルが一時ファイルのプ +リアンブルとして使われます。したがってプリアンブルにないマクロ定義が領 +域内にあるとエラーになります。領域タイプセットを使う場合、必ずマクロ定 +義はプリアンブル(`\begin{document}'より前)に置くようにして下さい。一時 +ファイルはメインファイルのあるディレクトリの`texput.tex'という名前で出 +力されるので、上書きには注意してください。 環境タイプセット @@ -269,11 +271,11 @@ ド内の場合はその数式モード全体、あるいは環境がなければその段落が自動的 に領域選択されて、領域タイプセットを呼び出します。tabular環境や数式モー ドで複雑なものを作っている場合は確かめたい部分だけを確認できるので便利 -です。Emacsが画像表示可能な場合は、部分タイプセットの結果を画像化して隣 -のウィンドウに表示します。また、特定の環境で呼び出した場合は、環境内の -文字を書き換える度に自動的にプレビュー画像を更新します(on-the-flyプレ -ヴュー)。自動表示されない場合はプレヴューアで `texput.dvi'を開いたまま -にしておけば修正と確認が素早くできるでしょう。 +です。Emacsが画像表示可能な場合は、部分タイプセットの結果を画像化して +隣のウィンドウに表示します。また、特定の環境で呼び出した場合は、環境内 +の文字を書き換える度に自動的にプレビュー画像を更新します(on-the-flyプ +レヴュー)。自動表示されない場合はプレヴューアで `texput.dvi'を開いたま +まにしておけば修正と確認が素早くできるでしょう。 画像プレヴューの場合の大きさ(解像度)はデフォルトで200dpi(数式は 300dpi)です。dpiを変えたい場合はLaTeXソースのどこかに`%#PREVIEWDPI @@ -285,10 +287,10 @@ プレヴューア起動 ================ - `[prefix] t p' によりプレヴューアの起動ができます。さらに、もしあなた -が、-remote 機能つきのxdviを利用している場合は `[prefix] t s' を押すこ -とによりカーソル位置の文字列を検索してそのページを表示するようにすでに -起動中のxdviに命令を送ります。これにより、現在編集中の箇所のタイプセッ + `[prefix] t p' によりプレヴューアの起動ができます。さらに、もしあな +たが、-remote 機能つきのxdviを利用している場合は `[prefix] t s' を押す +ことによりカーソル位置の文字列を検索してそのページを表示するようにすで +に起動中のxdviに命令を送ります。これにより、現在編集中の箇所のタイプセッ ト結果を即座に見ることができます。 @@ -299,8 +301,8 @@ プリントアウト ============== - `[prefix] t l'を押してプリントアウトを指示すると、出力開始/終了ページ -を聞いてくるので、それぞれに答えます。これを省略したい時は、 + `[prefix] t l'を押してプリントアウトを指示すると、出力開始/終了ペー +ジを聞いてくるので、それぞれに答えます。これを省略したい時は、 universal-argument をつけ、 @@ -367,19 +369,19 @@ なお、この行の最後の単語のピリオド以前を「メインファイル」のベースネー ムであると仮定します(上の2つの場合どちらも`main')。この行に記述した、 `%f'はメインファイル名に、 `%r' はメインファイルの拡張子を取り除いた部 -分に置換されます。ただし、`%f,%r'を利用した場合、初回タイプセット時に必 -ずメインファイル名の入力を促されます。 - - `[prefix] g' (*Note Cursor jump::参照) でのファイル間ジャンプを有効に -機能させるため、入力ファイル分割時には次のことに注意して下さい。 - - 1. サブディレクトリを作って、その中にサブファイルを置くことはできるが - サブディレクトリのサブディレクトリには置けない。 +分に置換されます。ただし、`%f,%r'を利用した場合、初回タイプセット時に +必ずメインファイル名の入力を促されます。 + + `[prefix] g' (*Note Cursor jump::参照) でのファイル間ジャンプを有効 +に機能させるため、入力ファイル分割時には次のことに注意して下さい。 + + 1. サブディレクトリを作って、その中にサブファイルを置くことはできる + がサブディレクトリのサブディレクトリには置けない。 2. メインファイルからサブディレクトリ内のファイルを include する時には、 相対パス指定を用いて、 `\include{chap1/sub}'のように記述。 - 3. メインファイルが一つ上のディレクトリにある場合も、サブファイルには - %#!platex main.tex のように記述する(../mainではない)。 + 3. メインファイルが一つ上のディレクトリにある場合も、サブファイルに + は%#!platex main.tex のように記述する(../mainではない)。 @@ -391,15 +393,15 @@ ========== `[prefix] tr' の領域指定のタイプセットでは、とくに指定のないかぎり、 -`C-SPC'でマークした位置と、ポイント(カーソル位置)の間を領域とみなします -が、必ず決まった領域をタイプセットしたい場合は、その領域を +`C-SPC'でマークした位置と、ポイント(カーソル位置)の間を領域とみなしま +すが、必ず決まった領域をタイプセットしたい場合は、その領域を %#BEGIN <渡したい領域> %#END -のように`%#BEGIN'と`%#END'で囲み、カーソルを「`%#BEGIN'以降」に置いてく -ださい。この時の領域決定規則をまとめると次のようになります。 +のように`%#BEGIN'と`%#END'で囲み、カーソルを「`%#BEGIN'以降」に置いて +ください。この時の領域決定規則をまとめると次のようになります。 1. カーソル位置よりバッファの先頭方向に`%#BEGIN'というキーワードがあ @@ -430,8 +432,8 @@ =============== まず、プリントアウト用コマンド列のフォーマットについて説明します。コ -マンド列フォーマットは、3つの Lisp 変数によって表現されます。デフォルト -の dvi2ps 用のフォーマットを例に説明します。 +マンド列フォーマットは、3つの Lisp 変数によって表現されます。デフォル +トの dvi2ps 用のフォーマットを例に説明します。 `(1)dviprint-command-format' `"dvi2ps %f %t %s | lpr"' @@ -443,10 +445,10 @@ `"-t %e"' 実際にプリントアウトする時は、(1)中の %s がファイル名に置き換えられ、 -%f が(2)の内容、%t が(3)の内容に置き換えられます。その際に(2)の文字列中 -の %b は「出力開始ページ」、(3)の文字列中の %e は「出力終了ページ」に置 -き換えられます。もし、ページを指定しない時には、%f, %t 両方とも無視され -ます。 +%f が(2)の内容、%t が(3)の内容に置き換えられます。その際に(2)の文字列 +中の %b は「出力開始ページ」、(3)の文字列中の %e は「出力終了ページ」 +に置き換えられます。もし、ページを指定しない時には、%f, %t 両方とも無 +視されます。 この、dviprint-command-format を臨時に変えたい時は、LaTeX のソーステ キスト中の任意の場所に、 @@ -552,8 +554,8 @@ `[prefix] b' ... begin 型補完開始(標準では `C-c b') -で始まります。頻繁に用いられる次の LaTeX 環境の補完は、[prefix] `b'に続 -く次の1文字を入力するだけで、`\begin{xxx}...\end{xxx}'を完成させます。 +で始まります。頻繁に用いられる次の LaTeX 環境の補完は、[prefix] `b'に +続く次の1文字を入力するだけで、`\begin{xxx}...\end{xxx}'を完成させます。 `[prefix] b c' ... `\begin{center}...\end{center}' @@ -590,8 +592,8 @@ `[prefix] b V' ... `\begin{verse}...\end{verse}' - 上記のもの以外の環境名は Emacs の持つインクリメンタルな補完機能を用い -て入力します(上記の環境名も以下の補完入力可能)。 + 上記のもの以外の環境名は Emacs の持つインクリメンタルな補完機能を用 +いて入力します(上記の環境名も以下の補完入力可能)。 `[prefix] b SPC' ... begin 型補完入力 @@ -623,9 +625,9 @@ の次の『小文字の 'b'』 を『大文字』に変えて起動して下さい。(または、 `C-u' を先に打ち、universal argument をつけても可能です) - 例えばあるパラグラフを description 環境の中に入れたいときは、そのパラ -グラフをマークしてから、補完機能を呼び出してください(description環境の -場合は `[prefix] b D')。 + 例えばあるパラグラフを description 環境の中に入れたいときは、そのパ +ラグラフをマークしてから、補完機能を呼び出してください(description環境 +の場合は `[prefix] b D')。 選択された領域を括ります。ただしこれは `transient-mark-mode' が t (Emacsの標準)になっている場合のみで、普段 @@ -658,8 +660,8 @@ というプロンプトが現れるので、そこで `section' のような LaTeX コマンド 名を入力します。ここでもリターンキーのみで括弧内のデフォルト値が選択さ -れるほか、`chapter'などのような頻度の高い名称入力にはスペースキーによる -補完機能が有効です。 次に、{}の中身の入力を促す、 +れるほか、`chapter'などのような頻度の高い名称入力にはスペースキーによ +る補完機能が有効です。 次に、{}の中身の入力を促す、 \section{???}: @@ -701,8 +703,8 @@ ところで、`\addtolength{\topmargin}{8mm}' などのように、引数を二つ以 上取る LaTeX コマンドがあります。このようなコマンドの補完入力には、 -section 型補完呼び出しに引数を付けてください。例えば上の`addtolength'の -例であれば、引数2を指定します。つまり、 +section 型補完呼び出しに引数を付けてください。例えば上の`addtolength' +の例であれば、引数2を指定します。つまり、 C-u 2 [prefix] s (または、ESC 2 [prefix] s) @@ -713,12 +715,12 @@ Argument 2: 8mm のように入力してください。最初の addtolength の部分と、第一引数である -topmargin の入力は当然スペースによる補完入力が可能です。ユーザ辞書に登 -録される LaTeX コマンドには、この引数の数も学習されるので、最初の補完の -時引数の数を指定して起動しておけば、以後の補完時には、記憶された個数だ -け引数を聞いて来るようになります。あとで引数の個数を変えたい時は、再び -`C-u' を用いて個数を指定し直すことで、自動的に辞書中の引数の個数の部分 -を更新します。 +\topmargin の入力は当然スペースによる補完入力が可能です。ユーザ辞書に +登録される LaTeX コマンドには、この引数の数も学習されるので、最初の補 +完の時引数の数を指定して起動しておけば、以後の補完時には、記憶された個 +数だけ引数を聞いて来るようになります。あとで引数の個数を変えたい時は、 +再び `C-u' を用いて個数を指定し直すことで、自動的に辞書中の引数の個数 +の部分を更新します。 @@ -741,8 +743,8 @@ 再帰補完 -------- - 高度な使い方になるかもしれませんが、section型補完の引数の入力時にさら -に補完入力を利用することができます(section/large/maketitle型に限る)。 + 高度な使い方になるかもしれませんが、section型補完の引数の入力時にさ +らに補完入力を利用することができます(section/large/maketitle型に限る)。 section型コマンドの引数に更に LaTeX コマンドが来る場合にはミニバッファ で野鳥の補完キーを再帰的に入力することで引数の入力も効率的に行なえます。 @@ -754,13 +756,13 @@ ---------------------------------- 通常のsection型補完の時にミニバッファで`C-v'を押すと現在存在するセク -ション区切りコマンド全てを `*Sectioning Lines*'というバッファに一覧表示 -します(「<<--」のついている行がもっとも近いセクション区切り)。この時ミ -ニバッファで`C-p', `C-n' を押すと`part', `chapter', ..., +ション区切りコマンド全てを `*Sectioning Lines*'というバッファに一覧表 +示します(「<<--」のついている行がもっとも近いセクション区切り)。この時 +ミニバッファで`C-p', `C-n' を押すと`part', `chapter', ..., `subparagraph' のコマンドが論理階層の高さにしたがって上下します。また、 -`C-v', `M-v' を押すとセクション区切り一覧バッファがスクロールし、数字の -`0'〜`7'を押すとある高さ以上のセクション区切りだけを選んで表示します(実 -際にやって見れば分かります)。 +`C-v', `M-v' を押すとセクション区切り一覧バッファがスクロールし、数字 +の`0'〜`7'を押すとある高さ以上のセクション区切りだけを選んで表示します +(実際にやって見れば分かります)。 `*Sectioning Lines*'バッファは、 @@ -769,12 +771,12 @@ で作成することができます。このバッファを選択し任意の行でスペースを押す と、該当するセクション区切りのある本文中の場所にジャンプします。さらに、 -同バッファで `u' を押すと、ソーステキストの対応するセクションコマンドが -一階層上がり(例: subsection が section に変わる)、`d'を押すと一階層下が -ります。`*Sectioning Lines*'バッファにあるセクション区切りの行をマーク -しておいて`U'を押すとリジョン内のものに対応するソーステキストのセクショ -ンコマンドすべてが一階層上がり、`D'を押すと下がります。セクション区切り -一覧バッファで利用できるキーコマンドには以下のものがあります。 +同バッファで `u' を押すと、ソーステキストの対応するセクションコマンド +が一階層上がり(例: subsection が section に変わる)、`d'を押すと一階層 +下がります。`*Sectioning Lines*'バッファにあるセクション区切りの行をマー +クしておいて`U'を押すとリジョン内のものに対応するソーステキストのセク +ションコマンドすべてが一階層上がり、`D'を押すと下がります。セクション +区切り一覧バッファで利用できるキーコマンドには以下のものがあります。 `SPC' ... 対応するソース行へジャンプ @@ -799,13 +801,35 @@ ラベル自動生成 -------------- - `\ref{}' や `\cite{}' マクロをsection型補完で入れた場合参照先となり得 -るものを全て探してメニューにして選択できます。参照先には`\label{}'をつ -けておく必要はありません。もしあれば、そのラベルを使い、なければその場 -で参照先に`\label{}'を作らせてくれます。ラベル名を考えるのは苦痛に感じ -るものです。全てのカウンタにラベルをつけるのもたいへんです。もうラベル -名に何をつけるか、ラベルをつけるかつけまいか、などということは忘れましょ -う! + `\ref{}' や `\cite{}' マクロをsection型補完で入れた場合参照先となり +得るものを全て探してメニューにして選択できます。参照先には`\label{}'を +つけておく必要はありません。もしあれば、そのラベルを使い、なければその +場で参照先に`\label{}'を作らせてくれます。ラベル名を考えるのは苦痛に感 +じるものです。全てのカウンタにラベルをつけるのもたいへんです。もうラベ +ル名に何をつけるか、ラベルをつけるかつけまいか、などということは忘れま +しょう! + +ラベルを打つべき項目の選択の際には、可能性のあるすべてのカウンタが表示 +されます。これを「数式のみ」のように種別で絞りたいときは以下のキーコマ +ンドが利用できます。 + `M-a' + + ... 絞り込みを解除してすべてのカウンタを表示 + `M-c' + + ... キャプションのみを表示 + `M-e' + + ... 番号のつく数式のみを表示 + `M-i' + + ... 番号つき箇条書のみを表示 + `M-s' + + ... セクションのみを表示 + `M-m' + + ... その他のカウンタのみを表示 @@ -825,16 +849,16 @@ と表示されるので、上記のものと同じ要領で補完入力して下さい。補完候補に -用意されているのは、`footnotesize' や `huge' のような文字サイズ指定子と、 -`bf'や`dg'のようなフォント指定子です。 +用意されているのは、`footnotesize' や `huge' のような文字サイズ指定子 +と、`bf'や`dg'のようなフォント指定子です。 既に書いた文字を括る -------------------- - また、begin型補完の時と同様、先に書いてしまった一連の文章の文字のサイ -ズを変えたいと思う時がありますが、そのような時は、サイズや大きさを変え -たい文字の範囲をマークしてからlarge型補完を呼んでください。 + また、begin型補完の時と同様、先に書いてしまった一連の文章の文字のサ +イズを変えたいと思う時がありますが、そのような時は、サイズや大きさを変 +えたい文字の範囲をマークしてからlarge型補完を呼んでください。 @@ -858,9 +882,9 @@ 随時補完 ======== - さて、今まで述べた典型的な LaTeX コマンド形式の補完入力を用いずに、今 -入力しようとしている LaTeX コマンドを文書中の任意の位置で随時補完するこ -ともできます。LaTeX コマンド(先頭が\で始まる)を入力している途中で、 + さて、今まで述べた典型的な LaTeX コマンド形式の補完入力を用いずに、 +今入力しようとしている LaTeX コマンドを文書中の任意の位置で随時補完す +ることもできます。LaTeX コマンド(先頭が\で始まる)を入力している途中で、 `[prefix] SPC' ... 随時補完 @@ -877,8 +901,8 @@ 現在開いたままの環境名を自動的に検出し、`\end{環境名}'を挿入します。 begin 型補完を用いれば環境の閉じ忘れはないのですが、時にはついつい手で -`\begin{環境名}' を入れてしまい、悲しい思いをすることがあります。そのよ -うな時には気にせず続けて文章を入力し、しかるのちに +`\begin{環境名}' を入れてしまい、悲しい思いをすることがあります。その +ような時には気にせず続けて文章を入力し、しかるのちに `[prefix] e' ... end 補完 @@ -901,8 +925,8 @@ 1:` 2:' 3:^ 4:" 5:~ 6:= 7:. u v H t c d b -というメニューが出て来るので、数字、または対応する記号/英字を入力して下 -さい。すると編集バッファに、 +というメニューが出て来るので、数字、または対応する記号/英字を入力して +下さい。すると編集バッファに、 \`{} @@ -926,11 +950,11 @@ さて、例えば、←(leftarrow)をASCII文字だけで表現する場合、一般的には 「<-」のようにしますが、これを利用して、数式記号イメージ入力モードで -`\leftarrow'を入力するには、`;'(セミコロン)を打ってから`<-'と入力します。 -同様に、長い矢印←-(long-leftarrow) をASCII文字だけで表現する場合「<--」 -とするので、`\longleftarrow'を入力するためには、`;<--'と入力します。あ -るいは無限大記号をASCII文字だけで表現する時は「oo」のようにすることから、 -`\infty' を入力する時は、`;oo'とキー入力します。 +`\leftarrow'を入力するには、`;'(セミコロン)を打ってから`<-'と入力しま +す。同様に、長い矢印←-(long-leftarrow) をASCII文字だけで表現する場合 +「<--」とするので、`\longleftarrow'を入力するためには、`;<--'と入力し +ます。あるいは無限大記号をASCII文字だけで表現する時は「oo」のようにす +ることから、`\infty' を入力する時は、`;oo'とキー入力します。 これらの操作をまとめると次のようになります。 @@ -947,14 +971,14 @@ 表示されたなら、そこでイメージ入力を止めて次の編集動作に移っても構いま せん。 - 数式環境中で`;'自身を入力するには`;;'のようにします。イメージ入力の途 -中でTABを押すと、それまで入力した文字で始まるもの一覧が表示されます。こ -こで目的の LaTeX コマンドまでカーソルを移動し再度TABを押すことでその + 数式環境中で`;'自身を入力するには`;;'のようにします。イメージ入力の +途中でTABを押すと、それまで入力した文字で始まるもの一覧が表示されます。 +ここで目的の LaTeX コマンドまでカーソルを移動し再度TABを押すことでその LaTeX コマンドがバッファに挿入されます。 - どのキー入力にどの記号が対応しているか全て知りたい時は、`;'を押した直 -後にTABを押してください。以下の例は、`;<'と押した後にTABを押したもので -す。 + どのキー入力にどの記号が対応しているか全て知りたい時は、`;'を押した +直後にTABを押してください。以下の例は、`;<'と押した後にTABを押したもの +です。 KEY LaTeX sequence sign < \leq ≦ @@ -962,12 +986,12 @@ <- \leftarrow ← <= \Leftarrow <= -左から[入力キー]、[対応する LaTeX コマンド]、[(擬似)記号図示]、という順 -でメニューが出て来るので、よく使うものを覚えておくと良いでしょう。もの -によってはASCII文字で表現することが困難なので、あまり覚えやすいキー並び -ではないものがあるでしょうから、そのような場合は \maketitle 型補完で入 -力するか、以下に述べる対応表の設定を行って単純なキー並びのものを設定す -ると良いでしょう。 +左から[入力キー]、[対応する LaTeX コマンド]、[(擬似)記号図示]、という +順でメニューが出て来るので、よく使うものを覚えておくと良いでしょう。も +のによってはASCII文字で表現することが困難なので、あまり覚えやすいキー +並びではないものがあるでしょうから、そのような場合は \maketitle 型補完 +で入力するか、以下に述べる対応表の設定を行って単純なキー並びのものを設 +定すると良いでしょう。 入力キーと LaTeX コマンド、記号の対応表を個人的に設定したい場合は Emacs-Lisp 変数 `YaTeX-math-sign-alist-private' に定義してください。そ @@ -983,15 +1007,15 @@ ================ もう一つ、数式環境中で`:'を押すとギリシャ文字入力モードに入ります。 -`:'を押した直後に`a'を押すと`\alpha'が、`g' を押すと `\gamma'が、などア -ルファベットに対応したギリシャ文字が挿入されます。操作方法は;の数式記号 -補完とまったく同じです。まずは`:'の直後にTABを押してどのアルファベット -にどのギリシャ文字が対応しているか調べてみてください。 +`:'を押した直後に`a'を押すと`\alpha'が、`g' を押すと `\gamma'が、など +アルファベットに対応したギリシャ文字が挿入されます。操作方法は;の数式 +記号補完とまったく同じです。まずは`:'の直後にTABを押してどのアルファベッ +トにどのギリシャ文字が対応しているか調べてみてください。 `;'と`:'を数式環境中で押しているにもかかわらず、イメージ補完が働かな -い場合は、`C-u ;'のように universal-argument をつけてキーを押すことによ -り、強制的にイメージ補完に入ることができます。また、この時にどのような -状態で数式環境内判定に失敗したかをご連絡下さい。 +い場合は、`C-u ;'のように universal-argument をつけてキーを押すことに +より、強制的にイメージ補完に入ることができます。また、この時にどのよう +な状態で数式環境内判定に失敗したかをご連絡下さい。 @@ -1000,11 +1024,11 @@ 括弧入力補助 ============ - 3種類ある括弧 () {} [] の開き括弧を入れたときに閉じ括弧を自動的に入れ -ます。`\' の直後にの `[' を入れると行を分けてインデントを揃え、数式入力 -に備えます。その他 LaTeX のマクロに応じて括弧の釣合の取れた状態に導きま -す。開き括弧そのものを1つだけ入れたいときは `C-q' でクォート入力するか、 -`[prefix] w m' で修正モードをOFFにしてください。 + 3種類ある括弧 () {} [] の開き括弧を入れたときに閉じ括弧を自動的に入 +れます。`\' の直後にの `[' を入れると行を分けてインデントを揃え、数式 +入力に備えます。その他 LaTeX のマクロに応じて括弧の釣合の取れた状態に +導きます。開き括弧そのものを1つだけ入れたいときは `C-q' でクォート入力 +するか、`[prefix] w m' で修正モードをOFFにしてください。 領域選択してから開き括弧を入れるとその領域をその種類の括弧で括ります。 @@ -1027,8 +1051,8 @@ というプロンプトに対し、`u'と答えると「ユーザ辞書」を、`l'と答えるとロー カル辞書を更新し、`n'と答えると辞書ファイルは更新せず現在のEmacsセッショ -ンのみ有効な単語とし、`d'と答えると新たな単語を学習せずに捨てることにな -ります。 +ンのみ有効な単語とし、`d'と答えると新たな単語を学習せずに捨てることに +なります。 もし、ローカル辞書の機能はいらず、全てユーザ辞書の更新のみでよいと言 う場合には`~/.emacs'などで、 @@ -1045,8 +1069,8 @@ ************** - LaTeXの編集には試行錯誤がつきものです。ある部分を一括でコメントアウト -したり、コメントを外したりしたいことがあります。 + LaTeXの編集には試行錯誤がつきものです。ある部分を一括でコメントアウ +トしたり、コメントを外したりしたいことがあります。 `[prefix] >' ... リジョンを % でコメントアウト @@ -1116,8 +1140,8 @@ `[prefix] g' ... 対応するオブジェクトにジャンプ -を押すことにより、カーソル位置のLaTeXコマンドに対応する場所にジャンプし -ます。対応関係が存在すると解釈されるコマンドには以下のものがあります。 +を押すことにより、カーソル位置のLaTeXコマンドに対応する場所にジャンプ +します。対応関係が存在すると解釈されるコマンドには以下のものがあります。 * `\begin{}' ←→ `\end{}' * `%#BEGIN' ←→ `%#END' @@ -1141,8 +1165,8 @@ ... 別ウィンドウで対応オブジェクトにジャンプ を押すと、対応するオブジェクトへのジャンプを別ウィンドウで行います。た -だし、この機能は `begin/end', `%#BEGIN/%#END' 間のジャンプに対しては(意 -味がないと思われるので)機能しないので注意してください。 +だし、この機能は `begin/end', `%#BEGIN/%#END' 間のジャンプに対しては +(意味がないと思われるので)機能しないので注意してください。 @@ -1159,21 +1183,22 @@ 1. カレント行が変数 `YaTeX-processed-file-regexp-alist' に定義されて いる正規表現のいずれかとマッチしたら、ファイル名に相当する部分を - (\\)から抜き出して覚えておく(何番目の\\(\\)かは変数の各リストの + \\(\\)から抜き出して覚えておく(何番目の\\(\\)かは変数の各リストの cdr 部に入れておく)。マッチしなければ何もしない。 - 2. 行末に、変数 `YaTeX-file-processor-alist' に登録されているコマンド - が「%コマンド」 のように書いてあれば強制的に「コマンド ファイル + 2. 行末に、変数 `YaTeX-file-processor-alist' に登録されているコマン + ドが「%コマンド」 のように書いてあれば強制的に「コマンド ファイル 名.拡張子」を起動。 3. なければ、変数 `YaTeX-file-processor-alist' の各リストのcdr部に入っ - ている拡張子を「ファイル名」の後ろに足したファイルが存在するか順次 - 調べて、存在した場合car部に入っているコマンドを起動する。 + ている拡張子を「ファイル名」の後ろに足したファイルが存在するか順 + 次調べて、存在した場合car部に入っているコマンドを起動する。 4. 以上どれかにマッチしなければあきらめる。 変数 `YaTeX-file-processor-alist' と変数 `YaTeX-file-processor-alist' -の設定方法についてはそれぞれの変数について describe-variable して説明を -読んで下さい。うまく設定すると、画像ファイルにかぎらず、任意の形式のファ -イルを任意のプロセッサで処理するコマンドを簡単に呼び出すことができます。 +の設定方法についてはそれぞれの変数について describe-variable して説明 +を読んで下さい。うまく設定すると、画像ファイルにかぎらず、任意の形式の +ファイルを任意のプロセッサで処理するコマンドを簡単に呼び出すことができ +ます。 @@ -1293,9 +1318,9 @@ や `%#BEGIN, %#END' の存在する行はまるごと削除されるので、それらの一行 に `\begin' などを二つ以上連ねて書かないように注意してください。上記の ものはすべて本文を囲う「容器」を削除するように働きますが、 -universal-argument (`C-u') を打った後で`[prefix] k'をタイプすると、それ -ぞれの「容器」に含まれる「中身」も一気に削除します。以下の例を参考にし -て下さい。 +universal-argument (`C-u') を打った後で`[prefix] k'をタイプすると、そ +れぞれの「容器」に含まれる「中身」も一気に削除します。以下の例を参考に +して下さい。 元のテキスト: [prefix] k C-u [prefix] k 本文\footnote{脚注}です。 本文脚注です。 本文です。 @@ -1312,16 +1337,16 @@ itemの桁揃え ============ - itemize 環境中にある`\item'の項目(文章)が複数行に渡る場合に、項目の先 -頭を桁揃えしたい場合には、 + itemize 環境中にある`\item'の項目(文章)が複数行に渡る場合に、項目の +先頭を桁揃えしたい場合には、 `M-q' ... 桁揃え によって、その item のインデントの深さに応じて fill されます。なお、古 -いNTT jTeX を使用している場合には、Lisp 変数`NTT-jTeX'を`t'にセットして -下さい。 +いNTT jTeX を使用している場合には、Lisp 変数`NTT-jTeX'を`t'にセットし +て下さい。 このとき、変数`YaTeX-item-regexp'の値(標準では `"\\\\item"')を 項目指定コマンドの正規表現として検索に使用します。itemize 環境で、独自のコ @@ -1351,13 +1376,13 @@ パラグラフの桁揃え ================== - itemize環境以外でのパラグラフの桁揃え(fill)は、基本的に他のモードと同 -じように機能しますが、verbatim環境や、tabular環境など桁揃えをすると悲惨 -な状況になるような環境中では機能しません。また、\verb で括ってあるもの -は決して行分割されません(変数 `YaTeX-verb-regexp' で制御) )。さらに、一 -時的にインデントの深さを変えてある箇所では、そのインデントの先頭で -`M-q'を押すことにより fill-prefix をいちいち変更しなくて桁揃えができま -す。 + itemize環境以外でのパラグラフの桁揃え(fill)は、基本的に他のモードと +同じように機能しますが、verbatim環境や、tabular環境など桁揃えをすると +悲惨な状況になるような環境中では機能しません。また、\verb で括ってある +ものは決して行分割されません(変数 `YaTeX-verb-regexp' で制御) )。さら +に、一時的にインデントの深さを変えてある箇所では、そのインデントの先頭 +で`M-q'を押すことにより fill-prefix をいちいち変更しなくて桁揃えができ +ます。 @@ -1384,8 +1409,8 @@ A)dd R)eplace %)comment? -現在編集中のファイルを `\includeonly' のリストに加えたい時には`a'を、現 -在編集中のファイルだけを `\includeonly' にしたい時は`r'を、 +現在編集中のファイルを `\includeonly' のリストに加えたい時には`a'を、 +現在編集中のファイルだけを `\includeonly' にしたい時は`r'を、 `\includeonly' の行をコメントアウトして無効化したい時には、`%'をそれぞ れ押して下さい。 @@ -1396,9 +1421,9 @@ ここはどこ? *********** - 項目数の多い tabular などをたくさん書いていると下の方の行で、いま書い -ている桁がどこに対応するのかわからなくなってしまうことがあります。例え -ば、以下のような tabular において、 + 項目数の多い tabular などをたくさん書いていると下の方の行で、いま書 +いている桁がどこに対応するのかわからなくなってしまうことがあります。例 +えば、以下のような tabular において、 \begin{tabular}{|c|c|c|c|c|c|c|c|}\hline 氏名&所属&〒&住所&電話&FAX&帰省先&帰省先電話\\ \hline @@ -1410,15 +1435,16 @@ \end{tabular} -(???)の部分がどの項目なのかすぐに判断するのは難しいでしょう。こんな時は、 +(???)の部分がどの項目なのかすぐに判断するのは難しいでしょう。こんな時 +は、 `[prefix] &' ... 現在のカラム表示 を押すとカーソル位置のカラムがどの項目に該当するかをミニバッファに表示 します。tabular/array環境の第1行目を項目名の並びとみなして対応するもの -を探します。もし項目名として別のものを表示して欲しい場合は、行頭を`%'に -してダミーの項目並びを作っておくと良いでしょう。 +を探します。もし項目名として別のものを表示して欲しい場合は、行頭を`%' +にしてダミーの項目並びを作っておくと良いでしょう。 @@ -1435,10 +1461,10 @@ を押すと、その環境に応じた行エントリを次の行に挿入します(begin型補完時 -に自動挿入されたエントリが不要な場合は undo によって消去できます)。例え -ば、tabular環境では、その環境のカラム数に対応した個数の `&' に加え、行 -末の `\\' を入れます。この時それ以前に `\hline' があればそれも付け加え -ます。環境とそれに応じて自動入力するものの対応は以下のようになります。 +に自動挿入されたエントリが不要な場合は undo によって消去できます)。例 +えば、tabular環境では、その環境のカラム数に対応した個数の `&' に加え、 +行末の `\\' を入れます。この時それ以前に `\hline' があればそれも付け加 +えます。環境とそれに応じて自動入力するものの対応は以下のようになります。 * `tabular', `tabular*', `array' @@ -1473,9 +1499,9 @@ begin型、section型、maketitle型、いずれかのLaTeX2eマクロを補完入力す ると、そのマクロの利用に外部パッケージを必要とする場合、そのパッケージ -を本文中で `\usepackage{}' しているかどうかを調査し、もししていなければ -プリアンブルに対応するパッケージを引数にした `\usepackage' 文を(確認後 -に)挿入します。 +を本文中で `\usepackage{}' しているかどうかを調査し、もししていなけれ +ばプリアンブルに対応するパッケージを引数にした `\usepackage' 文を(確認 +後に)挿入します。 ただしこの機能が働くためには、パッケージ名とその中で定義されているマ クロ群をalistの形式で変数 `YaTeX-package-alist-private' に設定しておく @@ -1497,8 +1523,9 @@ * 野鳥数式モード 修正モードは、開き括弧入力時の処理をコントロールし、修正モードONの時は -開き括弧の入力は開き括弧のみの入力になり、修正モードOFFの時は開き括弧の -入力だけで閉じ括弧まで入力します。デフォルト(起動時)の設定は*OFF*です。 +開き括弧の入力は開き括弧のみの入力になり、修正モードOFFの時は開き括弧 +の入力だけで閉じ括弧まで入力します。デフォルト(起動時)の設定は*OFF*で +す。 野鳥数式モードは、変数 `YaTeX-auto-math-mode' が `nil' の時の み有効で、このとき`;'や`:'を押した時(*Note Image completion::参照)に、 @@ -1514,8 +1541,8 @@ オンラインヘルプ **************** - 使おうとする LaTeX コマンドの用法がよく分からない時は、オンラインヘル -プをひきましょう。ヘルプに関するキーには以下のものがあります。 + 使おうとする LaTeX コマンドの用法がよく分からない時は、オンラインヘ +ルプをひきましょう。ヘルプに関するキーには以下のものがあります。 `[prefix] ?' ... オンラインヘルプ @@ -1527,13 +1554,13 @@ ================ 「オンラインヘルプ」は、一般的な LaTeX コマンド(デフォルトでカーソル -位置のコマンド)に対する説明を隣のバッファに表示します。この時参照される -ヘルプ用ファイルには「グローバルヘルプ」と「プライベートヘルプ」の二種 -類があり、前者は LaTeX の標準コマンドの主なものの説明を含むファイルで、 -変数`YaTeX-help-file'の値で指定されます。このファイルは通常公共の場所 -(デフォルトで`$EMACSEXECPATH')に置かれ、誰もがその内容を更新できるよう -に全員に書き込み権が与えられるべきものです。後者は、非標準もしくは個人 -的なマクロ定義に関する説明が書かれているファイルで、変数 +位置のコマンド)に対する説明を隣のバッファに表示します。この時参照され +るヘルプ用ファイルには「グローバルヘルプ」と「プライベートヘルプ」の二 +種類があり、前者は LaTeX の標準コマンドの主なものの説明を含むファイル +で、変数`YaTeX-help-file'の値で指定されます。このファイルは通常公共の +場所(デフォルトで`$EMACSEXECPATH')に置かれ、誰もがその内容を更新できる +ように全員に書き込み権が与えられるべきものです。後者は、非標準もしくは +個人的なマクロ定義に関する説明が書かれているファイルで、変数 `YaTeX-help-file-private'の値で指定されます。こちらはユーザのホームディ レクトリの下などに置かれます。 @@ -1541,14 +1568,14 @@ オンラインapropos ================= - 「オンラインapropos」は GNU Emacs の apropos と同様、ユーザが指定した -キーワードを説明文に含む項目すべてを隣のバッファに表示します。 - - もし、調べようとしたLaTeXコマンドに対する説明がヘルプファイル中に見つ -からなかった場合は、説明文の入力を求めてくるので、可能であれば参考書な -どを調べてそのコマンドの説明を入力してください。もし、なにか標準的なコ -マンドに対する説明を書いたならばぜひ私までその説明をお送り下さい。次回 -の配布に含めたいと思います。 + 「オンラインapropos」は GNU Emacs の apropos と同様、ユーザが指定し +たキーワードを説明文に含む項目すべてを隣のバッファに表示します。 + + もし、調べようとしたLaTeXコマンドに対する説明がヘルプファイル中に見 +つからなかった場合は、説明文の入力を求めてくるので、可能であれば参考書 +などを調べてそのコマンドの説明を入力してください。もし、なにか標準的な +コマンドに対する説明を書いたならばぜひ私までその説明をお送り下さい。次 +回の配布に含めたいと思います。 @@ -1563,9 +1590,9 @@ ... インクルード構造ブラウズ を押すと、そのドキュメントの親ファイルを聞いて来ます。ここで全てのファ -イルの親となるファイル(デフォルトが示されているので大抵はRETのみ)を入力 -するとインクルードしている全てのファイルを解析し、インクルード状況を視 -覚的に表示します。このバッファでは以下のキー操作が有効です。 +イルの親となるファイル(デフォルトが示されているので大抵はRETのみ)を入 +力するとインクルードしている全てのファイルを解析し、インクルード状況を +視覚的に表示します。このバッファでは以下のキー操作が有効です。 `n' ... 次の行に移動し対応するファイルを隣のバッファに表示 @@ -1625,9 +1652,9 @@ ====== `gmhist.el'と`gmhist-mh.el' をロードしている場合、プレヴューコマンド -の入力(`[prefix] tp]')、印刷コマンドの入力(`[prefix] tl')の時に独立した -ヒストリを利用できます。それぞれのプロンプトで、`M-p' を押すと直前に利 -用したコマンド文字列をくり返し呼び出すことができます。 +の入力(`[prefix] tp]')、印刷コマンドの入力(`[prefix] tl')の時に独立し +たヒストリを利用できます。それぞれのプロンプトで、`M-p' を押すと直前に +利用したコマンド文字列をくり返し呼び出すことができます。 min-out @@ -1659,13 +1686,13 @@ lisp 変数 ========= - 例えば prefix キーを `C-c' 以外のキーにしたい場合は、`YaTeX-prefix'に -prefix キーにしたいシンボルを定義してください。さらに、「`C-c 英字'」と -いうキーバインドは独自の関数が割り当ててあるので使いたくない。このよう -な時は、`YaTeX-inhibit-prefix-letter' を `t' に設定することにより、 -`C-c 英字…'のバインドが全て、対応する`C-c C-英字…'に変わります(ただし、 -begin型 large型補完の大文字起動によるリジョン指定は可能なままです。これ -も無効にしたい場合は`t'ではなく 1 にセットして下さい。)。 + 例えば prefix キーを `C-c' 以外のキーにしたい場合は、`YaTeX-prefix' +に prefix キーにしたいシンボルを定義してください。さらに、「`C-c 英字'」 +というキーバインドは独自の関数が割り当ててあるので使いたくない。このよ +うな時は、`YaTeX-inhibit-prefix-letter' を `t' に設定することにより、 +`C-c 英字…'のバインドが全て、対応する`C-c C-英字…'に変わります(ただ +し、begin型 large型補完の大文字起動によるリジョン指定は可能なままです。 +これも無効にしたい場合は`t'ではなく 1 にセットして下さい。)。 * Menu: @@ -1682,9 +1709,9 @@ -------------------- yatex-mode における次の変数がカスタマイズ可能です。`~/.emacs' で -`setq' しておけば、そちらの定義が優先されます。括弧の中はデフォルト値で -す。実際に変数の値を変更する場合は `M-x describe-variable' で変数の詳細 -な説明を参照してください。 +`setq' しておけば、そちらの定義が優先されます。括弧の中はデフォルト値 +です。実際に変数の値を変更する場合は `M-x describe-variable' で変数の +詳細な説明を参照してください。 -- Variable: YaTeX-prefix yatex-mode 中のプリフィクスキー (`\C-c') @@ -1759,8 +1786,8 @@ displaylineを起動するコマンド (code{"/Applications/Skim.app/Contents/SharedSupport/displayline"}) -- Variable: YaTeX-cmd-edit-ps - PostScriptファイルを編集するコマンド (変数code{"YaTeX-cmd-gimp"}の - 値) + PostScriptファイルを編集するコマンド (変数code{"YaTeX-cmd-gimp"} + の値) -- Variable: YaTeX-cmd-edit-pdf PDFファイルを編集するコマンド (変数code{"YaTeX-cmd-ooo"}の値) -- Variable: YaTeX-cmd-edit-ai @@ -1768,8 +1795,8 @@ -- Variable: YaTeX-cmd-edit-svg SVGファイルを編集するコマンド (変数code{"YaTeX-cmd-inkscape"}の値) -- Variable: YaTeX-cmd-edit-images - その他画像ファイルを編集するコマンド (変数code{"YaTeX-cmd-gimp"}の - 値) + その他画像ファイルを編集するコマンド (変数code{"YaTeX-cmd-gimp"} + の値) -- Variable: YaTeX-need-nonstop `\nonstopmode{}'を自動的に付加するか (`nil') @@ -1809,8 +1836,8 @@ -- Variable: YaTeX-fill-inhibit-environments fill を抑止する環境名のリスト (`'("tabular" "tabular*" "array" - picture" "eqnarray" "eqnarray*" "equation" "math" "displaymath" - verbatim" "verbatim*")') + "picture" "eqnarray" "eqnarray*" "equation" "math" "displaymath" + "verbatim" "verbatim*")') -- Variable: YaTeX-uncomment-once 領域uncommentで行頭の複数の`%'を全て削除するか (`nil') @@ -1840,9 +1867,9 @@ 入力に入る (`nil') -- Variable: YaTeX-hilit-pattern-adjustment-private - 正規表現とそれにマッチするものの論理的意味をシンボルであらわしたも - ののリスト…のリスト。hilit19 を組み込んでいる時のみ有効。詳しくは - `(assq 'yatex-mode hilit-patterns-alist)' した結果と、変数 + 正規表現とそれにマッチするものの論理的意味をシンボルであらわした + もののリスト…のリスト。hilit19 を組み込んでいる時のみ有効。詳し + くは `(assq 'yatex-mode hilit-patterns-alist)' した結果と、変数 `YaTeX-hilit-pattern-adjustment-default' の値(と場合によっては hilit19 のドキュメント)を参照せよ。 @@ -1851,9 +1878,10 @@ -- Variable: YaTeX-hierarchy-ignore-heading-regexp Hierarchy バッファは通常ファイルヘッダとして、LaTeXのセクション宣 - 言コマンドの引数を検索し、それがなければコメント行を探すが、その際 - にヘッダとしては意味を持たないパターンをこの変数に設定する。デフォ - ルトでは RCS ヘッダとモード指定行(-*- xxx -*-)が設定されている。 + 言コマンドの引数を検索し、それがなければコメント行を探すが、その + 際にヘッダとしては意味を持たないパターンをこの変数に設定する。デ + フォルトでは RCS ヘッダとモード指定行(-*- xxx -*-)が設定されてい + る。 -- Variable: YaTeX-skip-default-reader Non-nil に設定するとsection型コマンドの引数入力時、アドイン関数が @@ -1868,9 +1896,9 @@ -- Variable: YaTeX-hilit-sectioning-face 色付けが有効な時の `\part' の色 (`'(yellow/dodgerblue - yellow/slateblue)')。リストの第一要素は `hilit-background-mode' が - `'light' の時の、第二要素は `'dark' の時の `\chapter' の色で、文字 - 色/背景色 のように指定する。 + yellow/slateblue)')。リストの第一要素は `hilit-background-mode' + が `'light' の時の、第二要素は `'dark' の時の `\chapter' の色で、 + 文字色/背景色 のように指定する。 -- Variable: YaTeX-hilit-sectioning-attenuation-rate 色付けが有効な時の、`\subparagraph' の色を `\chapter' の濃度の何% @@ -1910,7 +1938,7 @@ LaTeX2eのパッケージ名とその中に含まれるマクロのリスト。適切に設定 しておくと本文入力時にマクロを補完入力するとそのマクロに必要なパッ ケージを usepackage するか自動的に検査してくれる。していなければ - usepackage を自動追加することもできる。リストは'((パッケージ名1 + \usepackage を自動追加することもできる。リストは'((パッケージ名1 (補完タイプ マクロのリスト……) (補完タイプ マクロのリスト……)) (パッケージ名2 (補完タイプ マクロのリスト……) (補完タイプ マクロ のリスト……))………)という形式にする。補完タイプは `env, @@ -1923,8 +1951,8 @@ する。 -- Variable: YaTeX-noindent-env-regexp - 別の環境内にあっても \begin{} が行頭から始まるべき環境名の正規表現。 - verbatim環境などを指定する。 + 別の環境内にあっても \begin{} が行頭から始まるべき環境名の正規表 + 現。verbatim環境などを指定する。 -- Variable: YaTeX-electric-indent-mode Emacs 24.4 で導入された改行時の、自動インデントをどうするか。 @@ -1936,14 +1964,14 @@ の書式。strftime(3)関数に似た日付ベースで指定する。利用できる書式 は以下のとおり。%y -> 西暦下二桁, %b -> 月の英名, %m -> 月(1〜12) %d -> 日, %H -> 時, %M -> 分, %S -> 秒, %qx -> アルファベットで26 - 進数化した yymmdd. %qX -> アルファベットで26進数化した HHMMSS. デ - フォルトは "%H%M%S_%d%b%y" + 進数化した yymmdd. %qX -> アルファベットで26進数化した + HHMMSS. デフォルトは "%H%M%S_%d%b%y" -- Variable: YaTeX-ref-generate-label-function - \ref{}のラベル名自動生成のときに使う関数のシンボル。デフォルトは標 - 準の YaTeX::ref-generate-label 関数が割り当ててある。引数を2つ取る - 関数を定義して、この変数にセットするとその関数を呼んだ結果をデフォ - ルトのラベル名候補とする。設定例: + \ref{}のラベル名自動生成のときに使う関数のシンボル。デフォルトは + 標準の YaTeX::ref-generate-label 関数が割り当ててある。引数を2つ + 取る関数を定義して、この変数にセットするとその関数を呼んだ結果を + デフォルトのラベル名候補とする。設定例: (setq YaTeX-ref-generate-label-function 'my-yatex-generate-label) (defun my-yatex-generate-label (command value) (and (string= command "caption") @@ -1984,20 +2012,21 @@ また、hook 変数 `yatex-mode-hook', `yatex-mode-load-hook' を用意して います。すべての yatex-mode のバッファで作用させたいものは、 -`yatex-mode-hook' に記述し、`yatex.el' をロードする時だけ作用させたいも -のは`yatex-mode-load-hook' に記述します。例えば、`outline-minor-mode' -を利用する場合、それぞれのバッファで `outline-minor-mode' を有効にした -いので、`yatex-mode-hook' を次のように設定します。 +`yatex-mode-hook' に記述し、`yatex.el' をロードする時だけ作用させたい +ものは`yatex-mode-load-hook' に記述します。例えば、 +`outline-minor-mode' を利用する場合、それぞれのバッファで +`outline-minor-mode' を有効にしたいので、`yatex-mode-hook' を次のよう +に設定します。 (setq yatex-mode-hook '(lambda () (outline-minor-mode t))) -逆に、独自のキー定義を行いたい時などは、`yatex-mode-load-hook' を利用し -ます。例えば、begin 型補完において、 document や、enumerate 以外の環境 -名もショートカットキーで入れたいなどという時は、次のようにします。以下 -の例は、`[prefix] ba' で `\begin{abstract}', `\end{abstract}' を挿入し -ます。 +逆に、独自のキー定義を行いたい時などは、`yatex-mode-load-hook' を利用 +します。例えば、begin 型補完において、 document や、enumerate 以外の環 +境名もショートカットキーで入れたいなどという時は、次のようにします。以 +下の例は、`[prefix] ba' で `\begin{abstract}', `\end{abstract}' を挿入 +します。 (setq yatex-mode-load-hook '(lambda() (YaTeX-define-begend-key "ba" "abstract"))) @@ -2012,9 +2041,9 @@ hook用ファイル -------------- - 変数 `yatex-mode-load-hook' で定義する内容が多い時は、`yatexhks.el'と -いうファイルを作り、その中に野鳥関連の設定を書く事で、初期化の時に自動 -的にロードします。 + 変数 `yatex-mode-load-hook' で定義する内容が多い時は、`yatexhks.el' +というファイルを作り、その中に野鳥関連の設定を書く事で、初期化の時に自 +動的にロードします。 @@ -2035,12 +2064,12 @@ その他 ****** - 野鳥の標準の LaTeX コマンドの辞書には、作者が頻繁に使うものしか登録さ -れていません。これは、補完候補に使いそうもないコマンドが存在して、補完 -したいコマンドを出すまでのストローク数を増やしてしまう事を防止するため -です。標準辞書にないコマンドも、できるだけ補完入力方式を利用し、ユーザ -辞書を充実させることで、あなたの LaTeX スタイルにあった野鳥へと育ってい -くことでしょう。 + 野鳥の標準の LaTeX コマンドの辞書には、作者が頻繁に使うものしか登録 +されていません。これは、補完候補に使いそうもないコマンドが存在して、補 +完したいコマンドを出すまでのストローク数を増やしてしまう事を防止するた +めです。標準辞書にないコマンドも、できるだけ補完入力方式を利用し、ユー +ザ辞書を充実させることで、あなたの LaTeX スタイルにあった野鳥へと育っ +ていくことでしょう。 @@ -2059,8 +2088,8 @@ なるコード流用も拒否しませんが契約締結は辞退します。 苦情、希望、バグ報告、感想等は歓迎いたします。連絡は yuuji@yatex.org -まで(2004年1月現在)。継続的に使用してくださる方はメイリングリスト「fj野 -鳥の会」に是非加入してください。加入方法については本パッケージの +まで(2017年9月現在)。継続的に使用してくださる方はメイリングリスト「fj +野鳥の会」に是非加入してください。加入方法については本パッケージの `docs/qanda'ファイルの「その他」の章を御覧ください。 仕様は、予告なく確実に(気分次第で)変更されます:-p。 @@ -2076,128 +2105,130 @@ * Menu: -* :: Greek letter completion. (line 5) -* ;: Image completion. (line 5) -* Σ[しくま]: Image completion. (line 5) +* 引数の個数を変える[ひきすうのこすうをかえる]: 2個以上の引数をとる section型コマンド. (line 26) +* 引数[ひきすう]: 2個以上の引数をとる section型コマンド. (line 5) +* 欧文[おうふん]: Accent mark completion. (line 5) +* アクセント記号補完[あくせんときこうほかん]: Accent mark completion. (line 5) +* カスタマイズ変数一覧[かすたまいすへんすういちらん]: All customizable variables. (line 5) +* 随時補完[すいしほかん]: Arbitrary completion. (line 5) +* %#BEGIN: Fix region for typesetting. (line 5) +* C-c: Invocation. (line 5) +* エラー修正[えらあしゆうせい]: Calling typesetter. (line 5) +* タイプセットエラー[たいふせつとえらあ]: Calling typesetter. (line 5) +* タイプセッタ起動[たいふせつたきとう]: Calling typesetter. (line 5) +* 環境名の変更[かんきようめいのへんこう]: Changing LaTeX command. (line 21) +* モード切り替え[もうときりかえ]: Changing mode of YaTeX. (line 5) +* タイプセッタの使い分け[たいふせつたのつかいわけ]: Changing typesetter. (line 13) +* 起動するコマンドを変える[きとうするこまんとをかえる]: Changing typesetter. (line 8) +* コメントアウト[こめんとあうと]: Commenting out. (line 5) +* その他のコマンド制御[そのたのこまんとせいきよ]: Controlling which command to invoke. (line 5) +* 他パッケージとの連携[たはつけえしとのれんけい]: Cooperation with other packages. (line 5) +* ヒストリ[ひすとり]: Cooperation with other packages. (line 9) +* コマンドヒストリ[こまんとひすとり]: Cooperation with other packages. (line 9) +* カーソルジャンプ[かあそるしやんふ]: Cursor jump. (line 5) +* キーアサイン[きいあさいん]: Customizations. (line 5) +* カスタマイズ[かすたまいす]: Customizations. (line 5) +* Demacs: Intro. (line 5) +* %#END: Fix region for typesetting. (line 5) +* %#記法自体の編集[%#きほうしたいのへんしゆう]: Editing %# notation. (line 5) * 括る[くくる]: Enclose section-type command. (line 5) -* 括る[くくる]: large伍補完. (line 23) -* 引数[ひきすう]: 2個以上の引数をとるsection伍υン. (line 5) -* 欧文[おうふん]: Accent mark completion. (line 5) +* パラグラフの桁揃え[はらくらふのけたそろえ]: Filling. (line 48) +* 桁揃え[けたそろえ]: Filling. (line 5) +* 領域決定規則[りよういきけつていきそく]: Fix region for typesetting. (line 27) +* 長いファイルの編集[なかいふあいるのへんしゆう]: Fix region for typesetting. (line 36) +* 固定領域のタイプセット[こていりよういきのたいふせつと]: Fix region for typesetting. (line 5) +* :: Greek letter completion. (line 5) +* ギリシャ文字補完[きりしやもしほかん]: Greek letter completion. (line 5) +* ;自身[;ししん]: Image completion. (line 34) * ∞[むけんたい]: Image completion. (line 5) +* Σ[しくま]: Image completion. (line 5) * 矢印[やしるし]: Image completion. (line 5) -* ;ｩ千[;ししん]: Image completion. (line 34) -* ロ窿ﾎ[ふろつく]: begin伍補完. (line 82) -* ﾘ辜骸ひすとり]: Cooperation with other packages. (line 9) -* 桁揃え[けたそろえ]: Filling. (line 5) -* やちょう[やちよう]: Intro. (line 5) -* ﾗャン[しやんふ]: view-sectioning. (line 44) +* 数式モード[すうしきもおと]: Image completion. (line 5) +* ;: Image completion. (line 5) +* イメージ補完[いめえしほかん]: Image completion. (line 5) +* 数式記号イメージ補完[すうしききこういめえしほかん]: Image completion. (line 5) +* 他のファイルの手直し[ほかのふあいるのてなおし]: Includeonly. (line 12) +* インクルード構造[いんくるうとこうそう]: Inclusion hierarchy browser. (line 5) +* 括弧入力補助[かつこにゆうりよくほしよ]: Inserting parens. (line 5) +* Install: Installation. (line 5) +* インストール[いんすとおる]: Installation. (line 5) * &入力[&にゆうりよく]: Intelligent newline. (line 5) +* おまかせ改行[おまかせかいきよう]: Intelligent newline. (line 5) +* やちょう[やちよう]: Intro. (line 5) +* プリントアウト[ふりんとあうと]: Invocation. (line 5) +* プレヴューア[ふれひゆうあ]: Invocation. (line 5) +* タイプセッタ[たいふせつた]: Invocation. (line 5) +* 環境の削除[かんきようのさくしよ]: Killing LaTeX command. (line 7) +* LaTeX: Intro. (line 5) +* ローカル辞書[ろおかるししよ]: Local dictionary. (line 5) +* M-C-a: 環境を単位としたジャンプ. (line 8) +* M-C-e: 環境を単位としたジャンプ. (line 8) +* M-C- 環境を単位としたジャンプ. (line 8) +* M-q: Filling. (line 48) +* 変更/削除[へんこう/さくしよ]: Modifying/Deleting. (line 5) +* Mule: Intro. (line 5) +* NTT-jTeX[えぬていいていいしえいてつく]: Filling. (line 16) +* プライベートヘルプ[ふらいへえとへるふ]: Online help. (line 17) +* グローバルヘルプ[くろおはるへるふ]: Online help. (line 17) +* キーワード検索[きいわあとけんさく]: Online help. (line 5) +* オンラインヘルプ[おんらいんへるふ]: Online help. (line 5) +* 出力終了ページ[しゆつりよくしゆうりようへえし]: Print out. (line 10) +* 出力開始ページ[しゆつりよくかいしへえし]: Print out. (line 10) +* 再帰補完[さいきほかん]: Recursive completion. (line 5) * 設定例[せつていれい]: Sample definitions. (line 5) -* 随時補完[すいしほかん]: Arbitrary completion. (line 5) -* 閉じ込める[としこめる]: begin伍補完. (line 82) -* 再驚補完[さいきほかん]: Recursive completion. (line 5) -* ユ⊥ψｫ書ﾛゆうさししよ]: begin伍補完. (line 72) -* 倚理翰濁[ろんりかいそう]: view-sectioning. (line 44) +* 入力ファイル分割[にゆうりよくふあいるふんかつ]: Splitting input files. (line 12) +* 現在のカラム表示[けんさいのからむひようし]: What column. (line 25) * ここはどこ?[ここはとこ?]: What column. (line 5) -* μﾘﾞεﾙ[かすたまいす]: Customizations. (line 5) -* ξ⊥γχεン[きいあさいん]: Customizations. (line 5) -* 数ｮモ⊥鐚すうしきもおと]: Image completion. (line 5) -* εンﾘ轣ﾛル[いんすとおる]: Installation. (line 5) -* ﾞεﾚ窿ﾞ[たいふせつた]: Invocation. (line 5) -* レヴュ⊥γ[ふれひゆうあ]: Invocation. (line 5) -* お管歩き縺ﾛル勤動[おえかきつうるきとう]: お管歩き縺ﾛル勤動. (line 5) -* 環境の先頭へ[かんきようのせんとうへ]: 環境を漬位としたﾗャン. (line 8) -* 環境の末尾へ[かんきようのまつひへ]: 環境を漬位としたﾗャン. (line 8) -* 環境を⊥π[かんきようをまあく]: 環境を漬位としたﾗャン. (line 8) -* γη辜宴ﾃン[あうとらいん]: view-sectioning. (line 5) -* 引数の個数を変える[ひきすうのこすうをかえる]: 2個以上の引数をとるsection伍υン. (line 26) -* γπﾚン迢ﾌ号補完[あくせんときこうほかん]: Accent mark completion. (line 5) -* μﾘﾞεﾙ変数一覧[かすたまいすへんすういちらん]: All customizable variables. (line 5) -* 環境名の補完[かんきようめいのほかん]: begin伍補完. (line 5) -* ιラ⊥湘衰zえらあしゆうせい]: Calling typesetter. (line 5) -* ﾞεﾚ窿ﾞ勤動[たいふせつたきとう]: Calling typesetter. (line 5) -* ﾞεﾚ窿辜ﾇラ⊥[たいふせつとえらあ]: Calling typesetter. (line 5) -* 環境名の変菜[かんきようめいのへんこう]: Changing LaTeX command. (line 21) -* モ⊥關ﾘり替え[もうときりかえ]: Changing mode of YaTeX. (line 5) -* 勤動するυン閧変える[きとうするこまんとをかえる]: Changing typesetter. (line 8) -* ﾞεﾚ窿ﾞの守い分け[たいふせつたのつかいわけ]: Changing typesetter. (line 13) -* υメン辜ﾁη躰こめんとあうと]: Commenting out. (line 5) -* その他のυン關ｧ御[そのたのこまんとせいきよ]: Controlling which command to invoke. (line 5) -* 他窿ﾐ⊥ﾗとの价檎[たはつけえしとのれんけい]: Cooperation with other packages. (line 5) -* υン閭ﾘ辜骸こまんとひすとり]: Cooperation with other packages. (line 9) -* μ⊥ﾜルﾗャン[かあそるしやんふ]: Cursor jump. (line 5) -* %#粁迷ｩ体の編 %#きほうしたいのへんしゆう]: Editing %# notation. (line 5) -* ラρラの桁揃え[はらくらふのけたそろえ]: Filling. (line 48) -* 固定領域のﾞεﾚ窿躰こていりよういきのたいふせつと]: Fix region for typesetting. (line 5) -* 領域決定桐則[りよういきけつていきそく]: Fix region for typesetting. (line 27) -* 長いβεルの編 なかいふあいるのへんしゆう]: Fix region for typesetting. (line 36) -* οリωャ文字補完[きりしやもしほかん]: Greek letter completion. (line 5) -* εメ⊥ﾗ補完[いめえしほかん]: Image completion. (line 5) -* 数ｮ粁号εメ⊥ﾗ補完[すうしききこういめえしほかん]: Image completion. (line 5) -* 他のβεルの手直し[ほかのふあいるのてなおし]: Includeonly. (line 12) -* εンπル⊥闕ﾜ造[いんくるうとこうそう]: Inclusion hierarchy browser. (line 5) -* 括弧入力補助ﾛかつこにゆうりよくほしよ]: Inserting parens. (line 5) -* おまかせ改窄[おまかせかいきよう]: Intelligent newline. (line 5) -* リン辜ﾁη躰ふりんとあうと]: Invocation. (line 5) -* 環境の削除ﾛかんきようのさくしよ]: Killing LaTeX command. (line 7) -* ラルｩ動生成[らへるしとうせいせい]: label-generation. (line 5) -* κン邇定首[ふおんとしていし]: large伍補完. (line 19) -* 文字χεﾙ樹定首[もしさいすしていし]: large伍補完. (line 19) -* ロ⊥μルｫ書ﾛろおかるししよ]: Local dictionary. (line 5) -* 変菜/削除ﾛへんこう/さくしよ]: Modifying/Deleting. (line 5) -* λンラεンル[おんらいんへるふ]: Online help. (line 5) -* ξ⊥ワ⊥闌沚[きいわあとけんさく]: Online help. (line 5) -* ρロ⊥ルル[くろおはるへるふ]: Online help. (line 17) -* ラε⊥辜ル[ふらいへえとへるふ]: Online help. (line 17) -* 入力βεル分割[にゆうりよくふあいるふんかつ]: Splitting input files. (line 12) -* ﾚπωョン区切り一覧窿β[せくしよんくきりいちらんはつふあ]: view-sectioning. (line 20) -* ﾚπωョン区切り[せくしよんくきり]: view-sectioning. (line 44) -* 現在のμラム舗ｦ[けんさいのからむひようし]: What column. (line 24) +* YaTeX-help-file: Online help. (line 17) +* YaTeX-help-file-private: Online help. (line 17) +* YaTeX-item-regexp: Filling. (line 21) +* YaTeX-math-sign-alist-private: Image completion. (line 61) +* YaTeX-nervous: Local dictionary. (line 23) * apropos: Online help. (line 5) +* auto-mode-alist: Installation. (line 5) * autoload: Installation. (line 5) -* auto-mode-alist: Installation. (line 5) -* %#BEGIN: Fix region for typesetting. (line 5) -* begin伍補完[beginかたほかん]: begin伍補完. (line 5) -* C-c: Invocation. (line 5) -* Demacs: Intro. (line 5) +* begin型補完[beginかたほかん]: begin型補完. (line 5) +* 環境名の補完[かんきようめいのほかん]: begin型補完. (line 5) +* ユーザ辞書[ゆうさししよ]: begin型補完. (line 72) +* 閉じ込める[としこめる]: begin型補完. (line 82) +* ブロック[ふろつく]: begin型補完. (line 82) * .emacs: Installation. (line 5) -* %#END: Fix region for typesetting. (line 5) * end補完[endほかん]: end補完. (line 5) * ghostview: Splitting input files. (line 17) * gmhist: Cooperation with other packages. (line 9) * hook変数[hookへんすう]: Hook variables. (line 5) -* 擾力終了⊥ﾗ[しゆつりよくしゆうりようへえし]: Print out. (line 10) * includeonly: Includeonly. (line 5) -* Install: Installation. (line 5) +* 勝手にincludeonly[かつてにincludeonly]: Includeonly. (line 5) * itemなどの桁揃え[itemなとのけたそろえ]: Filling. (line 9) -* 擾力開腫⊥ﾗ[しゆつりよくかいしへえし]: Print out. (line 10) * jlatex: Invocation. (line 5) -* large伍補完[largeかたほかん]: large伍補完. (line 5) -* LaTeX: Intro. (line 5) +* ラベル自動生成[らへるしとうせいせい]: label-generation. (line 5) +* large型補完[largeかたほかん]: large型補完. (line 5) +* フォント指定子[ふおんとしていし]: large型補完. (line 19) +* 文字サイズ指定子[もしさいすしていし]: large型補完. (line 19) +* 括る[くくる]: large型補完. (line 23) * leftarrow: Image completion. (line 5) +* お絵描きツール起動[おえかきつうるきとう]: お絵描きツール起動. (line 5) +* 環境をマーク[かんきようをまあく]: 環境を単位としたジャンプ. (line 8) +* 環境の末尾へ[かんきようのまつひへ]: 環境を単位としたジャンプ. (line 8) +* 環境の先頭へ[かんきようのせんとうへ]: 環境を単位としたジャンプ. (line 8) * lpr format: lpr format. (line 5) -* lprκ⊥窿轤ﾌ変菜[lprふおおまつとのへんこう]: Editing %# notation. (line 20) -* lprふぉ⊥まっと[lprふおおまつと]: lpr format. (line 5) -* lprκ⊥窿躰lprふおおまつと]: lpr format. (line 5) -* maketitle伍補完[maketitleかたほかん]: maketitle伍補完. (line 5) -* M-C-@: 環境を漬位としたﾗャン. (line 8) -* M-C-a: 環境を漬位としたﾗャン. (line 8) -* M-C-e: 環境を漬位としたﾗャン. (line 8) +* lprフォーマットの変更[lprふおおまつとのへんこう]: Editing %# notation. (line 20) +* ページ確認省略lpr起動[へえしかくにんしようりやくlprきとう]: Print out. (line 13) +* lprフォーマット[lprふおおまつと]: lpr format. (line 5) +* lprふぉーまっと[lprふおおまつと]: lpr format. (line 5) +* maketitle型補完[maketitleかたほかん]: maketitle型補完. (line 5) * min-out: Cooperation with other packages. (line 18) -* M-q: Filling. (line 48) -* Mule: Intro. (line 5) -* 勝手ｕ穎cludeonly[かつてにincludeonly]: Includeonly. (line 5) -* NTT-jTeX[えぬていいていいしえいてつく]: Filling. (line 16) * platex: Invocation. (line 5) * prefix ,: Commenting out. (line 5) * prefix .: Commenting out. (line 5) +* prefix >: Commenting out. (line 5) * prefix <: Commenting out. (line 5) -* prefix >: Commenting out. (line 5) * prefix /: Online help. (line 5) * prefix ?: Online help. (line 5) +* prefix SPC: Arbitrary completion. (line 5) * prefix &: What column. (line 5) * prefix a: Accent mark completion. (line 5) -* prefix b: begin伍補完. (line 5) +* prefix b: begin型補完. (line 5) * prefix c: Modifying/Deleting. (line 5) * prefix d: Inclusion hierarchy browser. (line 5) * prefix e: end補完. (line 5) @@ -2205,23 +2236,21 @@ * prefix i: Filling. (line 9) * prefix k: Modifying/Deleting. (line 5) * prefix key: Invocation. (line 5) -* prefix l: large伍補完. (line 5) -* prefix m: maketitle伍補完. (line 5) -* prefix s: section伍補完. (line 5) -* prefix SPC: Arbitrary completion. (line 5) +* prefix l: large型補完. (line 5) +* prefix m: maketitle型補完. (line 5) +* prefixキー変更[prefixきいへんこう]: Lisp variables. (line 5) +* prefix s: section型補完. (line 5) * prefix w: Changing mode of YaTeX. (line 5) -* prefixξ⊥変菜[prefixきいへんこう]: Lisp variables. (line 5) -* ⊥ﾗ器犯省羅麪r勤動[へえしかくにんしようりやくlprきとう]: Print out. (line 13) -* section伍補完[sectionかたほかん]: section伍補完. (line 5) -* 複ﾇなtabular[ふくさつなtabular]: What column. (line 5) +* section型補完[sectionかたほかん]: section型補完. (line 5) +* 複雑なtabular[ふくさつなtabular]: What column. (line 5) * 先回りusepackage[さきまわり]: Usepackage cheker. (line 5) -* YaTeX-help-file: Online help. (line 17) -* YaTeX-help-file-private: Online help. (line 17) -* YaTeX-item-regexp: Filling. (line 21) -* YaTeX-math-sign-alist-private: Image completion. (line 61) +* セクション区切り一覧バッファ[せくしよんくきりいちらんはつふあ]: view-sectioning. (line 20) +* ジャンプ[しやんふ]: view-sectioning. (line 44) +* セクション区切り[せくしよんくきり]: view-sectioning. (line 44) +* 論理階層[ろんりかいそう]: view-sectioning. (line 44) +* アウトライン[あうとらいん]: view-sectioning. (line 5) * yatex-mode-hook: Hook variables. (line 5) * yatex-mode-load-hook: Hook variables. (line 5) -* YaTeX-nervous: Local dictionary. (line 23) * .yatexrc: Local dictionary. (line 5) Tag table: @@ -2229,63 +2258,63 @@ Node: Intro1311 Node: Terminology1614 Node: Main features2254 -Node: Installation3316 -Node: Invocation4546 -Node: Calling typesetter5406 -Node: Calling previewer6867 -Node: Print out7183 -Node: %#notation7449 -Node: Changing typesetter7877 -Node: Splitting input files8135 -Node: Fix region for typesetting9091 -Node: lpr format9999 -Node: Controlling which command to invoke10809 -Node: Editing %# notation11523 -Node: Completion11981 -Node: begin型補完12392 -Node: section型補完15141 -Node: 2個以上の引数をとる section型コマンド16234 -Node: Enclose section-type command17048 -Node: Recursive completion17372 -Node: view-sectioning17677 -Node: label-generation18873 -Node: large型補完19223 -Node: maketitle型補完19757 -Node: Arbitrary completion20056 -Node: end補完20369 -Node: Accent mark completion20710 -Node: Image completion21135 -Node: Greek letter completion22950 -Node: Inserting parens23434 -Node: Local dictionary23782 -Node: Commenting out24386 -Node: Cursor jump25546 -Node: 対応オブジェクトへのジャンプ25763 -Node: お絵描きツール起動26749 -Node: メインファイルへのジャンプ27664 -Node: 環境を単位としたジャンプ28000 -Node: 最後の補完位置へのジャンプ28357 -Node: Modifying/Deleting28594 -Node: Changing LaTeX command29000 -Node: Killing LaTeX command29550 -Node: Filling30422 -Node: Includeonly31752 -Node: What column32313 -Node: Intelligent newline33092 -Node: Usepackage cheker34124 -Node: Changing mode of YaTeX34551 -Node: Online help35126 -Node: Inclusion hierarchy browser36103 -Node: Cooperation with other packages37381 -Node: Customizations37836 -Node: Lisp variables38133 -Node: All customizable variables38739 -Node: Sample definitions47710 -Node: Hook variables48144 -Node: Hook file49038 -Node: Add-in functions49244 -Node: Etc49471 -Node: Copying49756 -Node: Concept Index50380 +Node: Installation3376 +Node: Invocation4636 +Node: Calling typesetter5512 +Node: Calling previewer6973 +Node: Print out7289 +Node: %#notation7555 +Node: Changing typesetter7983 +Node: Splitting input files8241 +Node: Fix region for typesetting9197 +Node: lpr format10105 +Node: Controlling which command to invoke10915 +Node: Editing %# notation11629 +Node: Completion12087 +Node: begin型補完12498 +Node: section型補完15247 +Node: 2個以上の引数をとる section型コマンド16340 +Node: Enclose section-type command17156 +Node: Recursive completion17480 +Node: view-sectioning17785 +Node: label-generation18981 +Node: large型補完19655 +Node: maketitle型補完20189 +Node: Arbitrary completion20488 +Node: end補完20801 +Node: Accent mark completion21142 +Node: Image completion21567 +Node: Greek letter completion23382 +Node: Inserting parens23866 +Node: Local dictionary24214 +Node: Commenting out24818 +Node: Cursor jump25978 +Node: 対応オブジェクトへのジャンプ26195 +Node: お絵描きツール起動27181 +Node: メインファイルへのジャンプ28099 +Node: 環境を単位としたジャンプ28435 +Node: 最後の補完位置へのジャンプ28792 +Node: Modifying/Deleting29029 +Node: Changing LaTeX command29435 +Node: Killing LaTeX command29985 +Node: Filling30857 +Node: Includeonly32187 +Node: What column32748 +Node: Intelligent newline33528 +Node: Usepackage cheker34560 +Node: Changing mode of YaTeX34987 +Node: Online help35563 +Node: Inclusion hierarchy browser36540 +Node: Cooperation with other packages37818 +Node: Customizations38273 +Node: Lisp variables38570 +Node: All customizable variables39177 +Node: Sample definitions48157 +Node: Hook variables48591 +Node: Hook file49486 +Node: Add-in functions49692 +Node: Etc49919 +Node: Copying50204 +Node: Concept Index50828 End tag table
--- a/docs/yatexj.tex Thu Jan 05 23:20:34 2017 +0900 +++ b/docs/yatexj.tex Sun Sep 10 21:40:11 2017 +0859 @@ -13,7 +13,7 @@ @c ノードいじったら C-l C-u C-n 全部のノード更新 C-l C-u C-e @c メニュー増やしたら C-l C-u C-m 全部のメニュー更新 C-l C-u C-a @c フォーマットするときは C-l C-e C-b -@c Last modified Fri Feb 13 08:17:31 2015 on firestorm +@c Last modified Sat Sep 9 23:43:04 2017 on firestorm @syncodeindex vr cp @end iftex @@ -23,7 +23,7 @@ @subtitle Yet Another tex-mode for emacs @title 『野鳥』 @subtitle // YaTeX // -@author @copyright{} 1991-2012 by HIROSE, Yuuji [yuuji@@yatex.org] +@author @copyright{} 1991-2017 by HIROSE, Yuuji [yuuji@@yatex.org] @end titlepage @node Top, Intro, (dir), (dir) @@ -145,6 +145,7 @@ @item 補完入力したマクロに応じて必要な \userpackage を入れてくれる先回り userpackage @item \labelを打つことはもう忘れよう! refやcite補完入力で自動生成します +@item 画像ファイルのドラッグ&ドロップによる自動 \includegraphics @end itemize @node Installation, Invocation, Main features, Top @@ -903,6 +904,24 @@ つけるのもたいへんです。もうラベル名に何をつけるか、ラベルをつけるかつけま いか、などということは忘れましょう! +ラベルを打つべき項目の選択の際には、可能性のあるすべてのカウンタが表示され +ます。これを「数式のみ」のように種別で絞りたいときは以下のキーコマンドが +利用できます。 +@table @kbd + @item M-a + @dots{} 絞り込みを解除してすべてのカウンタを表示 + @item M-c + @dots{} キャプションのみを表示 + @item M-e + @dots{} 番号のつく数式のみを表示 + @item M-i + @dots{} 番号つき箇条書のみを表示 + @item M-s + @dots{} セクションのみを表示 + @item M-m + @dots{} その他のカウンタのみを表示 +@end table + @node large型補完, maketitle型補完, section型補完, Completion @comment node-name, next, previous, up @section large型補完 @@ -2319,7 +2338,7 @@ せんが契約締結は辞退します。 苦情、希望、バグ報告、感想等は歓迎いたします。 -連絡は yuuji@@yatex.org まで(2004年1月現在)。 +連絡は yuuji@@yatex.org まで(2017年9月現在)。 継続的に使用してくださる方はメイリングリスト「fj野鳥の会」に 是非加入してください。加入方法については本パッケージの @file{docs/qanda} ファイルの「その他」の章を御覧ください。
--- a/makefile Thu Jan 05 23:20:34 2017 +0900 +++ b/makefile Sun Sep 10 21:40:11 2017 +0859 @@ -225,21 +225,15 @@ ( version=${VERSION}; cd ${TMPDIR}; \ ${TAR} vzcf ${TMPDIR}/yahtml$$version.tar.gz yatex$$version) -ci: - ci -r${VERSION} -sRel -f ${RCSFILE} - ci -u${VERSION} makefile 00readme - -co: - co ${RCSFILE} +tag: + echo hg tag ${VERSION} +# ci: +# ci -r${VERSION} -sRel -f ${RCSFILE} +# ci -u${VERSION} makefile 00readme -co-l: - co -l ${RCSFILE} +# co: +# co ${RCSFILE} -tci: - ci -l${VERSION}.0 -Ncurrent ${RCSFILE} makefile - -dostci: - ci -l${MVER}.0 -Ncurrent @rcsfile RSYNCDIR = ${HOME}/http/yatex/rsync/yatex #sync:
--- a/yahtml.el Thu Jan 05 23:20:34 2017 +0900 +++ b/yahtml.el Sun Sep 10 21:40:11 2017 +0859 @@ -1,9 +1,8 @@ ;;; yahtml.el --- Yet Another HTML mode -*- coding: sjis -*- ;;; (c) 1994-2017 by HIROSE Yuuji [yuuji(@)yatex.org] -;;; Last modified Thu Jan 5 17:45:36 2017 on firestorm ;;; $Id$ -(defconst yahtml-revision-number "1.79" +(defconst yahtml-revision-number "1.80" "Revision number of running yahtml.el") ;;; Commentary: @@ -51,7 +50,7 @@ ;;; (setq yahtml-kanji-code 2) ;;; ;HTMLファイルの漢字コードを変更する場合は ;;; ;1=SJIS、2=JIS、3=EUC 4=UTF-8 -;;; ;で設定して下さい。デフォルトは 2 です。 +;;; ;で設定して下さい。デフォルトは 4 です。 ;;; ;;; を適切に書き換えて ~/.emacs に足して下さい。 ;;; @@ -186,7 +185,7 @@ "*Prefix key stroke of yahtml functions.") (defvar yahtml-image-viewer "display" "*Image viewer program") (defvar yahtml-www-browser "firefox" "*WWW Browser command") -(defvar yahtml-kanji-code 2 +(defvar yahtml-kanji-code 4 "*Kanji coding system number of html file; 1=sjis, 2=jis, 3=euc, 4=UTF-8") ;;(defvar yahtml-coding-system ;; (cdr (assq yahtml-kanji-code YaTeX-kanji-code-alist)) @@ -444,7 +443,7 @@ ("style") ("script") ("noscript") ("div") ("object") ("ins") ("del") ("option") ("datalist") ;;HTML5 - ("video") ("audio") + ("video") ("audio") ("figure") ("iframe") )) (if yahtml-html4-strict @@ -476,7 +475,10 @@ (append '(("dfn") ("em") ("cite") ("code") ("kbd") ("samp") ("caption") ("strong") ("var") ("b") ("i") ("tt") ("big") ("small") - ("sup") ("sub") ("span") ("abbr") ("label")) + ("sup") ("sub") ("span") ("abbr") ("label") + ;; HTML5 + ("figcaption") + ) (if (not yahtml-html4-strict) '(("strike") ("s") ("u") ("font"))) yahtml-env-table) @@ -999,7 +1001,7 @@ (min (if (fboundp 'field-beginning) (field-beginning) (point-min)))) (setq initial (YaTeX-minibuffer-string)) (cond - ((string-match "^http:" initial) + ((string-match "^htt" initial) (setq cmpl (try-completion initial yahtml-urls) listfunc (list 'lambda nil (list 'all-completions initial 'yahtml-urls)) @@ -1135,26 +1137,30 @@ (set-marker e nil)))) ;; ab%defgls/.| -(defun yahtml:a () - "Add-in function for <a>" +(defun yahtml-read-url (prompt) (let ((href "")) (setq yahtml-completing-buffer (current-buffer) yahtml-urls (append yahtml-urls-private yahtml-urls-local) href (yahtml-escape-chars-string (read-from-minibuffer-with-history - "href: " "" yahtml-url-completion-map))) + prompt "" yahtml-url-completion-map))) (prog1 - (concat (yahtml-make-optional-argument - "href" href) - (yahtml-make-optional-argument - "name" (read-string-with-history "name: "))) - (if (and (string-match "^http://" href) + href + (if (and (string-match "^https?://" href) (null (assoc href yahtml-urls-private)) (null (assoc href yahtml-urls-local))) (YaTeX-update-table (list href) 'yahtml-urls-private 'yahtml-urls-private 'yahtml-urls-local))))) +(defun yahtml:a () + "Add-in function for <a>" + (let ((href (yahtml-read-url "href: "))) + (concat (yahtml-make-optional-argument + "href" href) + (yahtml-make-optional-argument + "name" (read-string-with-history "name: "))))) + (defvar yahtml-parameters-completion-alist '(("align" ("top") ("middle") ("bottom") ("left") ("right") ("center")) ("clear" ("left") ("right") ("center") ("all") ("none")) @@ -1167,7 +1173,9 @@ ("rel" . yahtml-link-types-alist) ("type" . yahtml-content-types-alist) ("codetype" . yahtml-content-types-alist) - ("http-equiv" ("Refresh")))) + ("http-equiv" ("Refresh") ("Content-Language") ("Content-Type")) + ("charset" + ("utf-8")("euc-jp")("iso-2022-jp")("iso-8859-1")("shift_jis")))) (defvar yahtml-link-types-alist '(("alternate") ("stylesheet") ("start") ("next") ("prev") @@ -1263,7 +1271,7 @@ (defun yahtml:img () "Add-in function for <img>" (let ((src (yahtml-read-parameter "src")) - (alg (yahtml-read-parameter "align")) + (alg (if yahtml-html4-strict nil (yahtml-read-parameter "align"))) alt (brd (read-string-with-history "border=")) (l yahtml-prefer-upcase-attributes) @@ -1302,7 +1310,7 @@ (cons "align" alg)) (if (string< "" brd) (cons "border" - (format "%dpx" (string-to-int brd)))))))) + (format "%dpx" (YaTeX-str2int brd)))))))) (concat (yahtml-make-optional-argument "border" brd) (yahtml-make-optional-argument "align" alg)))))) @@ -1447,7 +1455,7 @@ (defun yahtml:ol () "Add-in function for <ol>" - (setq yahtml-last-single-cmd "li") + (setq yahtml-last-typeface-cmd "li") (let ((start (YaTeX-read-string-or-skip "start=")) (type (YaTeX-completing-read-or-skip "type=" '(("1") ("a") ("A") ("i") ("I")) nil t))) @@ -1455,11 +1463,11 @@ (yahtml-make-optional-argument "start" start) (yahtml-make-optional-argument "type" type)))) (defun yahtml:ul () - (setq yahtml-last-single-cmd "li") "") + (setq yahtml-last-typeface-cmd "li") "") (defun yahtml:dl () - (setq yahtml-last-single-cmd "dt") "") + (setq yahtml-last-typeface-cmd "dt") "") (defun yahtml:dt () - (setq yahtml-last-single-cmd "dd") "") + (setq yahtml-last-typeface-cmd "dd") "") (defun yahtml:p () (if yahtml-html4-strict nil @@ -1477,9 +1485,10 @@ (setq name (read-string-with-history "name: ") type (YaTeX-completing-read-or-skip "type (default=text): " yahtml-input-types nil t) - value (YaTeX-read-string-or-skip "value: ") - id (YaTeX-read-string-or-skip "id: ")) - (if (string-match "text\\|password\\|^$" typxe) + value (YaTeX-read-string-or-skip "value: ")) + (or (string-match "submit\\|reset" type) + (setq id (YaTeX-read-string-or-skip "id: "))) + (if (string-match "text\\|password\\|^$" type) (setq size (YaTeX-read-string-or-skip "size: ") maxlength (YaTeX-read-string-or-skip "maxlength: "))) (concat @@ -1524,7 +1533,7 @@ (append (if (string< "" b) (list - (cons "border" (format "%dpx solid" (string-to-int b))) + (cons "border" (format "%dpx solid" (YaTeX-str2int b))) (cons "border-collapse" "collapse"))) (if (string< "" a) (cond @@ -1569,8 +1578,7 @@ (defun yahtml:tr () "Add-in function for `tr'" - (setq ;yahtml-last-begend "td" ;; which do you prefer? - yahtml-last-typeface-cmd "td") + (setq yahtml-last-typeface-cmd "td") "") (defun yahtml:link () @@ -1613,27 +1621,29 @@ (read-from-minibuffer-with-history "href: " "" yahtml-url-completion-map))))))) -(defvar yahtml:meta-names - '(("name" ("keywords")("author")("copyright")("date")("GENERATOR")))) +(defvar yahtml:meta-attrs + '(("charset" value) + ("name" content ("keywords")("author")("copyright")("date")("GENERATOR")) + ("http-equiv" content))) (defun yahtml:meta () - (let ((name (yahtml-make-optional-argument - "name" - (yahtml-read-parameter "name" nil yahtml:meta-names))) - http-equiv content) - (if (string= "" name) - (if (string-match - "Content-type" - (setq http-equiv (yahtml-make-optional-argument - "http-equiv" - (yahtml-read-parameter "http-equiv" nil)))) - (error "It's very bad idea to set Content-type in META. %s" - "See docs/qanda") - (concat http-equiv - (yahtml-make-optional-argument - "content" (yahtml-read-parameter "content")))) + (let ((attr (completing-read-with-history + "Meta Attribute: " yahtml:meta-attrs)) + (case-fold-search t) + (completion-ignore-case t) + todonext name http-equiv content) + (cond + ((string= "" attr) nil) + ((and (setq todonext (cdr-safe (assoc attr yahtml:meta-attrs))) + (eq 'value (car todonext))) + (yahtml-make-optional-argument attr (yahtml-read-parameter attr))) + ((eq 'content (car todonext)) + (setq name (if (cdr todonext) + (completing-read-with-history + (format "%s: " attr) (cdr todonext)) + (yahtml-read-parameter attr))) (concat - name + (yahtml-make-optional-argument attr name) (yahtml-make-optional-argument "content" (cond @@ -1650,7 +1660,14 @@ (if (string-match "yahtml" content) (message "Thank you!")) content) - (t (read-string-with-history (concat name ": "))))))))) + ((string-match "content-type" name) + (if (string-match "http-equiv" attr ) + (error "Use <meta charset=\"...\" instead.. See docs/qanda.") + (yahtml-make-optional-argument + "content" (yahtml-read-parameter "content")))) + (t (read-string-with-history (concat name ": "))))))) + (t (yahtml-make-optional-argument + attr (yahtml-read-parameter attr)))))) (defun yahtml:br () (yahtml-make-optional-argument "clear" (yahtml-read-parameter "clear"))) @@ -1671,9 +1688,7 @@ (yahtml-make-optional-argument "width" (yahtml-read-parameter "width")) (yahtml-make-optional-argument - "height" (yahtml-read-parameter "height")) - (yahtml-make-optional-argument - "align" (yahtml-read-parameter "align")))) + "height" (yahtml-read-parameter "height")))) (t "")))) @@ -1824,7 +1839,19 @@ ;; source element must have src attribute (format "src=\"%s\"" (yahtml-read-file-name-regexp "source: " yahtml-media-file-regexp "" "" nil ""))) - + +(defun yahtml:figure () + (setq yahtml-last-typeface-cmd "figcaption")) + +(defun yahtml:iframe () + (let ((src (yahtml-read-url "src: "))) + (concat + (yahtml-make-optional-argument "src" src) + (yahtml-make-optional-argument + "width" (YaTeX-read-string-or-skip "width: ")) + (yahtml-make-optional-argument + "height" (YaTeX-read-string-or-skip "height: "))))) + ;;; ---------- Jump ---------- (defun yahtml-on-href-p () "Check if point is on href clause." @@ -1913,7 +1940,9 @@ (cond ((string-match "^\\(ht\\|f\\)tps?:" href) (yahtml-browse-html href)) - (t (setq file (substring href 0 (string-match "#" href))) + (t (if (string-match "\&" href) + (setq href (yahtml-untranslate-string href))) + (setq file (substring href 0 (string-match "#" href))) (if (string-match "#" href) (setq name (substring href (1+ (string-match "#" href))))) (if (string< "" file) @@ -2830,7 +2859,7 @@ (if (file-directory-p (car (car list))) (progn (setq url (cdr (car list))) - (if (string-match "\\(http://[^/]*\\)/" url) + (if (string-match "\\(https?://[^/]*\\)/" url) (setq docroot (substring url (match-end 1))) (setq docroot url)) (cond @@ -2995,7 +3024,7 @@ (progn (skip-chars-forward "\"' \t\n") (looking-at "[0-9]+"))) - (setq cols (+ (string-to-int (YaTeX-match-string 0)) cols)) + (setq cols (+ (YaTeX-str2int (YaTeX-match-string 0)) cols)) (setq cols (1+ cols))) (goto-char rb) (setq p (point))) @@ -3048,6 +3077,9 @@ ))) (fset 'yahtml-intelligent-newline-video 'yahtml-intelligent-newline-audio) +(defun yahtml-intelligent-newline-iframe () + (insert "<p>Your browser does not support iframes.</p>")) + ;;; ---------- Marking ---------- (defun yahtml-mark-begend () "Mark current tag" @@ -3095,7 +3127,7 @@ (let ((f (if (string= "" (YaTeX-match-string 1)) YaTeX-current-file-name (YaTeX-match-string 1))) - (l (string-to-int (or (YaTeX-match-string 2) + (l (YaTeX-str2int (or (YaTeX-match-string 2) (YaTeX-match-string 3))))) (if sit (sit-for 1)) (forward-line -1) @@ -3332,5 +3364,4 @@ ; fill-prefix: ";;; " ; paragraph-start: "^$\\| \\|;;;$" ; paragraph-separate: "^$\\| \\|;;;$" -; coding: sjis ; End:
--- a/yatex.el Thu Jan 05 23:20:34 2017 +0900 +++ b/yatex.el Sun Sep 10 21:40:11 2017 +0859 @@ -1,14 +1,13 @@ ;;; yatex.el --- Yet Another tex-mode for emacs //野鳥// -*- coding: sjis -*- ;;; (c)1991-2017 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Thu Jan 5 23:13:56 2017 on firestorm +;;; Last modified Sun Sep 10 21:19:43 2017 on firestorm ;;; $Id$ ;;; The latest version of this software is always available at; -;;; http://www.yatex.org/ +;;; https://www.yatex.org/ ;;; Code: -(require 'comment) (require 'yatexlib) -(defconst YaTeX-revision-number "1.79.1" +(defconst YaTeX-revision-number "1.80" "Revision number of running yatex.el") ;---------- Local variables ---------- @@ -52,8 +51,9 @@ Overridden with `%#BIBTEX CommandLine...' in the buffer.") (defvar dvi2-command ;previewer command for your site - (if YaTeX-dos "dviout -wait=0" - "xdvi -geo +0+0 -s 4") + (cond (YaTeX-dos "dviout -wait=0") + (YaTeX-macos "open -a Preview") + (t "xdvi -geo +0+0 -s 4")) "*Default previewer command including its option. Overridden with `%#PREVIEW CommandLine...' in the buffer.") @@ -296,7 +296,8 @@ ("tilde") ("hat") ("check") ("bar") ("dot") ("ddot") ("vec") ("widetilde") ("widehat") ("overline") ("overrightarrow") ;; section types in mathmode - ("frac" 2) ("sqrt") ("mathrm") ("mathbf") ("mathit") + ("frac" 2) ("sqrt") ("mathrm") ("mathbf") ("mathit") ("mathbb") + ("mathscr") ("mathrsfs") ;;cleveref ("cref") ("crefrange") ("cpageref") ("labelcref") ("labelcpageref") ;; beamer @@ -338,12 +339,23 @@ ("split") ("split*") ("aligned") ("aligned*") ("alignedat") ("gathered") ("smallmatrix") ("cases") ("subequations"))) ;; Prepare list(not alist) for YaTeX::ref in yatexadd.el +(defvar YaTeX-math-other-env-alist-default + '(("numcases") ("subnumcases")) + "Default alist of additional environments for equations") +(defvar YaTeX-math-other-env-alist-private nil + "*User defined alist of additional environments for equations") +(defvar YaTeX-math-other-env-alist + (append YaTeX-math-other-env-alist-default + YaTeX-math-other-env-alist-private) + "Alist of additional environments for equations") +(defvar YaTeX-math-other-env-list + (mapcar 'car YaTeX-math-other-env-alist)) + (defvar YaTeX-math-begin-list (mapcar 'car YaTeX-ams-math-begin-alist)) (defvar YaTeX-math-gathering-list ;used in yatexadd.el#yatex::ref (mapcar 'car YaTeX-ams-math-gathering-alist)) - (defvar YaTeX-ams-env-table (append YaTeX-ams-math-begin-alist YaTeX-ams-math-gathering-alist) "*Standard AMS-LaTeX(2e) environment completion table.") @@ -370,7 +382,8 @@ ("alltt") ;defined in alltt ("multicols") ;defined in multicol ("breakbox"))) ;defined in eclbkbox - (if YaTeX-use-AMS-LaTeX YaTeX-ams-env-table)) + (if YaTeX-use-AMS-LaTeX YaTeX-ams-env-table) + YaTeX-math-other-env-alist) "Default completion table for begin-type completion.") (defvar user-env-table nil) @@ -582,7 +595,7 @@ "*Initial tex-section completion") (defvar YaTeX-fontsize-name "large" "*Initial fontsize completion") (defvar YaTeX-single-command "maketitle" "*Initial LaTeX single command") -(defvar YaTeX-kanji-code (if YaTeX-dos 1 2) +(defvar YaTeX-kanji-code nil "*File kanji code used by Japanese TeX. nil: Do not care (Preserve coding-system) 0: no-converion (mule) @@ -1298,7 +1311,7 @@ (car (where-is-internal 'YaTeX-make-begin-end)))) (point)) (put 'YaTeX-insert-braces 'begend-guide - (+ 1 (string-to-int ;increment counter of beg-end guidance + (+ 1 (YaTeX-str2int ;increment counter of beg-end guidance (prin1-to-string (get 'YaTeX-insert-braces 'begend-guide))))))))) env macro not-literal b e) @@ -2242,34 +2255,40 @@ it comments out whole environment" (interactive "P") (if (not (YaTeX-on-begin-end-p)) - (comment-out-region + (YaTeX-comment-region-sub (if alt-prefix (read-string-with-history "Insert prefix: ") YaTeX-comment-prefix)) - (YaTeX-comment-uncomment-env 'comment-out-region))) + (YaTeX-comment-uncomment-env 'YaTeX-comment-region-sub))) (defun YaTeX-uncomment-region (alt-prefix) "Uncomment out region by '%'." (interactive "P") (if (not (YaTeX-on-begin-end-p)) - (uncomment-out-region + (YaTeX-uncomment-region-sub (if alt-prefix (read-string-with-history "Remove prefix: ") YaTeX-comment-prefix) (region-beginning) (region-end) YaTeX-uncomment-once) - (YaTeX-comment-uncomment-env 'uncomment-out-region))) + (YaTeX-comment-uncomment-env 'YaTeX-uncomment-region-sub))) (defun YaTeX-comment-uncomment-env (func) "Comment or uncomment out one LaTeX environment switching function by FUNC." - (let (beg (p (point))) + (let (beg beg2 (p (point))) (save-excursion - (beginning-of-line) - (setq beg (point)) - (YaTeX-goto-corresponding-environment) - (beginning-of-line) - (if (> p (point)) (setq beg (1+ beg)) (forward-char 1)) - (funcall func YaTeX-comment-prefix beg (point) YaTeX-uncomment-once))) + (beginning-of-line) + (setq beg (point)) + (save-match-data + (while (and (not (eobp)) + (not (eolp)) + (looking-at YaTeX-comment-prefix)) + (goto-char (match-end 0)))) + (setq beg2 (point)) + (YaTeX-goto-corresponding-environment) + (beginning-of-line) + (if (> p (point)) (setq beg (1+ beg2)) (forward-char 1)) + (funcall func YaTeX-comment-prefix beg (point) YaTeX-uncomment-once))) (message "%sommented out current environment." - (if (eq func 'comment-out-region) "C" "Un-c"))) + (if (string-match "uncom" (symbol-name func)) "Un-c" "C"))) (defun YaTeX-comment-paragraph () "Comment out current paragraph." @@ -2287,7 +2306,7 @@ (t (mark-paragraph) (if (looking-at paragraph-separate) (forward-line 1)) - (comment-out-region "%"))))) + (YaTeX-comment-region-sub "%"))))) (defun YaTeX-uncomment-paragraph () "Uncomment current paragraph." @@ -2309,7 +2328,7 @@ (paragraph-separate paragraph-start)) (mark-paragraph) (if (not (bobp)) (forward-line 1)) - (uncomment-out-region "%" nil nil YaTeX-uncomment-once)) + (YaTeX-uncomment-region-sub "%" nil nil YaTeX-uncomment-once)) (message "This line is not a comment line."))))) (defun YaTeX-remove-prefix (prefix &optional once) @@ -3264,7 +3283,3 @@ ;; `History' was moved to ChangeLog ;----------------------------- End of yatex.el ----------------------------- - -; Local variables: -; coding: sjis -; End:
--- a/yatex.new Thu Jan 05 23:20:34 2017 +0900 +++ b/yatex.new Sun Sep 10 21:40:11 2017 +0859 @@ -1,6 +1,24 @@ What's new in YaTeX/yahtml 野鳥/yahtml - 各バージョンの変更点について +1.80 string-to-int除外と同時に emacs-18 をサポート外に。 + 2-Clause BSDでもOKという風に書いてみた。 + RCS管理を外した。 + == yatex == + ラベル補完バッファで M-e, M-i 等でラベル種の絞り込み可能。 + dviからPS変換コマンドを少し丁寧に探すようにした。 + mathbb, mathscr, mathrsfs, text, and, onslide, pause + YaTeX-math-other-env-alist-private で追加数式環境を足しやすくした。 + YaTeX-electric-indent-mode で C-m での自動インデントを制御。 + %#キーワードに追加: DVIPDF, PDFVIEW, IMAGEDPI(ワンタッチ更新も可)。 + Beamer用の補完アドインを追加(原案谷村さん)。 + YaTeX-kanji-code のデフォルトをnil(温存)に変更。 + == yahtml == + figure, iframe 対応。 + a要素の属性補完を修正。 + meta要素の属性補完を拡充、<meta charset="..."> に対応。 + yahtml-kanji-code のデフォルトを4(UTF-8)に変更。 + 1.79 別フレームに同一バッファがあるときのミニバッファ入力で、 ポイント位置がずれるEmacsの問題への対策を入れた。 === yatex ===
--- a/yatex19.el Thu Jan 05 23:20:34 2017 +0900 +++ b/yatex19.el Sun Sep 10 21:40:11 2017 +0859 @@ -1,6 +1,6 @@ ;;; yatex19.el -- YaTeX facilities for Emacs 19 or later -*- coding: sjis -*- ;;; (c)1994-2017 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Thu Jan 5 17:45:46 2017 on firestorm +;;; Last modified Sun Sep 10 09:51:04 2017 on firestorm ;;; $Id$ ;;; Code: @@ -823,5 +823,4 @@ ; fill-prefix: ";;; " ; paragraph-start: "^$\\| \\|;;;$" ; paragraph-separate: "^$\\| \\|;;;$" -; coding: sjis ; End:
--- a/yatex23.el Thu Jan 05 23:20:34 2017 +0900 +++ b/yatex23.el Sun Sep 10 21:40:11 2017 +0859 @@ -1,6 +1,6 @@ ;;; yatex23.el --- YaTeX facilities for Emacs 23 or later -*- coding: sjis -*- ;;; (c)2014-2017 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Thu Jan 5 17:45:48 2017 on firestorm +;;; Last modified Sun Sep 10 09:52:29 2017 on firestorm ;;; $Id$ (require 'yatex19) @@ -105,10 +105,3 @@ "Face of on-the-fly preview image mode") (provide 'yatex23) - -; Local variables: -; fill-prefix: ";;; " -; paragraph-start: "^$\\| \\|;;;$" -; paragraph-separate: "^$\\| \\|;;;$" -; coding: sjis -; End:
--- a/yatexadd.el Thu Jan 05 23:20:34 2017 +0900 +++ b/yatexadd.el Sun Sep 10 21:40:11 2017 +0859 @@ -1,6 +1,6 @@ ;;; yatexadd.el --- YaTeX add-in functions -*- coding: sjis -*- ;;; (c)1991-2017 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Thu Jan 5 23:13:23 2017 on firestorm +;;; Last modified Sun Sep 10 09:52:35 2017 on firestorm ;;; $Id$ ;;; Code: @@ -25,7 +25,7 @@ (if (string= YaTeX-env-name "tabular*") (setq width (concat "{" (YaTeX:read-length "Width: ") "}"))) (setq loc (YaTeX:read-position "tb") - bars (string-to-int + bars (YaTeX-str2int (YaTeX-read-string-or-skip "Number of columns(0 for default format): " "3"))) (if (<= bars 0) @@ -404,11 +404,12 @@ (defvar YaTeX-label-menu-other (if YaTeX-japan "':他のバッファのラベル\n" "':LABEL IN OTHER BUFFER.\n")) (defvar YaTeX-label-menu-repeat - (if YaTeX-japan ".:直前の\\refと同じ\n" "/:REPEAT LAST \ref{}\n")) + (if YaTeX-japan ".:直前の\\refと同じ\n" ".:REPEAT LAST \\ref{}\n")) (defvar YaTeX-label-menu-any (if YaTeX-japan "*:任意の文字列\n" "*:ANY STRING.\n")) (defvar YaTeX-label-buffer "*Label completions*") -(defvar YaTeX-label-guide-msg "Select label and hit RETURN.") +(defvar YaTeX-label-guide-msg + "[RET] on the Label. M-a)All M-c)Capt M-e)Eqn M-i)Itm M-s)Sec M-m)misc") (defvar YaTeX-label-select-map nil "Key map used in label selection buffer.") (defun YaTeX::label-setup-key-map () @@ -434,6 +435,12 @@ (define-key YaTeX-label-select-map "'" 'YaTeX::label-search-tag) (define-key YaTeX-label-select-map "." 'YaTeX::label-search-tag) (define-key YaTeX-label-select-map "*" 'YaTeX::label-search-tag) + (define-key YaTeX-label-select-map "\M-a" 'YaTeX::label-sel-all) + (define-key YaTeX-label-select-map "\M-c" 'YaTeX::label-sel-cap) + (define-key YaTeX-label-select-map "\M-e" 'YaTeX::label-sel-eqn) + (define-key YaTeX-label-select-map "\M-i" 'YaTeX::label-sel-item) + (define-key YaTeX-label-select-map "\M-s" 'YaTeX::label-sel-sec) + (define-key YaTeX-label-select-map "\M-m" 'YaTeX::label-sel-misc) (message "Setting up label selection mode map...Done") (let ((key ?A)) (while (<= key ?Z) @@ -462,6 +469,38 @@ (goto-char (match-beginning 0)))) (message YaTeX-label-guide-msg))) +(defun YaTeX::label-sel-* (type &optional any) + "Label type filtering out in YaTeX Label completion buffer" + (save-excursion + (let (ov) + (goto-char (point-min)) + (while (not (eobp)) + (goto-char (next-overlay-change (point))) + (if (null (setq ov (car-safe (overlays-at (point))))) + nil ;do nothin if overlays not found + (overlay-put + ov 'invisible (not (or any + (eq (overlay-get ov 'type) type))))))))) + +(defun YaTeX::label-sel-all () + (interactive) + (YaTeX::label-sel-* 'any 'any)) +(defun YaTeX::label-sel-cap () + (interactive) + (YaTeX::label-sel-* 'cap)) +(defun YaTeX::label-sel-eqn () + (interactive) + (YaTeX::label-sel-* 'eqn)) +(defun YaTeX::label-sel-item () + (interactive) + (YaTeX::label-sel-* 'item)) +(defun YaTeX::label-sel-sec () + (interactive) + (YaTeX::label-sel-* 'sec)) +(defun YaTeX::label-sel-misc () + (interactive) + (YaTeX::label-sel-* 'misc)) + ; (defun YaTeX::ref (argp &optional labelcmd refcmd) ; (cond ; ((= argp 1) @@ -571,19 +610,19 @@ (Y (substring ts -4)) (y (substring ts -2)) (b (substring ts 0 3)) - (d (format "%d" (string-to-int (substring ts 4 6)))) + (d (format "%d" (YaTeX-str2int (substring ts 4 6)))) (H (substring ts 7 9)) (M (substring ts 10 12)) (S (substring ts 13 15)) - (HMS (+ (* 10000 (string-to-int H)) - (* 100 (string-to-int M)) - (string-to-int S))) + (HMS (+ (* 10000 (YaTeX-str2int H)) + (* 100 (YaTeX-str2int M)) + (YaTeX-str2int S))) (talphabex (YaTeX::ref-alphabex HMS)) (mnames "JanFebMarAprMayJunJulAugSepOctNovDec") (m (format "%02d" (/ (string-match b mnames) 3))) - (ymd (+ (* 10000 (string-to-int y)) - (* 100 (string-to-int m)) - (string-to-int d))) + (ymd (+ (* 10000 (YaTeX-str2int y)) + (* 100 (YaTeX-str2int m)) + (YaTeX-str2int d))) (dalphabex (YaTeX::ref-alphabex ymd))) (YaTeX-replace-formats (or format YaTeX-ref-default-label-string) @@ -680,7 +719,7 @@ (if (condition-case nil (progn (goto-char curtop) - (YaTeX-goto-corresponding-environment)) + (YaTeX-goto-corresponding-environment nil t 'nonstop)) (error nil)) (setq end (point))) (goto-char inspoint) @@ -814,6 +853,265 @@ "*ref補完で収集するセクショニングコマンドの下限レベル YaTeX-sectioning-levelの数値で指定.") +(defun YaTeX::ref-1 (&optional nest-level) + ;; Sub-function of YaTeX::ref() for recursive call + ;; DO NOT CALL FROM OTHER FUNCTIONS but YaTeX:ref() + (setq nest-level (or nest-level 0)) + (let ((labelleader (substring " " 0 nest-level)) + label) + (while (YaTeX-re-search-active-forward + regexp ;;counter + percent nil t) + ;(goto-char (match-beginning 0)) + (setq e0 (match-end 0)) + (cond + ;; + ;;2005/10/21 Skip it if predicate function returns nil + ((and predf + (let ((md (match-data))) + (prog1 + (condition-case nil + (not (funcall predf)) + (error nil)) + (store-match-data md))))) + ((YaTeX-literal-p) nil) + ((YaTeX-match-string 1) + ;;if standard counter commands found + (setq cmd (YaTeX-match-string 2) + m0 (match-beginning 0)) + (setq match-point (match-beginning 0)) + (or initl + (if (< p (point)) (setq initl lnum))) + (cond + ;; In any case, variables e0 should be set + ((and YaTeX-use-AMS-LaTeX + (string-match YaTeX::ref-nestable-counter-regexp cmd)) + (skip-chars-forward "}") + (setq label (buffer-substring + (point) (min (+ 80 (point)) (point-max)))) + ;; to skip (maybe)auto-generated comment + (skip-chars-forward " \t") + (if (looking-at YaTeX-comment-prefix) + (forward-line 1)) + (setq e0 (point)) + (skip-chars-forward " \t\n") + (if (looking-at "\\\\label{\\([^}]+\\)}") + (setq label (format "(labe:%s)" (YaTeX-match-string 1)) + e0 (match-end 1))) + (funcall output + (format "--subequation--%s%s" labelleader label) + e0 'eqn)) + ((string-match mathenvs cmd) ;;if matches mathematical env + (skip-chars-forward "}") + (setq x (point) + envname (substring + cmd (match-beginning 0) (match-end 0))) + (save-restriction + (narrow-to-region + m0 + (save-excursion + (YaTeX-re-search-active-forward + (setq endrx (format "%send{%s}" YaTeX-ec-regexp + (regexp-quote envname))) + percent nil t))) + (catch 'scan + (while (YaTeX-re-search-active-forward + (concat + "\\\\end{\\(" (regexp-quote envname) "\\)" ;;(1) + "\\|\\\\\\(notag\\)" ;;2 + (if (string-match + YaTeX::ref-mathenv-exp1-regexp cmd) + "" "\\|\\(\\\\\\\\\\)$") ;;3 + ) + percent nil t) + (let*((quit (match-beginning 1)) + (notag (match-beginning 2)) + (newln (match-beginning 3)) + (label ".......................") l2 + (e (point)) (m0 (match-beginning 0)) + (ln (YaTeX-string-width label))) + (cond + (notag + (YaTeX-re-search-active-forward + "\\\\\\\\" percent nil 1) + (setq x (point))) ;use x as \label search bound + ((and newln ; `\\' found + (not (equal (YaTeX-inner-environment) + envname))) + (YaTeX-end-of-environment) + (goto-char (match-end 0))) + (t + (if (YaTeX-re-search-active-backward + YaTeX::ref-labeling-regexp + percent x t) + ;; if \label{x} in math-expression, display it + ;; because formula source is hard to recognize + (progn + (goto-char (match-end 0)) + (setq l2 (format "\"label:%s\"" + (buffer-substring + (1- (point)) + (progn (forward-sexp -1) + (1+ (point)))))) + (setq label + (if (< (YaTeX-string-width l2) ln) + (concat + l2 + (substring + label + 0 (- ln (YaTeX-string-width l2)))) + l2)) + (goto-char e))) + (funcall output + (concat + labelleader label " " + (buffer-substring x m0)) + x 'eqn) + (cond + ((YaTeX-quick-in-environment-p + YaTeX-math-gathering-list) + ;; if here is inner split/cases/gathered env., + ;; counter for here is only one. + ;; Go out this environment and, + (YaTeX-end-of-environment) + ;; search next expression unit boundary. + (YaTeX-re-search-active-forward + (concat endrx "\\|\\\\begin{") + percent nil 1) + (end-of-line))) + (if quit (throw 'scan t))))) + (setq x (point))))) + (setq e0 (point))) + ((string-match enums cmd) + ;(skip-chars-forward "} \t\n") + (save-restriction + (narrow-to-region + (point) + (save-excursion + (YaTeX-goto-corresponding-environment nil t 'nonstop) (point))) + (forward-line 1) + (let ((b0 nil) mb0) + (while (not (eobp)) + (setq x (and + (YaTeX-re-search-active-forward + (concat YaTeX-ec-regexp "item\\s ") + percent nil 1) + (match-beginning 0))) + + (if b0 ;Inspect sentence after previous \item + (save-excursion + (save-restriction + (let ((md (match-data))) ;save-match-data + (unwind-protect + (progn + (narrow-to-region b0 (or x (point))) + (goto-char (point-min)) + (let ((x x)) (YaTeX::ref-1 (1+ nest-level))) + (goto-char (point-max))) + (store-match-data md)))))) + (if x ;Output THIS \item line + (funcall + output + (concat + labelleader existlabel + (buffer-substring + (match-beginning 0) + (if (re-search-forward itemsep nil 1) + (progn (goto-char (match-beginning 0)) + (skip-chars-backward " \t") + (1- (point))) + (point-end-of-line)))) + x 'item)) + (setq b0 (point)) + )) + (setq e0 (point-max)))) + ((string-match "bibitem" cmd) ;maybe generated by myself + (setq label "") + (skip-chars-forward " \t") + (if (looking-at "{") ;sure to be true!! + (forward-list 1)) + (let ((list '(30 10 65)) + (delim ";") q lim len l str) + (save-excursion + (setq lim (if (re-search-forward itemsep nil 1) + (match-beginning 0) (point)))) + (while list + (skip-chars-forward " \t\n\\") + (setq q (looking-at "[\"'{]") + len (car list) + str + (buffer-substring + (point) + (progn + (if q (forward-sexp 1) + (search-forward delim lim 1) + (forward-char -1)) + (point)))) + (if (> (setq l (YaTeX-string-width str)) len) + (setq str (concat + (YaTeX-truncate-string-width + str (- len (if q 5 4))) + "... " + (if q (substring str -1))))) + (if (< (setq l (YaTeX-string-width str)) len) + (setq str (concat str (make-string (- len l) ? )))) + (if (looking-at delim) (goto-char (match-end 0))) + (setq label (concat label " " str) + list (cdr list))) + (funcall output (concat labelleader label) match-point 'bib))) + ;;else, simple section-type counter + ((= (char-after (1- (point))) ?{) + (setq label (buffer-substring + (match-beginning 0) + (progn (forward-char -1) + (forward-list 1) + (point)))) + (funcall output (concat labelleader label) match-point + (if (string-match "caption" cmd) 'cap 'sec)) + ;; Skip preceding label if exists + (if (YaTeX::ref-getset-label (current-buffer) match-point t) + (goto-char (get 'YaTeX::ref-getset-label 'foundpoint))) + (if (save-excursion + (skip-chars-forward "\t \n") + (looking-at YaTeX::ref-labeling-regexp)) + (setq e0 (match-end 0)))) + (t + (skip-chars-forward " \t") + (setq label (buffer-substring + (match-beginning 0) + (if (re-search-forward + itemsep + nil t) + (progn + (goto-char (match-beginning 0)) + (skip-chars-backward " \t") + (1- (point))) + (point-end-of-line)))) + (funcall output (concat labelleader label) match-point 'misc) + (if (save-excursion + (skip-chars-forward "\t \n") + (looking-at YaTeX::ref-labeling-regexp)) + (setq e0 (match-end 0))))) + ) ;;put label buffer + ;; + ;; if user defined label found + (t + ;; memorize line number and label into property + (goto-char (match-beginning 0)) + (let ((list YaTeX::ref-labeling-regexp-alist) + (cache (symbol-plist 'YaTeX::ref-labeling-regexp))) + (while list + (if (looking-at (car (car list))) + (progn + (setq label (YaTeX-match-string 0)) + (put 'YaTeX::ref-labeling-regexp lnum + (YaTeX-match-string (cdr (car list)))) + (funcall output (concat labelleader label) 0) ;;0 is dummy + (setq list nil))) + (setq list (cdr list)))) + )) + (goto-char e0)))) + (defun YaTeX::ref (argp &optional labelcmd refcmd predf) (setplist 'YaTeX::ref-labeling-regexp nil) ;erase memory cache (require 'yatexsec) @@ -854,14 +1152,22 @@ (percent (regexp-quote YaTeX-comment-prefix)) (output (function - (lambda (label p) + (lambda (label p &optional type) ;type: 'eqn 'item 'cap 'sec 'misc (while (setq x (string-match "[\n\t]" label)) (aset label x ? )) (while (setq x (string-match " +" label)) (setq label (concat (substring label 0 (1+ (match-beginning 0))) (substring label (match-end 0))))) - (princ (format "%c: <<%s>>\n" (+ (% lnum 26) ?A) label)) + (save-excursion + (set-buffer standard-output) + (overlay-put + (make-overlay + (point) + (progn + (insert (format "%c: <<%s>>\n" (+ (% lnum 26) ?A) label)) + (point))) + 'type type)) (setq point-list (cons p point-list)) (message "Collecting labels... %d" lnum) (setq lnum (1+ lnum))))) @@ -890,238 +1196,10 @@ (goto-char (point-min)) (let ((standard-output (get-buffer YaTeX-label-buffer)) existlabel) (princ (format "=== LABELS in [%s] ===\n" (buffer-name buf))) - (while (YaTeX-re-search-active-forward - regexp ;;counter - percent nil t) - ;(goto-char (match-beginning 0)) - (setq e0 (match-end 0)) - (cond - ;; - ;;2005/10/21 Skip it if predicate function returns nil - ((and predf - (let ((md (match-data))) - (prog1 - (condition-case nil - (not (funcall predf)) - (error nil)) - (store-match-data md))))) - ((YaTeX-literal-p) nil) - ((YaTeX-match-string 1) - ;;if standard counter commands found - (setq cmd (YaTeX-match-string 2) - m0 (match-beginning 0)) - (setq match-point (match-beginning 0)) - (or initl - (if (< p (point)) (setq initl lnum))) - (cond - ;; In any case, variables e0 should be set - ((and YaTeX-use-AMS-LaTeX - (string-match YaTeX::ref-nestable-counter-regexp cmd)) - (let (label) - (skip-chars-forward "}") - (setq label (buffer-substring - (point) (min (+ 80 (point)) (point-max)))) - ;; to skip (maybe)auto-generated comment - (skip-chars-forward " \t") - (if (looking-at YaTeX-comment-prefix) - (forward-line 1)) - (setq e0 (point)) - (skip-chars-forward " \t\n") - (if (looking-at "\\\\label{\\([^}]+\\)}") - (setq label (format "(labe:%s)" (YaTeX-match-string 1)) - e0 (match-end 1))) - (funcall output (format "--subequation--%s" label) e0))) - ((string-match mathenvs cmd) ;;if matches mathematical env - (skip-chars-forward "}") - (setq x (point) - envname (substring - cmd (match-beginning 0) (match-end 0))) - (save-restriction - (narrow-to-region - m0 - (save-excursion - (YaTeX-re-search-active-forward - (setq endrx (format "%send{%s}" YaTeX-ec-regexp - (regexp-quote envname))) - percent nil t))) - (catch 'scan - (while (YaTeX-re-search-active-forward - (concat - "\\\\end{\\(" (regexp-quote envname) "\\)";;(1) - "\\|\\\\\\(notag\\)" ;;2 - (if (string-match - YaTeX::ref-mathenv-exp1-regexp cmd) - "" "\\|\\(\\\\\\\\\\)$") ;;3 - ) - percent nil t) - (let*((quit (match-beginning 1)) - (notag (match-beginning 2)) - (newln (match-beginning 3)) - (label ".......................") l2 - (e (point)) (m0 (match-beginning 0)) - (ln (YaTeX-string-width label))) - (cond - (notag - (YaTeX-re-search-active-forward - "\\\\\\\\" percent nil 1) - (setq x (point))) ;use x as \label search bound - ((and newln ; `\\' found - (not (equal (YaTeX-inner-environment) - envname))) - (YaTeX-end-of-environment) - (goto-char (match-end 0))) - (t - (if (YaTeX-re-search-active-backward - YaTeX::ref-labeling-regexp - percent x t) - ;; if \label{x} in math-expression, display it - ;; because formula source is hard to recognize - (progn - (goto-char (match-end 0)) - (setq l2 (format "\"label:%s\"" - (buffer-substring - (1- (point)) - (progn (forward-sexp -1) - (1+ (point)))))) - (setq label - (if (< (YaTeX-string-width l2) ln) - (concat - l2 - (substring - label - 0 (- ln (YaTeX-string-width l2)))) - l2)) - (goto-char e))) - (funcall output - (concat - label " " - (buffer-substring x m0)) - x) - (cond - ((YaTeX-quick-in-environment-p - YaTeX-math-gathering-list) - ;; if here is inner split/cases/gathered env., - ;; counter for here is only one. - ;; Go out this environment and, - (YaTeX-end-of-environment) - ;; search next expression unit boundary. - (YaTeX-re-search-active-forward - (concat endrx "\\|\\\\begin{") - percent nil 1) - (end-of-line))) - (if quit (throw 'scan t))))) - (setq x (point))))) - (setq e0 (point))) - ((string-match enums cmd) - ;(skip-chars-forward "} \t\n") - (save-restriction - (narrow-to-region - (point) - (save-excursion - (YaTeX-goto-corresponding-environment) (point))) - (forward-line 1) - (while (YaTeX-re-search-active-forward - (concat YaTeX-ec-regexp "item\\s ") - percent nil t) - (setq x (match-beginning 0)) - (funcall - output - (concat - existlabel - (buffer-substring - (match-beginning 0) - (if (re-search-forward itemsep nil t) - (progn (goto-char (match-beginning 0)) - (skip-chars-backward " \t") - (1- (point))) - (point-end-of-line)))) - x)) - (setq e0 (point-max)))) - ((string-match "bibitem" cmd) ;maybe generated by myself - (setq label "") - (skip-chars-forward " \t") - (if (looking-at "{") ;sure to be true!! - (forward-list 1)) - (let ((list '(30 10 65)) - (delim ";") q lim len l str) - (save-excursion - (setq lim (if (re-search-forward itemsep nil 1) - (match-beginning 0) (point)))) - (while list - (skip-chars-forward " \t\n\\") - (setq q (looking-at "[\"'{]") - len (car list) - str - (buffer-substring - (point) - (progn - (if q (forward-sexp 1) - (search-forward delim lim 1) - (forward-char -1)) - (point)))) - (if (> (setq l (YaTeX-string-width str)) len) - (setq str (concat - (YaTeX-truncate-string-width - str (- len (if q 5 4))) - "... " - (if q (substring str -1))))) - (if (< (setq l (YaTeX-string-width str)) len) - (setq str (concat str (make-string (- len l) ? )))) - (if (looking-at delim) (goto-char (match-end 0))) - (setq label (concat label " " str) - list (cdr list))) - (funcall output label match-point))) - ;;else, simple section-type counter - ((= (char-after (1- (point))) ?{) - (setq label (buffer-substring - (match-beginning 0) - (progn (forward-char -1) - (forward-list 1) - (point)))) - (funcall output label match-point) - ;; Skip preceding label if exists - (if (YaTeX::ref-getset-label (current-buffer) match-point t) - (goto-char (get 'YaTeX::ref-getset-label 'foundpoint))) - (if (save-excursion - (skip-chars-forward "\t \n") - (looking-at YaTeX::ref-labeling-regexp)) - (setq e0 (match-end 0)))) - (t - (skip-chars-forward " \t") - (setq label (buffer-substring - (match-beginning 0) - (if (re-search-forward - itemsep - nil t) - (progn - (goto-char (match-beginning 0)) - (skip-chars-backward " \t") - (1- (point))) - (point-end-of-line)))) - (funcall output label match-point) - (if (save-excursion - (skip-chars-forward "\t \n") - (looking-at YaTeX::ref-labeling-regexp)) - (setq e0 (match-end 0))))) - ) ;;put label buffer - ;; - ;; if user defined label found - (t - ;; memorize line number and label into property - (goto-char (match-beginning 0)) - (let ((list YaTeX::ref-labeling-regexp-alist) - (cache (symbol-plist 'YaTeX::ref-labeling-regexp))) - (while list - (if (looking-at (car (car list))) - (progn - (setq label (YaTeX-match-string 0)) - (put 'YaTeX::ref-labeling-regexp lnum - (YaTeX-match-string (cdr (car list)))) - (funcall output label 0) ;;0 is dummy, never used - (setq list nil))) - (setq list (cdr list)))) - )) - (goto-char e0)) + + (YaTeX::ref-1) + + (princ YaTeX-label-menu-other) (princ YaTeX-label-menu-repeat) (princ YaTeX-label-menu-any) @@ -1511,7 +1589,7 @@ command)) ((= argp 2) (let ((argc - (string-to-int + (YaTeX-str2int (read-string-with-history "Number of arguments(Default 0): "))) (def (YaTeX-read-string-or-skip "Definition: ")) (command (get 'YaTeX::newcommand 'command))) @@ -2290,5 +2368,4 @@ ; fill-prefix: ";;; " ; paragraph-start: "^$\\| \\|;;;$" ; paragraph-separate: "^$\\| \\|;;;$" -; coding: sjis ; End:
--- a/yatexenv.el Thu Jan 05 23:20:34 2017 +0900 +++ b/yatexenv.el Sun Sep 10 21:40:11 2017 +0859 @@ -1,6 +1,6 @@ ;;; yatexenv.el --- YaTeX environment-specific functions ;;; (c) 1994-2017 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Thu Jan 5 17:45:53 2017 on firestorm +;;; Last modified Thu May 4 10:19:20 2017 on firestorm ;;; $Id$ ;;; Code: @@ -43,7 +43,7 @@ ((> n 1) (re-search-backward andptn) ;Sure to find! (while (re-search-backward "\\\\multicolumn{\\([0-9]+\\)}" bor t) - (setq n (+ n (string-to-int + (setq n (+ n (YaTeX-str2int (buffer-substring (match-beginning 1) (match-end 1))) -1))))) @@ -101,7 +101,7 @@ (forward-list 1)) ((equal elt ?*) ;*{N}{EXP} -> Repeat EXP N times (skip-chars-forward "^{" end) - (setq cols (* (string-to-int + (setq cols (* (YaTeX-str2int (buffer-substring (1+ (point)) (progn (forward-list 1) (1- (point))))) @@ -136,7 +136,7 @@ ((eq type 'alignat) (max 1 - (* 2 (string-to-int + (* 2 (YaTeX-str2int (buffer-substring (point) (progn (up-list -1) (forward-list 1) (1- (point)))))))) @@ -391,6 +391,11 @@ (fset 'YaTeX-enclose-eqnarray 'YaTeX-enclose-equation) (fset 'YaTeX-enclose-eqnarray* 'YaTeX-enclose-equation) +(mapcar (function ;; Add all AMS LaTeX envs + (lambda (sym) + (fset (intern (concat "YaTeX-enclose-" (car sym))) + 'YaTeX-enclose-equation))) + YaTeX-ams-math-begin-alist) (defun YaTeX-enclose-verbatim (beg end)) ;do nothing when enclose verbatim (fset 'YaTeX-enclose-verbatim* 'YaTeX-enclose-verbatim)
--- a/yatexgen.el Thu Jan 05 23:20:34 2017 +0900 +++ b/yatexgen.el Sun Sep 10 21:40:11 2017 +0859 @@ -1,6 +1,6 @@ ;;; yatexgen.el --- YaTeX add-in function generator(rev.5) -;;; (c)1991-1995,1999,2000 by HIROSE Yuuji.[yuuji@yatex.org] +;;; (c)1991-1995,1999,2000,2017 by HIROSE Yuuji.[yuuji@yatex.org] ;;; Last modified Sun Dec 21 14:04:49 2014 on firestorm ;;; $Id$ @@ -582,6 +582,6 @@ (YaTeX-generate-option-type command) (YaTeX-generate-argument-type command - (string-to-int (read-string "How many arguments?: ")))) nil)) + (YaTeX-str2int (read-string "How many arguments?: ")))) nil)) (provide 'yatexgen)
--- a/yatexlib.el Thu Jan 05 23:20:34 2017 +0900 +++ b/yatexlib.el Sun Sep 10 21:40:11 2017 +0859 @@ -1,16 +1,25 @@ ;;; yatexlib.el --- YaTeX and yahtml common libraries -*- coding: sjis -*- ;;; ;;; (c)1994-2017 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Thu Jan 5 17:46:13 2017 on firestorm +;;; Last modified Sun Sep 10 21:16:11 2017 on firestorm ;;; $Id$ ;;; Code: + +;; High-precedence compatible function +(fset 'YaTeX-str2int + (if (fboundp 'string-to-number) + (function + (lambda (string &optional base) + (ceiling (string-to-number string base)))) + 'string-to-int)) + ;; General variables (defvar YaTeX-dos (memq system-type '(ms-dos windows-nt OS/2))) (defvar YaTeX-macos (memq system-type '(darwin))) -(defvar YaTeX-emacs-19 (>= (string-to-int emacs-version) 19)) -(defvar YaTeX-emacs-20 (>= (string-to-int emacs-version) 20)) -(defvar YaTeX-emacs-21 (>= (string-to-int emacs-version) 21)) +(defvar YaTeX-emacs-19 (>= (YaTeX-str2int emacs-version) 19)) +(defvar YaTeX-emacs-20 (>= (YaTeX-str2int emacs-version) 20)) +(defvar YaTeX-emacs-21 (>= (YaTeX-str2int emacs-version) 21)) (defvar YaTeX-user-completion-table (if YaTeX-dos "~/_yatexrc" "~/.yatexrc") "*Default filename in which user completion table is saved.") @@ -559,7 +568,7 @@ (if (numberp height) (+ height 2) (/ (* (YaTeX-screen-height) - (string-to-int height)) + (YaTeX-str2int height)) 100))) (- (YaTeX-screen-height) window-min-height 1)) window-min-height)))) @@ -1037,7 +1046,7 @@ (cons env m0))) ;else, return meaningful values (store-match-data md))))))) -(defun YaTeX-goto-corresponding-environment (&optional allow-mismatch noerr) +(defun YaTeX-goto-corresponding-environment (&optional allow-mismatch noerr bg) "Go to corresponding begin/end enclosure. Optional argument ALLOW-MISMATCH allows mismatch open/clese. Use this for \left(, \right). @@ -1049,14 +1058,14 @@ (m1 (match-beginning 1)) ;environment in \begin{} (m2 (match-beginning 2)) ;environment in \end{} (m3 (match-beginning 3))) ;environment in \[ \] \( \) - ;(setq env (regexp-quote (buffer-substring p (match-beginning 0)))) + ;(setq env (regexp-quote (buffer-substring p (match-beginning 0)))) (if (cond (m1 ;if begin{xxx} (setq env (if allow-mismatch YaTeX-struct-name-regexp (regexp-quote (buffer-substring m1 (match-end 1))))) - ; (setq regexp (concat "\\(\\\\end{" env "}\\)\\|" - ; "\\(\\\\begin{" env "}\\)")) + ; (setq regexp (concat "\\(\\\\end{" env "}\\)\\|" + ; "\\(\\\\begin{" env "}\\)")) (setq regexp (concat "\\(" @@ -1071,8 +1080,8 @@ (setq env (if allow-mismatch YaTeX-struct-name-regexp (regexp-quote (buffer-substring m2 (match-end 2))))) - ; (setq regexp (concat "\\(\\\\begin{" env "}\\)\\|" - ; "\\(\\\\end{" env "}\\)")) + ; (setq regexp (concat "\\(\\\\begin{" env "}\\)\\|" + ; "\\(\\\\end{" env "}\\)")) (setq regexp (concat "\\(" @@ -1110,7 +1119,7 @@ (funcall (if noerr 'message 'error) "Corresponding environment `%s' not found." env) - (sit-for 1) + (or bg (sit-for 1)) nil)))))) (defun YaTeX-end-environment () @@ -1657,6 +1666,37 @@ (/ (nth 2 before) mil)))))) ;;; +;; Moved from comment.el +;;; +(defun YaTeX-comment-region-sub (string &optional beg end once) + "Insert STRING at the beginning of every line between BEG and END." + (if (not (stringp string)) (setq string YaTeX-comment-prefix)) + (let ((b (or beg (region-beginning))) (e (or end (region-end)))) + (save-excursion + (goto-char (max b e)) + (if (bolp) + (forward-line -1)) + (save-restriction + (narrow-to-region (min b e) (point)) + (goto-char (point-min)) + (message "%s" string) + (while (re-search-forward "^" nil t) + (insert string)))))) + +(defun YaTeX-uncomment-region-sub (string &optional beg end once) + "Delete STRING from the beginning of every line between BEG and END. +BEG and END are optional. If omitted, active region used. +Non-nil for optional 4th argument ONCE withholds from removing +successive comment chars at the beggining of lines." + (save-excursion + (save-restriction + (narrow-to-region (or beg (region-beginning)) (or end (region-end))) + (goto-char (point-min)) + (while (re-search-forward (concat "^" string) nil t) + (replace-match "") + (if once (end-of-line)))))) + +;;; ;; Functions for the Installation time ;;; @@ -1694,9 +1734,3 @@ (kill-emacs)))) (provide 'yatexlib) -; Local variables: -; fill-prefix: ";;; " -; paragraph-start: "^$\\| \\|;;;$" -; paragraph-separate: "^$\\| \\|;;;$" -; coding: sjis -; End:
--- a/yatexmth.el Thu Jan 05 23:20:34 2017 +0900 +++ b/yatexmth.el Sun Sep 10 21:40:11 2017 +0859 @@ -1,7 +1,7 @@ ;;; yatexmth.el --- YaTeX math-mode-specific functions -*- coding: sjis -*- ;;; ;;; (c)1993-2017 by HIROSE Yuuji [yuuji@yatex.org] -;;; Last modified Thu Jan 5 17:46:22 2017 on firestorm +;;; Last modified Tue May 23 11:41:17 2017 on firestorm ;;; $Id$ ;;; Commentary: @@ -321,6 +321,7 @@ ("mi" "mathit" "\\mathit{}") ("mr" "mathrm" "\\mathrm{}") ("mb" "mathbf" "\\mathbf{}") + ("mB" "mathbb" "\\mathbb{}") ("mt" "mathtt" "\\mathtt{}") ("ms" "mathsf" "\\mathsf{}") ("mc" "mathcal" "\\mathcal{}") @@ -346,53 +347,64 @@ ;;) (defvar YaTeX-greek-key-alist-default - '( - ("a" "alpha" ("a" "α")) - ("b" "beta" ("|>\n|>\n|" "β")) - ("g" "gamma" ("~r" "γ")) - ("G" "Gamma" ("|~" "Γ")) - ("d" "delta" ("<~\n<>" "δ")) - ("D" "Delta" ("/\\\n~~" "Δ")) - ("e" "epsilon" "<\n<~") - ("e-" "varepsilon" ("(\n(~" "ε")) - ("z" "zeta" ("(~\n >" "ζ")) - ("et" "eta" ("n\n/" "η")) - ("th" "theta" ("8" "θ")) - ("Th" "Theta" ("(8)" "Θ")) - ("th-" "vartheta" ("-8" "-θ")) - ("i" "iota" ("i\n\\_/" "ι")) - ("k" "kappa" ("k" "κ")) - ("l" "lambda" ("\\n/\\" "λ")) - ("L" "Lambda" ("/\\" "Λ")) - ("m" "mu" (" u_\n/" "μ")) - ("n" "nu" ("|/" "ν")) - ("x" "xi" ("E\n >" "ξ")) - ("X" "Xi" ("---\n -\n---" "Ξ")) - ("p" "pi" ("__\n)(" "π")) - ("P" "Pi" ("__\n||" "Π")) - ("p-" "varpi" ("_\nw" "__\nω")) - ("r" "rho" ("/O" "ρ")) - ("r-" "varrho" ("/O\n~~" "ρ\n~~")) - ("s" "sigma" ("o~" "σ")) - ("S" "Sigma" ("\\-+\n >\n/-+" "Σ")) - ("s-" "varsigma" "(~~ \n>") - ("t" "tau" ("__\n(" "τ")) - ("u" "upsilon" ("~v" "υ")) - ("y" "upsilon" ("~v" "υ")) - ("U" "Upsilon" ("~Y~" "Υ")) - ("Y" "Upsilon" ("~Y~" "Υ")) - ("ph" "phi" (" /\n(/)\n/" "φ")) - ("Ph" "Phi" (" _\n(|)\n ~" "Φ")) - ("ph-" "varphi" "\\O\n|") - ("c" "chi" ("x" "χ")) - ("ps" "psi" ("\\|/\\n |" "ψ")) - ("Ps" "Psi" (" ~\n\\|/\\n |" "Ψ")) - ("o" "omega" ("w" "ω")) - ("w" "omega" ("w" "ω")) - ("O" "Omega" ("(~)\n~ ~" "Ω")) - ("W" "Omega" ("(~)\n~ ~" "Ω")) - ("f" "foo") - ) + (append + '(("a" "alpha" ("a" "α")) + ("b" "beta" ("|>\n|>\n|" "β")) + ("g" "gamma" ("~r" "γ")) + ("G" "Gamma" ("|~" "Γ")) + ("d" "delta" ("<~\n<>" "δ")) + ("D" "Delta" ("/\\\n~~" "Δ")) + ("e" "epsilon" "<\n<~") + ("e-" "varepsilon" ("(\n(~" "_ε")) + ("z" "zeta" ("(~\n >" "ζ")) + ("et" "eta" ("n\n/" "η")) + ("th" "theta" ("8" "θ")) + ("Th" "Theta" ("(8)" "Θ")) + ("th-" "vartheta" ("-8" "_θ")) + ("i" "iota" ("i\n\\_/" "ι")) + ("k" "kappa" ("k" "κ")) + ("l" "lambda" ("\\n/\\" "λ")) + ("L" "Lambda" ("/\\" "Λ")) + ("m" "mu" (" u_\n/" "μ")) + ("n" "nu" ("|/" "ν")) + ("x" "xi" ("E\n >" "ξ")) + ("X" "Xi" ("---\n -\n---" "Ξ")) + ("p" "pi" ("__\n)(" "π")) + ("P" "Pi" ("__\n||" "Π")) + ("p-" "varpi" ("__\n/(" "_π")) + ("r" "rho" ("/O" "ρ")) + ("r-" "varrho" ("/O\n~~" "ρ\n~~")) + ("s" "sigma" ("o~" "σ")) + ("S" "Sigma" ("\\-+\n >\n/-+" "Σ")) + ("s-" "varsigma" "/~~ \n /") + ("t" "tau" ("__\n(" "τ")) + ("u" "upsilon" ("~v" "υ")) + ("y" "upsilon" ("~v" "υ")) + ("U" "Upsilon" ("~Y~" "Υ")) + ("Y" "Upsilon" ("~Y~" "Υ")) + ("ph" "phi" (" /\n(/)\n/" "φ")) + ("Ph" "Phi" (" _\n(|)\n ~" "Φ")) + ("ph-" "varphi" "\\O\n|") + ("c" "chi" ("x" "χ")) + ("ps" "psi" ("\\|/\\n |" "ψ")) + ("Ps" "Psi" (" ~\n\\|/\\n |" "Ψ")) + ("o" "omega" ("w" "ω")) + ("w" "omega" ("w" "ω")) + ("O" "Omega" ("(~)\n~ ~" "Ω")) + ("W" "Omega" ("(~)\n~ ~" "Ω")) + ("f" "foo")) + (if YaTeX-use-AMS-LaTeX + '( + ("G-" "varGamma" ("/~" "_Γ")) + ("D-" "varDelta" ("/|\n~~" "_Δ")) + ("Th-" "varTheta" ("/8/" "_Θ")) + ("L-" "varLambda" ("/|" "_Λ")) + ("X-" "varXi" (" --\n -\n-- " "_Ξ")) + ("S-" "varSigma" (" \\-+\n >\n/-+" "_Σ")) + ("U-" "varUpsilon" ("~~Y~" "_Υ")) + ("Ph-" "varPhi" (" _\n(|)\n~" "_Φ")) + ("Ps-" "varPsi" (" ~\n\\//\\n /" "Ψ")) + ("O-" "varOmega" ("/~/\n~ ~" "_Ω"))))) "Default LaTeX-math-command alist.") (defvar YaTeX-greek-key-alist-private nil @@ -522,7 +534,8 @@ ;; "equation*" "cases" "flalign" "flalign*" ;; "alignat*" "xalignat" "xalignat*" "xxalignat" "xxalignat*" YaTeX-math-begin-list - ))) + ) + YaTeX-math-other-env-list)) (let*((p (point)) (nest 0) me0 r firstp dollar (delim (concat YaTeX-sectioning-regexp "\\|^$\\|^\C-l")) (boundary
--- a/yatexpkg.el Thu Jan 05 23:20:34 2017 +0900 +++ b/yatexpkg.el Sun Sep 10 21:40:11 2017 +0859 @@ -1,7 +1,7 @@ ;;; yatexpkg.el --- YaTeX package manager -*- coding: sjis -*- ;;; ;;; (c)2003-2017 by HIROSE, Yuuji [yuuji@yatex.org] -;;; Last modified Thu Jan 5 17:46:30 2017 on firestorm +;;; Last modified Tue May 23 11:33:17 2017 on firestorm ;;; $Id$ ;;; Code: @@ -34,7 +34,10 @@ (section "tag" "tag*")) ("amssymb" (maketitle "leqq" "geqq" "mathbb" "mathfrak" "fallingdotseq" "therefore" "because" + "varDelta" "varTheta" "varLambda" "varXi" "varPi" + "varSigma" "varUpsilon" "varPhi" "varPsi" "varOmega" "lll" "ggg")) ;very few. Please tell us! + ("mathrsfs" (section "mathscr")) ("graphicx" (section "includegraphics" "rotatebox" "scalebox" "resizebox" "reflectbox") (option . YaTeX-package-graphics-driver-alist)) @@ -52,6 +55,7 @@ ("labelcpageref" (same-as . "cref")) ("wrapfig" (env "wrapfigure" "wraptable")) ("setspace" (env "spacing") (section "setstretch")) + ("cases" (env "numcases" "subnumcases")) ) "Default package vs. macro list. Alists contains '(PACKAGENAME . MACROLIST)
--- a/yatexprc.el Thu Jan 05 23:20:34 2017 +0900 +++ b/yatexprc.el Sun Sep 10 21:40:11 2017 +0859 @@ -1,7 +1,7 @@ ;;; yatexprc.el --- YaTeX process handler -*- coding: sjis -*- ;;; ;;; (c)1993-2017 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Thu Jan 5 17:46:36 2017 on firestorm +;;; Last modified Sun Feb 26 11:33:27 2017 on firestorm ;;; $Id$ ;;; Code: @@ -1113,7 +1113,7 @@ t) ;for YaTeX-goto-corresponding-* nil))) - (defun YaTeX-set-virtual-error-position (file-sym line-sym) +(defun YaTeX-set-virtual-error-position (file-sym line-sym) "Replace the value of FILE-SYM, LINE-SYM by virtual error position." (cond ((and (get 'dvi2-command 'region) @@ -1131,9 +1131,14 @@ (interactive) (let ((cur-buf (save-excursion (YaTeX-visit-main t) (buffer-name))) (cur-win (selected-window)) + tsb-frame-selwin b0 bound errorp error-line typeset-win error-buffer error-win) (if (null (get-buffer YaTeX-typeset-buffer)) (error "There is no typesetting buffer.")) + (and (fboundp 'selected-frame) + (setq typeset-win (get-buffer-window YaTeX-typeset-buffer t)) + (setq tsb-frame-selwin (frame-selected-window typeset-win))) + (YaTeX-showup-buffer YaTeX-typeset-buffer nil t) (if (and (markerp YaTeX-typeset-marker) (eq (marker-buffer YaTeX-typeset-marker) (current-buffer))) @@ -1149,7 +1154,7 @@ (goto-char (setq b0 (match-beginning 0))) (skip-chars-forward "^0-9" (match-end 0)) (setq error-line - (string-to-int + (YaTeX-str2int (buffer-substring (point) (progn (skip-chars-forward "0-9" (match-end 0)) (point)))) @@ -1157,9 +1162,23 @@ (if (or (null error-line) (equal 0 error-line)) (error "Can't detect error position.")) (YaTeX-set-virtual-error-position 'error-buffer 'error-line) + + (select-window typeset-win) + (skip-chars-backward "0-9") + (recenter (/ (window-height) 2)) + (sit-for 1) + (goto-char b0) + (and tsb-frame-selwin (select-window tsb-frame-selwin)) ;restore selwin + (setq error-win (get-buffer-window error-buffer)) (select-window cur-win) (cond + (t (goto-buffer-window error-buffer) + (if (fboundp 'raise-frame) + (let ((edit-frame (window-frame (selected-window)))) + (raise-frame edit-frame) + (select-frame edit-frame))) + ) (error-win (select-window error-win)) ((eq (get-lru-window) typeset-win) (YaTeX-switch-to-buffer error-buffer)) @@ -1170,11 +1189,6 @@ (message "LaTeX %s in `%s' on line: %d." (if errorp "error" "warning") error-buffer error-line) - (select-window typeset-win) - (skip-chars-backward "0-9") - (recenter (/ (window-height) 2)) - (sit-for 1) - (goto-char b0) (select-window error-win))) (defun YaTeX-jump-error-line () @@ -1189,7 +1203,7 @@ (if (eobp) (insert (this-command-keys)) (error "No line number expression.")) (goto-char (match-beginning 0)) - (setq error-line (string-to-int + (setq error-line (YaTeX-str2int (buffer-substring (match-beginning 1) (match-end 1))) error-file (expand-file-name (YaTeX-get-error-file YaTeX-current-TeX-buffer))) @@ -1251,8 +1265,11 @@ (setq s (buffer-substring (progn (forward-char 1) (point)) - (progn (skip-chars-forward "^ \n" (point-end-of-line)) - (point)))) + (if (re-search-forward + "\\.\\(tex\\|sty\\|ltx\\)\\>" nil (point-end-of-line)) + (match-end 0) + (skip-chars-forward "^ \n" (point-end-of-line)) + (point)))) (if (string= "" s) default s)))) (defun YaTeX-put-nonstopmode ()
--- a/yatexsec.el Thu Jan 05 23:20:34 2017 +0900 +++ b/yatexsec.el Sun Sep 10 21:40:11 2017 +0859 @@ -1,6 +1,6 @@ ;;; yatexsec.el --- YaTeX sectioning browser ;;; -;;; (c) 1994-2013 by HIROSE Yuuji [yuuji@yatex.org] +;;; (c) 1994-2017 by HIROSE Yuuji [yuuji@yatex.org] ;;; Last modified Sun Dec 21 14:16:35 2014 on firestorm ;;; $Id$ @@ -134,7 +134,7 @@ (and ln (string< "" ln) (progn (goto-char (point-min)) - (forward-line (max 0 (- (string-to-int ln) 2))) + (forward-line (max 0 (- (YaTeX-str2int ln) 2))) (and (search-forward ptn nil t) (goto-char (match-beginning 0))))) @@ -345,7 +345,7 @@ (set-buffer secbuf) (goto-char (point-max)) (while (re-search-backward pattern nil t) - (if (< ln (string-to-int (YaTeX-match-string 1))) nil + (if (< ln (YaTeX-str2int (YaTeX-match-string 1))) nil (beginning-of-line) (search-forward YaTeX-ec) (looking-at YaTeX-TeX-token-regexp)
