Mercurial > hgrepos > hgweb.cgi > yatex
changeset 208:33c8875f52f9 yatex-1.75
Merged changes to 1.75
| author | yuuji@gentei.org |
|---|---|
| date | Thu, 12 Jan 2012 12:26:35 +0900 |
| parents | 127a36f4cd6a (current diff) cb1906082153 (diff) |
| children | 5d8f03ba4285 |
| files | |
| diffstat | 28 files changed, 2169 insertions(+), 1005 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/.hgignore Thu Jan 12 12:26:35 2012 +0900 @@ -0,0 +1,10 @@ +syntax: glob +*,v +RCS +CVS +.cvsignore +[._]win* +__emacs +docs/* +*.swp +trashbox
--- a/.hgtags Mon Sep 28 12:48:28 2009 +0900 +++ b/.hgtags Thu Jan 12 12:26:35 2012 +0900 @@ -1,3 +1,4 @@ 73cba5ddd1114214308f400a1550f64210f15068 v0 ce2deaceb818dad84bb6a06079cceddeca2f3ef7 yatex-1.74 801593454c59be43ddc14f725c647ab379b44c32 start-branch-for-1.75 +6be1692f81cd35d0ea6022840c9f7e28af6c8e66 start-for-1.75
--- a/docs/qanda Mon Sep 28 12:48:28 2009 +0900 +++ b/docs/qanda Thu Jan 12 12:26:35 2012 +0900 @@ -344,8 +344,8 @@ └──────────────┘ てな具合になるわけですよ。おおかちょええ。さて、小文字program環 - 境のマクロ定義を良く見ると環境に渡した foo.c はそのまま - \label{#1} でラベルとして自動的に打たれることになる。あ、pLaTeX + 境のマクロ定義を良く見ると環境に渡した foo.c はそのまま自動的に + \label{#1} でラベルとして打たれることになります。あ、pLaTeX のラベルは日本語もOKよ。で、その暗黙のうちに打たれたラベル名を野 鳥に教えるというのがスマートなやり方です。これを定義するのが変数 YaTeX::ref-labeling-regexp-alist-private なり。これには @@ -682,9 +682,9 @@ のようにメイルを送れば加入できます。手続きは全て自動で行われ、登 録が完了すると確認とともに、参加/休止/脱会等の制御コマンドの利用 - 方法が返送されます。是非参加して一緒に野鳥/雷鳥/白鳥/飛鳥を育て - てください。なお、自己紹介の文が無い場合一見加入したように見えま - すが、自動的に登録解除しますので御注意下さい。 + 方法が返送されます。是非参加して一緒に野鳥/雷鳥/白鳥/飛鳥/花鳥を + 育ててください。なお、自己紹介の文が無い場合一見加入したように見 + えますが、自動的に登録解除しますので御注意下さい。 ・野鳥の最新情報は? @@ -696,6 +696,26 @@ があるので、current版の利用はとくに「デバッグに協力する」という 心構えでの利用をお願いします。 + yatex-currentは全ファイルを毎回取得する必要があるので非効率です。 + YaTeXのソースコードのMercurialリポジトリを利用し、効率的かつ安全 + に更新を行なって下さい。Mercurialをインストール後、以下のように + して開発版に追随します。 + + hg clone http://www.yatex.org:/hgrepos/yatex + + で、リポジトリ全体を取得します。開発ブランチは dev なので + + cd yatex + hg up -C dev + + して切り替えます(リリース用ブランチは default)。以後は、同ディレ + クトリで定期的に + + hg pull -uv + + すれば更新のみを取得します。このディレクトリをEmacsの load-path + に加えてしまってもよいでしょう。 + ・とにかくわかりませーん! まず質問の前に yatex-current(上述) を試してみて下さい。既に直面
--- a/docs/qanda.eng Mon Sep 28 12:48:28 2009 +0900 +++ b/docs/qanda.eng Thu Jan 12 12:26:35 2012 +0900 @@ -393,6 +393,22 @@ errors. The author cannot respond to your query about yatex-current. + 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 + cd yatex + hg up -C dev + + Then, getting all updates by `hg pull'. + + hg pull -uv + + Okay to set load-path of yatex to local copy of repository. + Two branch names are mostly in use. The `default' branch is for + release versions, the `dev' branch is for development. + + *Help, help HELP!! Ways of getting answers in fastest order.
--- a/docs/yahtmle Mon Sep 28 12:48:28 2009 +0900 +++ b/docs/yahtmle Thu Jan 12 12:26:35 2012 +0900 @@ -1,7 +1,8 @@ Info file: yahtmle, -*-Text-*- produced by `texinfo-format-buffer' from file `yahtmle.tex' -using `texinfmt.el' version 2.32 of 19 November 1993. +using `texinfmt.el' version 2.38 of 3 July 1998. + @@ -22,6 +23,7 @@ * Copying:: Copyright * Concept Index:: Index + File: yahtmle, Node: Intro, Next: Installation, Prev: Top, Up: Top @@ -35,6 +37,7 @@ (This Info is still incomplete) + File: yahtmle, Node: Installation, Next: Command Invocation, Prev: Intro, Up: Top @@ -46,6 +49,7 @@ * Setting environments for weblint browsers and image viewers:: * Setting environment variables for WWW pages:: + File: yahtmle, Node: Setting up yahtml, Next: Setting environments for weblint browsers and image viewers, Prev: Installation, Up: Installation @@ -71,6 +75,7 @@ extensions. "yahtml" will be displayed on the mode line if no errors occurred. + File: yahtmle, Node: Setting environments for weblint browsers and image viewers, Next: Setting environment variables for WWW pages, Prev: Setting up yahtml, Up: Installation @@ -89,6 +94,7 @@ `yahtml-kanji-code' ... kanji code for HTML files + File: yahtmle, Node: Setting environment variables for WWW pages, Prev: Setting environments for weblint browsers and image viewers, Up: Installation @@ -100,8 +106,7 @@ ... list of matching path name on file system and URLs `yahtml-directory-index' ... index file displayed when none is given in URL. Usually - `index.html' on NCSA type httpd and `Welcome.html' on - CERN types. + `index.html' on NCSA type httpd and `Welcome.html' on CERN types. Examples for `yahtml-path-url-alist'. If `/home/yuuji/http/' is `http://localhost/~yuuji' at home and `/usr/home/yuuji/www/' is @@ -113,6 +118,7 @@ Any number of additions can be made to this list. + File: yahtmle, Node: Command Invocation, Next: Completion, Prev: Installation, Up: Top @@ -127,6 +133,7 @@ `[prefix] t r' ... Reload current page if browser is already running + File: yahtmle, Node: Completion, Next: Jump, Prev: Command Invocation, Up: Top @@ -174,6 +181,7 @@ for < (<), > (>), & (&), " ("), ' ('), blank ( ) is possible. + File: yahtmle, Node: Jump, Next: Changing and Deleting, Prev: Completion, Up: Top @@ -192,6 +200,7 @@ * `<a href="link.to.somewhere">' -> move cursor to linked target * `<applet code="program">' -> open Java source + File: yahtmle, Node: Changing and Deleting, Next: CSS Support, Prev: Jump, Up: Top @@ -204,6 +213,7 @@ * Changing entities:: * URLencoding of strings within region:: + File: yahtmle, Node: Changing tags in pairs, Next: Changing entities, Prev: Changing and Deleting, Up: Changing and Deleting @@ -222,6 +232,7 @@ * attributes such as `<img src="image.file" alt="photo">' ... change attributes + File: yahtmle, Node: Changing entities, Next: URLencoding of strings within region, Prev: Changing tags in pairs, Up: Changing and Deleting @@ -236,11 +247,12 @@ ... convert char to special entity in marked region `[prefix] :' ... convert special entity to original char in marked region - (reverse of [prefix] ;) + (reverse of [prefix] ;) + -File: yahtmle, Node: URLencoding of strings within region, Prev: Changing entities, Up: Changing and Deleting +File: yahtmle, Node: URLencoding of strings within region, Next: td-enclosure/tr-enclosure, Prev: Changing entities, Up: Changing and Deleting URLencoding of strings within region ==================================== @@ -248,6 +260,32 @@ `[prefix] #' ... encode chars that needs to be URLencoded within region + + +File: yahtmle, Node: td-enclosure/tr-enclosure, Prev: URLencoding of strings within region, Up: Changing and Deleting + +td-enclosure/tr-enclosure +========================= +If you wan to convert series of field into <td>...</td> repetitions for +table element, td-enclosure or tr-enclosure is convenient. + + `[prefix] '} + + ... Enclose each field in a region into <td>...</td>'s. + `[prefix] ]' + + ... Enclose each line in a region into <tr>...</tr>'s, with every +line converted to <td>...</td> repetition. They presume white space as +field separator by default. To change this, enter other delimiting +character for a query. You can convert CSV, for example, into table by +specifying comma(,) as a delimiter. + +If you want to enclose fields with th, call with universal-argument +(`C-u'). Enter `th' to enclose fields with <th>...</th>. The special +answer `thd' means that enclose the only first column with th, and the +rest with td. + + File: yahtmle, Node: CSS Support, Next: Customizations, Prev: Changing and Deleting, Up: Top @@ -259,6 +297,7 @@ * CSS-class completion:: * Reread CSS definition:: + File: yahtmle, Node: CSS-class completion, Next: Reread CSS definition, Prev: CSS Support, Up: CSS Support @@ -281,6 +320,7 @@ class name. If this is bothering, typing `C-j' instead of `RET' (or `C-m') cancels the next prompt to class name completion. + File: yahtmle, Node: Reread CSS definition, Prev: CSS-class completion, Up: CSS Support @@ -289,6 +329,7 @@ If you add some class to your CSS file and you want yahtml to load new definitions, type `M-x yahtml-mode RET' to make yahtml do. + File: yahtmle, Node: Customizations, Next: Copying, Prev: CSS Support, Up: Top @@ -302,6 +343,7 @@ * All customizable variables:: List of customizable variables * Hook variables:: hook variables + File: yahtmle, Node: All customizable variables, Next: Hook variables, Prev: Customizations, Up: Customizations @@ -318,9 +360,9 @@ Browser to view external pages with `[prefix]g'. (netscape) -- Variable: yahtml-kanji-code - Default kanji code. 1=sjis, 2=jis, 3=euc (2) If - AddType "text/html; charset=xxx" .html is written in .htaccess, - this will override yahtml-kanji-code. + Default kanji code. 1=sjis, 2=jis, 3=euc, 4=utf-8 (2) If AddType + "text/html; charset=xxx" .html is written in .htaccess, this will + override yahtml-kanji-code. -- Variable: yahtml-fill-column Columns to auto-fill (72) @@ -410,6 +452,7 @@ -- Variable: yahtml-indentation-boundary Boundary regexp for indentation calculation. (`"^\\s *<h[1-3]>"') + File: yahtmle, Node: Hook variables, Prev: All customizable variables, Up: Customizations @@ -417,6 +460,7 @@ ============== + File: yahtmle, Node: Copying, Next: Concept Index, Prev: Customizations, Up: Top @@ -440,6 +484,7 @@ HIROSE, Yuuji + File: yahtmle, Node: Concept Index, Prev: Copying, Up: Top @@ -457,3 +502,30 @@ + + +Tag table: +Node: Top148 +Node: Intro725 +Node: Installation1123 +Node: Setting up yahtml1404 +Node: Setting environments for weblint browsers and image viewers2195 +Node: Setting environment variables for WWW pages2891 +Node: Command Invocation3862 +Node: Completion4290 +Node: Jump5807 +Node: Changing and Deleting6287 +Node: Changing tags in pairs6538 +Node: Changing entities7033 +Node: URLencoding of strings within region7569 +Node: td-enclosure/tr-enclosure7870 +Node: CSS Support8836 +Node: CSS-class completion9062 +Node: Reread CSS definition9915 +Node: Customizations10190 +Node: All customizable variables10466 +Node: Hook variables14234 +Node: Copying14360 +Node: Concept Index15151 + +End tag table
--- a/docs/yahtmle.tex Mon Sep 28 12:48:28 2009 +0900 +++ b/docs/yahtmle.tex Thu Jan 12 12:26:35 2012 +0900 @@ -5,7 +5,7 @@ @iftex @c @syncodeindex fn cp -@c Last modified Fri Mar 1 16:16:59 2002 on firestorm +@c Last modified Thu Dec 9 16:12:43 2010 on firestorm @syncodeindex vr cp @end iftex @@ -270,7 +270,7 @@ @end table -@node URLencoding of strings within region, , Changing entities, Changing and Deleting +@node URLencoding of strings within region, td-enclosure/tr-enclosure, Changing entities, Changing and Deleting @comment node-name, next, previous, up @section URLencoding of strings within region @@ -279,6 +279,29 @@ @dots{} encode chars that needs to be URLencoded within region @end table +@node td-enclosure/tr-enclosure, , URLencoding of strings within region, Changing and Deleting +@comment node-name, next, previous, up +@section td-enclosure/tr-enclosure +If you wan to convert series of field into <td>...</td> repetitions for +table element, td-enclosure or tr-enclosure is convenient. + +@table @kbd + @item [prefix] } + @dots{} Enclose each field in a region into <td>...</td>'s. + @item [prefix] ] + @dots{} Enclose each line in a region into <tr>...</tr>'s, with + every line converted to <td>...</td> repetition. +@end table +They presume white space as field separator by default. +To change this, enter other delimiting character for a query. +You can convert CSV, for example, into table by specifying +comma(,) as a delimiter. + +If you want to enclose fields with th, call with +universal-argument (@kbd{C-u}). Enter `th' to enclose fields +with <th>...</th>. The special answer `thd' means that +enclose the only first column with th, and the rest with td. + @node CSS Support, Customizations, Changing and Deleting, Top @comment node-name, next, previous, up @chapter CSS(Style Sheets) Support @@ -348,7 +371,7 @@ @end defvar @defvar yahtml-kanji-code -Default kanji code. 1=sjis, 2=jis, 3=euc (2) +Default kanji code. 1=sjis, 2=jis, 3=euc, 4=utf-8 (2) If @quotation AddType "text/html; charset=xxx" .html
--- a/docs/yahtmlj Mon Sep 28 12:48:28 2009 +0900 +++ b/docs/yahtmlj Thu Jan 12 12:26:35 2012 +0900 @@ -1,7 +1,8 @@ Info file: yahtmlj, -*-Text-*- produced by `texinfo-format-buffer' from file `yahtmlj.tex' -using `texinfmt.el' version 2.32 of 19 November 1993. +using `texinfmt.el' version 2.38 of 3 July 1998. + @@ -11,459 +12,531 @@ * Menu: -* Intro:: $B$O$8$a$K(B -* Installation:: $B%$%s%9%H!<%k(B -* Command Invocation:: $B30It%3%^%s%I5/F0(B -* Completion:: $BJd40F~NO(B -* Jump:: $B%+!<%=%k%8%c%s%W(B -* Changing and Deleting:: $BJQ99$H:o=|(B -* CSS Support:: $B%9%?%$%k%7!<%HJd40(B -* Customizations:: $B%+%9%?%^%$%:JQ?t0lMw(B -* Copying:: $B$H$j$"$D$+$$(B -* Concept Index:: $B:w0z(B +* Intro:: $(B$O$8$a$K +(B* Installation:: $(B%$%s%9%H!<%k +(B* Command Invocation:: $(B30It%3%^%s%I5/F0 +(B* Completion:: $(BJd40F~NO +(B* Jump:: $(B%+!<%=%k%8%c%s%W +(B* Changing and Deleting:: $(BJQ99$H:o=| +(B* CSS Support:: $(B%9%?%$%k%7!<%HJd40 +(B* Customizations:: $(B%+%9%?%^%$%:JQ?t0lMw +(B* Copying:: $(B$H$j$"$D$+$$ +(B* Concept Index:: $(B:w0z + -File: yahtmlj, Node: Intro, Next: Installation, Prev: Top, Up: Top +(BFile: yahtmlj, Node: Intro, Next: Installation, Prev: Top, Up: Top -$B$O$8$a$K(B -******** +$(B$O$8$a$K +(B******** -yahtml$B$O(B GNU Emacs $B>e$G(B HTML$BJ8=q$r:n@.$9$k;~$K!"HK;($J(BHTML$B%?%0$NF~NO$rJd40(B -$B5!G=$K$h$C$F%9%`!<%:$K9T$($k$h$&$K$9$k$@$1$G$J$/!"(Bweblint$B$J$I$N9=J8%A%'%C(B -$B%/%W%m%0%i%`!"%+!<%=%k0LCV$N(BURL$B$d%U%!%$%kL>$K0MB8$7$?%V%i%&%6(B/$B%$%a!<%8%t%e!<(B -$B%"$N5/F0$J$I$r(B Emacs $BJT=82hLLCf$+$i9T$($k$h$&$K$9$k%Q%C%1!<%8$G$9!#(B +yahtml$(B$O (BGNU Emacs $(B>e$G (BHTML$(BJ8=q$r:n@.$9$k;~$K!"HK;($J(BHTML$(B%?%0$NF~NO$rJd40 +5!G=$K$h$C$F%9%`!<%:$K9T$($k$h$&$K$9$k$@$1$G$J$/!"(Bweblint$(B$J$I$N9=J8%A%'%C +%/%W%m%0%i%`!"%+!<%=%k0LCV$N(BURL$(B$d%U%!%$%kL>$K0MB8$7$?%V%i%&%6(B/$(B%$%a!<%8%t%e!< +%"$N5/F0$J$I$r (BEmacs $(BJT=82hLLCf$+$i9T$($k$h$&$K$9$k%Q%C%1!<%8$G$9!# -($B$3$N(BInfo$B$OL$40@.$G$9(B(__)$B!D(B) +(B($(B$3$N(BInfo$(B$OL$40@.$G$9(B(__)$(B!D(B) + File: yahtmlj, Node: Installation, Next: Command Invocation, Prev: Intro, Up: Top -$B%$%s%9%H!<%k(B -************ +$(B%$%s%9%H!<%k +(B************ * Menu: -* yahtml$B5/F0$N$?$a$N@_Dj(B:: -* lint$B%W%m%0%i%`(B/$B%V%i%&%6(B/$B%$%a!<%8%t%e!<%"4D6-Ey$N@_Dj(B:: -* WWW$B%Z!<%84D6-MQJQ?t$N@_Dj(B:: +* yahtml$(B5/F0$N$?$a$N@_Dj(B:: +* lint$(B%W%m%0%i%`(B/$(B%V%i%&%6(B/$(B%$%a!<%8%t%e!<%"4D6-Ey$N@_Dj(B:: +* WWW$(B%Z!<%84D6-MQJQ?t$N@_Dj(B:: + -File: yahtmlj, Node: yahtml$B5/F0$N$?$a$N@_Dj(B, Next: lint$B%W%m%0%i%`(B/$B%V%i%&%6(B/$B%$%a!<%8%t%e!<%"4D6-Ey$N@_Dj(B, Prev: Installation, Up: Installation +File: yahtmlj, Node: yahtml$(B5/F0$N$?$a$N@_Dj(B, Next: lint$(B%W%m%0%i%`(B/$(B%V%i%&%6(B/$(B%$%a!<%8%t%e!<%"4D6-Ey$N@_Dj(B, Prev: Installation, Up: Installation -yahtml$B5/F0$N$?$a$N@_Dj(B -====================== +yahtml$(B5/F0$N$?$a$N@_Dj +(B====================== -`~/.emacs'$B$K2<$N(B2$B9`L\$r2C$($^$9!#(B +`~/.emacs'$(B$K2<$N(B2$(B9`L\$r2C$($^$9!# - (setq auto-mode-alist + (B(setq auto-mode-alist (cons (cons "\\.html$" 'yahtml-mode) auto-mode-alist)) (autoload 'yahtml-mode "yahtml" "Yet Another HTML mode" t) -$B<!$K(Byahtml$B$KI,MW$J%U%!%$%k(B(`yahtml.el', `yatexlib.el', `yatexprc.el') $B$rCV(B -$B$/%G%#%l%/%H%j$r(B load-path $B$K2C$($^$9!#$?$H$($P!"(B `~/src/emacs/yahtml'$B$KCV(B -$B$/$N$G$"$l$P!"(B +$(B<!$K(Byahtml$(B$KI,MW$J%U%!%$%k(B(`yahtml.el', `yatexlib.el', `yatexprc.el') $(B$rCV +$/%G%#%l%/%H%j$r (Bload-path $(B$K2C$($^$9!#$?$H$($P!" (B`~/src/emacs/yahtml'$(B$KCV +$/$N$G$"$l$P!" - (setq load-path (cons (expand-file-name "~/src/emacs/yahtml") load-path)) + (B(setq load-path (cons (expand-file-name "~/src/emacs/yahtml") load-path)) -$B$J$I$H$7$^$9!#(B +$(B$J$I$H$7$^$9!# - $B0J>e$N@_Dj$K$h$j!"3HD%;R$,(B .html $B$G$"$k%U%!%$%k$rJT=8$9$k$H<+F0E*$K(B -yahtml $B$,%m!<%I$5$l$^$9!#(Byahtml$B$,@5>o$K5/F0$G$-$?$H$-$O%b!<%I%i%$%s$NI=<((B -$B$,!V(Byahtml$B!W$KJQ$o$j$^$9!#(B + 0J>e$N@_Dj$K$h$j!"3HD%;R$, (B.html $(B$G$"$k%U%!%$%k$rJT=8$9$k$H<+F0E*$K +(Byahtml $(B$,%m!<%I$5$l$^$9!#(Byahtml$(B$,@5>o$K5/F0$G$-$?$H$-$O%b!<%I%i%$%s$NI=<( +$,!V(Byahtml$(B!W$KJQ$o$j$^$9!# + -File: yahtmlj, Node: lint$B%W%m%0%i%`(B/$B%V%i%&%6(B/$B%$%a!<%8%t%e!<%"4D6-Ey$N@_Dj(B, Next: WWW$B%Z!<%84D6-MQJQ?t$N@_Dj(B, Prev: yahtml$B5/F0$N$?$a$N@_Dj(B, Up: Installation +(BFile: yahtmlj, Node: lint$(B%W%m%0%i%`(B/$(B%V%i%&%6(B/$(B%$%a!<%8%t%e!<%"4D6-Ey$N@_Dj(B, Next: WWW$(B%Z!<%84D6-MQJQ?t$N@_Dj(B, Prev: yahtml$(B5/F0$N$?$a$N@_Dj(B, Up: Installation -lint$B%W%m%0%i%`(B/$B%V%i%&%6(B/$B%$%a!<%8%t%e!<%"4D6-Ey$N@_Dj(B -==================================================== +lint$(B%W%m%0%i%`(B/$(B%V%i%&%6(B/$(B%$%a!<%8%t%e!<%"4D6-Ey$N@_Dj +(B==================================================== -$BMxMQ$9$k30It%W%m%0%i%`$J$I$K4X$9$k0J2<$NJQ?t$r3NG'$7!"I,MW$J$i@5$7$$CM$KJQ(B -$B99$7$^$9(B($B3g8LFb$O%G%U%)%k%HCM(B)$B!#(B -`yahtml-www-browser' - ... $B5/F0$9$k%V%i%&%6$N%3%^%s%IL>(B(netscape) +$(BMxMQ$9$k30It%W%m%0%i%`$J$I$K4X$9$k0J2<$NJQ?t$r3NG'$7!"I,MW$J$i@5$7$$CM$KJQ +99$7$^$9(B($(B3g8LFb$O%G%U%)%k%HCM(B)$(B!# +(B`yahtml-www-browser' + ... $(B5/F0$9$k%V%i%&%6$N%3%^%s%IL>(B(netscape) `yahtml-image-viewer' - ... $B5/F0$9$k2hA|%S%e!<%"$N%3%^%s%IL>(B(xv) + ... $(B5/F0$9$k2hA|%S%e!<%"$N%3%^%s%IL>(B(xv) `yahtml-lint-program' - ... $B9=J8%A%'%C%/%W%m%0%i%`$N%3%^%s%IL>(B(jweblint) + ... $(B9=J8%A%'%C%/%W%m%0%i%`$N%3%^%s%IL>(B(jweblint) `yahtml-kanji-code' - ... html$B%U%!%$%k$N4A;z%3!<%I(B + ... html$(B%U%!%$%k$N4A;z%3!<%I + -File: yahtmlj, Node: WWW$B%Z!<%84D6-MQJQ?t$N@_Dj(B, Prev: lint$B%W%m%0%i%`(B/$B%V%i%&%6(B/$B%$%a!<%8%t%e!<%"4D6-Ey$N@_Dj(B, Up: Installation +(BFile: yahtmlj, Node: WWW$(B%Z!<%84D6-MQJQ?t$N@_Dj(B, Prev: lint$(B%W%m%0%i%`(B/$(B%V%i%&%6(B/$(B%$%a!<%8%t%e!<%"4D6-Ey$N@_Dj(B, Up: Installation -WWW$B%Z!<%84D6-MQJQ?t$N@_Dj(B -========================= +WWW$(B%Z!<%84D6-MQJQ?t$N@_Dj +(B========================= -$B%[!<%`%Z!<%8$H$J$k%U%!%$%k$,B8:_$9$k(BPATH$BL>$K4X$9$kJQ?t$r@_Dj$7$^$9!#(B -`yahtml-path-url-alist' - ... $B%U%!%$%k%7%9%F%`>e$N(BPATH$BL>$H!"(BURL$B$NBP1~I=(B -`yahtml-directory-index' - ... URL$B;XDj$G%U%!%$%kL>$r>JN,$7$?$H$-$KI=<($5$l$k%$%s%G%C%/%9(B - $B%U%!%$%kL>(B(NCSA$B7O(Bhttpd$B$J$i(B `index.html', CERN$B7O$J$i(B - `Welcome.html'$B$,0lHLE*(B) +$(B%[!<%`%Z!<%8$H$J$k%U%!%$%k$,B8:_$9$k(BPATH$(BL>$K4X$9$kJQ?t$r@_Dj$7$^$9!# +(B`yahtml-path-url-alist' + ... $(B%U%!%$%k%7%9%F%`>e$N(BPATH$(BL>$H!"(BURL$(B$NBP1~I= +(B`yahtml-directory-index' + ... URL$(B;XDj$G%U%!%$%kL>$r>JN,$7$?$H$-$KI=<($5$l$k%$%s%G%C%/%9 + %U%!%$%kL>(B(NCSA$(B7O(Bhttpd$(B$J$i (B`index.html', CERN$(B7O$J$i(B`Welcome.html'$(B$,0l + HLE*(B) -$BJQ?t(B `yahtml-path-url-alist' $B$N@_DjNc$r<($7$^$9!#Nc$($P!"<+Bp$G$O!"(B -`/home/yuuji/http/' $B$,(B `http://localhost/~yuuji' $B$G;2>H$G$-!"?&>l$G$O(B -`/usr/home/yuuji/www/' $B$,(B`http://www.keio.ac.jp/~yuuji/' $B$G;2>H$G$-$k$h$&(B -$B$K$J$C$F$$$k>l9g$O0J2<$N$h$&$K@_Dj$7$^$9!#(B +$(BJQ?t (B`yahtml-path-url-alist' $(B$N@_DjNc$r<($7$^$9!#Nc$($P!"<+Bp$G$O!" +(B`/home/yuuji/http/' $(B$, (B`http://localhost/~yuuji' $(B$G;2>H$G$-!"?&>l$G$O +(B`/usr/home/yuuji/www/' $(B$,(B`http://www.keio.ac.jp/~yuuji/' $(B$G;2>H$G$-$k$h$& +$K$J$C$F$$$k>l9g$O0J2<$N$h$&$K@_Dj$7$^$9!# - (setq yahtml-path-url-alist + (B(setq yahtml-path-url-alist '(("/home/yuuj/http" . "http://localhost/~yuuji") ("/usr/home/yuuj/www" . "http://www.keio.ac.jp/~yuuji"))) -$B$3$NBP1~AH$O$$$/$i$G$b@_Dj$9$k$3$H$,$G$-$^$9!#(B +$(B$3$NBP1~AH$O$$$/$i$G$b@_Dj$9$k$3$H$,$G$-$^$9!# + -File: yahtmlj, Node: Command Invocation, Next: Completion, Prev: Installation, Up: Top +(BFile: yahtmlj, Node: Command Invocation, Next: Completion, Prev: Installation, Up: Top -$B30It%3%^%s%I5/F0(B -**************** +$(B30It%3%^%s%I5/F0 +(B**************** -HTML$B%U%!%$%kJT=8$K$+$+$o$k$$$/$D$+$N%3%^%s%I$rB(:B$K8F$V$3$H$,$G$-$^$9!#(B -`[prefix] t j' - ... HTML$B9=J8%A%'%C%+(B(jweblint)$B5/F0(B -`[prefix] t p' - ... $B8=:_$N%Z!<%8$rBP>]$H$7$?%V%i%&%65/F0(B -`[prefix] t r' - ... $B8=:_$N%Z!<%8$,%V%i%&%6$KI=<($5$l$F$$$k$H$-$N(Breload$B;XDj(B +HTML$(B%U%!%$%kJT=8$K$+$+$o$k$$$/$D$+$N%3%^%s%I$rB(:B$K8F$V$3$H$,$G$-$^$9!# +(B`[prefix] t j' + ... HTML$(B9=J8%A%'%C%+(B(jweblint)$(B5/F0 +(B`[prefix] t p' + ... $(B8=:_$N%Z!<%8$rBP>]$H$7$?%V%i%&%65/F0 +(B`[prefix] t r' + ... $(B8=:_$N%Z!<%8$,%V%i%&%6$KI=<($5$l$F$$$k$H$-$N(Breload$(B;XDj + -File: yahtmlj, Node: Completion, Next: Jump, Prev: Command Invocation, Up: Top +(BFile: yahtmlj, Node: Completion, Next: Jump, Prev: Command Invocation, Up: Top -$BJd40F~NO(B -******** +$(BJd40F~NO +(B******** -$B!VLnD;!W$GMxMQ$G$-$k!"!V(Bbegin$B7?Jd40!W!"!V(Bsection$B7?Jd40!W!"!V(Blarge$B7?Jd40!W!"(B -$B!V(Bmaketitle$B7?Jd40!W!"!V%"%/%;%s%HJd40!W$HA4$/F1$8%-!<A`:n$GBP1~$9$k(BHTML$B%?(B -$B%0$NJd40F~NO$,$G$-$^$9!#$=$l$>$l$N7?$NJd40$O=g$K!"!VJ#?t9T$KEO$k%?%0F~NO!W!"(B -$B!V6uMWAG%?%0(B(img$B$J$I(B)$B$NJd40!W!"!V0l9TFb$G$N3+;O(B/$B=*N;%?%0$NF~NO!W!"!V6uMWAG(B -$B6uB0@-%?%0$NF~NO!W!"!VJ8;z;2>HF~NO!W$KBP1~$7$F$$$^$9!#6qBNE*$K$O(B +$(B!VLnD;!W$GMxMQ$G$-$k!"!V(Bbegin$(B7?Jd40!W!"!V(Bsection$(B7?Jd40!W!"!V(Blarge$(B7?Jd40!W!" +!V(Bmaketitle$(B7?Jd40!W!"!V%"%/%;%s%HJd40!W$HA4$/F1$8%-!<A`:n$GBP1~$9$k(BHTML$(B%? +%0$NJd40F~NO$,$G$-$^$9!#$=$l$>$l$N7?$NJd40$O=g$K!"!VJ#?t9T$KEO$k%?%0F~NO!W!" +!V6uMWAG%?%0(B(img$(B$J$I(B)$(B$NJd40!W!"!V0l9TFb$G$N3+;O(B/$(B=*N;%?%0$NF~NO!W!"!V6uMWAG +6uB0@-%?%0$NF~NO!W!"!VJ8;z;2>HF~NO!W$KBP1~$7$F$$$^$9!#6qBNE*$K$O -`[prefix] b ($BLnD;$N(Bbegin$BJd40$KBP1~(B)' +(B`[prefix] b ($(BLnD;$N(Bbegin$(BJd40$KBP1~(B)' ... <ul> </ul> - $B$N$h$&$K3+;O%?%0$H=*N;%?%0$rFs9T$KEO$C$F=q$-$?$$>l9g$NJd40$r;X$7$^$9!#(B - $B$*$b$K%V%m%C%/7?%?%0$,Jd408uJd$K4^$^$l$^$9!#(B + $(B$N$h$&$K3+;O%?%0$H=*N;%?%0$rFs9T$KEO$C$F=q$-$?$$>l9g$NJd40$r;X$7$^$9!# + $*$b$K%V%m%C%/7?%?%0$,Jd408uJd$K4^$^$l$^$9!# -`[prefix] s ($BLnD;$N(Bsection$B7?Jd40$KBP1~(B)' +(B`[prefix] s ($(BLnD;$N(Bsection$(B7?Jd40$KBP1~(B)' ... <img src="foo.gif" alt="photo"> - $B$N$h$&$K=*N;%?%0$r;}$?$:!"$+$DB0@-CM$N$_$G5!G=$r;XDj$9$k%?%0$rJd40$7(B - $B$^$9!#Jd408uJd$H$7$F$O!"(Bimg, input $B$,B8:_$7$^$9!#(B + $(B$N$h$&$K=*N;%?%0$r;}$?$:!"$+$DB0@-CM$N$_$G5!G=$r;XDj$9$k%?%0$rJd40$7 + $^$9!#Jd408uJd$H$7$F$O!"(Bimg, input $(B$,B8:_$7$^$9!# -`[prefix] l ($BLnD;$N(Blarge$B7?Jd40$KBP1~(B)' - ... begin$B7?Jd40$H$[$\F1$8$G$9$,!"(B +(B`[prefix] l ($(BLnD;$N(Blarge$(B7?Jd40$KBP1~(B)' + ... begin$(B7?Jd40$H$[$\F1$8$G$9$,!" - <big> $B!A(B </big> + (B<big> $(B!A (B</big> + + $(B$N$h$&$K0l9TFb$K3+;O(B/$(B=*N;%?%0$rF~$l$?$$$H$-$KMxMQ$7$^$9!# - $B$N$h$&$K0l9TFb$K3+;O(B/$B=*N;%?%0$rF~$l$?$$$H$-$KMxMQ$7$^$9!#(B +(B`[prefix] m ($(BLnD;$N(Bmaketitle$(B7?Jd40$KBP1~(B)' + ... $(BMWAG$bB0@-CM$b;}$?$J$$%?%0$rJd40F~NO$7$^$9!#(B<br> + $(B$J$I$,Jd408uJd$KAjEv$7$^$9!# -`[prefix] m ($BLnD;$N(Bmaketitle$B7?Jd40$KBP1~(B)' - ... $BMWAG$bB0@-CM$b;}$?$J$$%?%0$rJd40F~NO$7$^$9!#(B<br> - $B$J$I$,Jd408uJd$KAjEv$7$^$9!#(B +(B`[prefix] a ($(BLnD;$N%"%/%;%s%HJd40$KBP1~(B)' + ... $(B%(%s%F%#%F%#;2>H$K$h$kJ8;zI=5-$rF~NO$9$k$H$-$KMQ$$$^$9!# + %G%U%)%k%H$G$O (B< (<), > (>), & (&), " ("), ' ('), + $(B%V%i%s%/ (B( ) $(B$NJd40F~NO$,9T$($^$9!# -`[prefix] a ($BLnD;$N%"%/%;%s%HJd40$KBP1~(B)' - ... $B%(%s%F%#%F%#;2>H$K$h$kJ8;zI=5-$rF~NO$9$k$H$-$KMQ$$$^$9!#(B - $B%G%U%)%k%H$G$O(B < (<), > (>), & (&), " ("), ' ('), - $B%V%i%s%/(B ( ) $B$NJd40F~NO$,9T$($^$9!#(B -File: yahtmlj, Node: Jump, Next: Changing and Deleting, Prev: Completion, Up: Top +(BFile: yahtmlj, Node: Jump, Next: Changing and Deleting, Prev: Completion, Up: Top -$B%+!<%=%k%8%c%s%W(B -**************** -$BJ8=qCf$N$$$m$$$m$J>l=j$G(B +$(B%+!<%=%k%8%c%s%W +(B**************** +$(BJ8=qCf$N$$$m$$$m$J>l=j$G + +(B`[prefix] g' + ... $(BBP1~$9$k%*%V%8%'%/%H$K%8%c%s%W -`[prefix] g' - ... $BBP1~$9$k%*%V%8%'%/%H$K%8%c%s%W(B +$r2!$9$3$H$K$h$j!"%+!<%=%k0LCV$N(BHTML$(B9=J8$KBP1~$9$k>l=j$K%8%c%s%W$7$^$9!#BP +1~4X78$,B8:_$9$k$H2r<a$5$l$k%3%^%s%I$K$O0J2<$N$b$N$,$"$j$^$9!# -$B$r2!$9$3$H$K$h$j!"%+!<%=%k0LCV$N(BHTML$B9=J8$KBP1~$9$k>l=j$K%8%c%s%W$7$^$9!#BP(B -$B1~4X78$,B8:_$9$k$H2r<a$5$l$k%3%^%s%I$K$O0J2<$N$b$N$,$"$j$^$9!#(B + (B* `<TAG>' $(B"+"* (B`</TAG>' + * `<img src="$(B2hA|%U%!%$%k(B">' $(B"* BP1~$9$k(Bviewer$(B5/F0 + (B* `<a href="$(B%j%s%/@h(B">' $(B"* %j%s%/@h$X$N%]%$%s%H0\F0 + (B* `<applet code="$(B%W%m%0%i%`(B">' $(B"* (BJava$(B%=!<%9%W%m%0%i%`$X$N0\F0 - * `<TAG>' $B"+"*(B `</TAG>' - * `<img src="$B2hA|%U%!%$%k(B">' $B"*(B $BBP1~$9$k(Bviewer$B5/F0(B - * `<a href="$B%j%s%/@h(B">' $B"*(B $B%j%s%/@h$X$N%]%$%s%H0\F0(B - * `<applet code="$B%W%m%0%i%`(B">' $B"*(B Java$B%=!<%9%W%m%0%i%`$X$N0\F0(B -File: yahtmlj, Node: Changing and Deleting, Next: CSS Support, Prev: Jump, Up: Top +(BFile: yahtmlj, Node: Changing and Deleting, Next: CSS Support, Prev: Jump, Up: Top -$BJQ99(B/$B:o=|(B -********* +$(BJQ99(B/$(B:o=| +(B********* * Menu: -* $BBP%?%0$NJQ99(B:: -* $BJ8;z;2>H$X$NJQ99(B:: -* $B%j%8%g%sFbJ8;z$N(BURLencode:: +* $(BBP%?%0$NJQ99(B:: +* $(BJ8;z;2>H$X$NJQ99(B:: +* $(B%j%8%g%sFbJ8;z$N(BURLencode:: +* td$(B3g$j(B/tr$(B3g$j(B:: + -File: yahtmlj, Node: $BBP%?%0$NJQ99(B, Next: $BJ8;z;2>H$X$NJQ99(B, Prev: Changing and Deleting, Up: Changing and Deleting - -$BBP%?%0$NJQ99(B -============ -$BJ8=qCf$N$$$m$$$m$J>l=j$G(B +File: yahtmlj, Node: $(BBP%?%0$NJQ99(B, Next: $(BJ8;z;2>H$X$NJQ99(B, Prev: Changing and Deleting, Up: Changing and Deleting -`[prefix] c' - ... $BBP1~$9$k%?%0Ey$rJQ99(B - -$B$r2!$9$3$H$K$h$j!"%+!<%=%k0LCV$N(BHTML$B9=J8$K1~$8$?5-=RFbMF$NJQ99$r9T$$$^$9!#(B -$B%+!<%=%k0LCV$HJQ99$9$kFbMF$NBP1~$O0J2<$NDL$j$G$9!#(B +$(BBP%?%0$NJQ99 +(B============ +$(BJ8=qCf$N$$$m$$$m$J>l=j$G - * `<TAG>'$B!A(B`</TAG>' - ... `TAG' $B$NJQ99(B - * `<img src="$B2hA|%U%!%$%k(B" alt="photo">' $B$J$I$NB0@-CM(B - ... $BB0@-CM$NJQ99(B - - -File: yahtmlj, Node: $BJ8;z;2>H$X$NJQ99(B, Next: $B%j%8%g%sFbJ8;z$N(BURLencode, Prev: $BBP%?%0$NJQ99(B, Up: Changing and Deleting +(B`[prefix] c' + ... $(BBP1~$9$k%?%0Ey$rJQ99 -$BJ8;z;2>H$X$NJQ99(B -================ -$BJ8;z$H$7$F$N(B < $B$d(B > $B$rI=8=$9$k$H$-$O!"J8;z;2>H$rMQ$$$F(B< $B$d(B > $B$HI=5-(B -$B$9$kI,MW$,$"$j$^$9$,!"(BHTML$B0J30$N%U%!%$%k$+$i$3$l$i$NJ8;z$r4^$`%F%-%9%H$rD%(B -$B$j9~$s$@>l9g$J$I$K!"$3$l$i$NJ8;z$r0l3g$7$FJ8;z;2>H7A<0$KJQ49$G$-$^$9!#(B +$r2!$9$3$H$K$h$j!"%+!<%=%k0LCV$N(BHTML$(B9=J8$K1~$8$?5-=RFbMF$NJQ99$r9T$$$^$9!# +%+!<%=%k0LCV$HJQ99$9$kFbMF$NBP1~$O0J2<$NDL$j$G$9!# -`[prefix] ;' - ... $B;XDj$7$?NN0h$NJ8;z;2>H$KCV$-49$($k$Y$-J8;z$NCV49(B -`[prefix] :' - ... $B;XDj$7$?NN0h$NJ8;z;2>H$r;2>HJ8;z$=$N$b$N$KCV49(B - ([prefix] ; $B$N5UJQ49(B) + (B* `<TAG>'$(B!A(B`</TAG>' + ... `TAG' $(B$NJQ99 + (B* `<img src="$(B2hA|%U%!%$%k(B" alt="photo">' $(B$J$I$NB0@-CM + (B... $(BB0@-CM$NJQ99 -File: yahtmlj, Node: $B%j%8%g%sFbJ8;z$N(BURLencode, Prev: $BJ8;z;2>H$X$NJQ99(B, Up: Changing and Deleting +(BFile: yahtmlj, Node: $(BJ8;z;2>H$X$NJQ99(B, Prev: $(BBP%?%0$NJQ99(B, Up: Changing and Deleting + +$(BJ8;z;2>H$X$NJQ99 +(B================ +$(BJ8;z$H$7$F$N (B< $(B$d (B> $(B$rI=8=$9$k$H$-$O!"J8;z;2>H$rMQ$$$F(B< $(B$d (B> $(B$HI=5- +$9$kI,MW$,$"$j$^$9$,!"(BHTML$(B0J30$N%U%!%$%k$+$i$3$l$i$NJ8;z$r4^$`%F%-%9%H$rD% +$j9~$s$@>l9g$J$I$K!"$3$l$i$NJ8;z$r0l3g$7$FJ8;z;2>H7A<0$KJQ49$G$-$^$9!# -$B%j%8%g%sFbJ8;z$N(BURLencode +(B`[prefix] ;' + ... $(B;XDj$7$?NN0h$NJ8;z;2>H$KCV$-49$($k$Y$-J8;z$NCV49 +(B`[prefix] :' + ... $(B;XDj$7$?NN0h$NJ8;z;2>H$r;2>HJ8;z$=$N$b$N$KCV49(B([prefix] ; + $(B$N5UJQ49(B) + + + + +File: yahtmlj, Node: $(B%j%8%g%sFbJ8;z$N(BURLencode, Next: td$(B3g$j(B/tr$(B3g$j(B, Prev: $(BJ8;z;2>H$X$NJQ99(B, Up: Changing and Deleting + +$(B%j%8%g%sFbJ8;z$N(BURLencode ========================= [prefix] # - ... $B;XDj$7$?NN0hFb$K(B URLencode $B$9$Y$-J8;z$,$"$l$P$=$l$i$r(B - $B%(%s%3!<%II=5-$KCV49!#(B + ... $(B;XDj$7$?NN0hFb$K (BURLencode $(B$9$Y$-J8;z$,$"$l$P$=$l$i$r%(%s + %3!<%II=5-$KCV49!# + -File: yahtmlj, Node: CSS Support, Next: Customizations, Prev: Changing and Deleting, Up: Top +(BFile: yahtmlj, Node: td$(B3g$j(B/tr$(B3g$j(B, Prev: $(B%j%8%g%sFbJ8;z$N(BURLencode, Up: Changing and Deleting -CSS($B%9%?%$%k%7!<%H(B)$B%5%]!<%H(B -*************************** +td$(B3g$j(B/tr$(B3g$j +(B============= +$(B6uGr6h@Z$j$G=q$$$?I=7A<0$N9T%l%3!<%I$r (B<td> $(B3g$j$NJB$S!$$"$k$$$O$=$l$i$r$5 +$i$K (B<tr> $(B$G3g$C$?9TJB$S$KJQ49$G$-$^$9!# + (B`[prefix] '} + + ... $(B8=:_$N%j%8%g%s$K$"$k%G!<%?$r6uGr6h@Z$j$4$H$K + (B<td>...</td> $(B$G3g$k + (B`[prefix] ]' + + ... $(B8=:_$N%j%8%g%s$K$"$k9T$r>e5-(Btd$(B3g$j$r$[$I$3$7$F$+$i$5$i$K9T$4$H +$K (B<tr>...</tr> $(B$G3g$k%G%U%)%k%H$G$O6uGr6h@Z$j$G$9$,!$$3$l$rJQ$($k$H$-$O +(BDelimiter: $(B$NLd$$9g$o$;$K6h@Z$jJ8;z$r;XDj$7$^$9!#$?$H$($P%+%s%^(B(,) $(B$r;XDj +$9$k$H(BCSV$(B$+$iI=$r:n$k$3$H$,$G$-$^$9!# + +(Btd$(B0J30$NMWAG!$6qBNE*$K$O (Bth $(B$G3g$j$?$$>l9g$O (Buniversal-argument (`C-u') $(B$r +$D$1$F>e5-(B2$(B$D$N%3%^%s%I$r8F$S$^$9!#$I$NMWAG$G3g$k$+$N<ALd$,A}$($k$N$G$=$l +$K (Bth $(B$HF~$l$l$P!$3F%U%#!<%k%I$r (B<th>...</th> $(B$G3g$j$^$9!#$b$7!$Bh(B1$(B%U%#!< +%k%I$N$_ (Bth $(B$G!$;D$j$rA4It (Btd $(B3g$j$K$7$?$$$H$-$O (Bthd $(B$HF~NO$7$F2<$5$$!# + + + +(BFile: yahtmlj, Node: CSS Support, Next: Customizations, Prev: Changing and Deleting, Up: Top + +CSS($(B%9%?%$%k%7!<%H(B)$(B%5%]!<%H +(B*************************** * Menu: * CSS-class completion:: * Reread CSS file:: + File: yahtmlj, Node: CSS-class completion, Next: Reread CSS file, Prev: CSS Support, Up: CSS Support -CSS$B%/%i%9L>Jd40(B -=============== -HTML$B20$O(BCSS(Cascading Style Sheets)$B$N%/%i%9L>$rJd40F~NO$9$k$3$H$,$G$-$^$9!#(B -$B%9%?%$%kDj5A$H$7$F(B +CSS$(B%/%i%9L>Jd40 +(B=============== +HTML$(B20$O(BCSS(Cascading Style Sheets)$(B$N%/%i%9L>$rJd40F~NO$9$k$3$H$,$G$-$^$9!# +%9%?%$%kDj5A$H$7$F - h1.foo, h2.foo { background-color: 0xffffff; } + (Bh1.foo, h2.foo { background-color: 0xffffff; } h1.bar, h2.bar { font-size: 120%; } -$B$N$h$&$J$b$N$,$"$C$?>l9g$K!"(Bh1$B$^$?$O(Bh2$B%?%0$r(B [prefix] b $B$d(B [prefix] l $B$GJd(B -$B40F~NO$7$?>l9g$K!"$=$l$i$KM-8z$J(B class $BL>$G$"$k(B foo, bar $B$r8uJd$H$7$FJd40(B -$BF~NO$9$k$3$H$,2DG=$G$9!#$^$?(B +$(B$N$h$&$J$b$N$,$"$C$?>l9g$K!"(Bh1$(B$^$?$O(Bh2$(B%?%0$r (B[prefix] b $(B$d (B[prefix] l $(B$GJd +40F~NO$7$?>l9g$K!"$=$l$i$KM-8z$J (Bclass $(BL>$G$"$k (Bfoo, bar $(B$r8uJd$H$7$FJd40 +F~NO$9$k$3$H$,2DG=$G$9!#$^$? - .caution { font-size: 120%; background-color: 0xc00000;} + (B.caution { font-size: 120%; background-color: 0xc00000;} -$B$N$h$&$JA4$F$N%(%l%a%s%H$KF/$/(Bclass$B$,Dj5A$5$l$F$$$?>l9g$O!"A4$F$N%?%0$NJd(B -$B40F~NO;~$K(Bclass$B;2>HF~NO$r5a$a$i$l$^$9!#$3$l$,HQ$o$7$$>l9g$O%(%l%a%s%HL>F~(B -$BNO3NDj$N$H$-$K%j%?!<%s%-!<(B($B$^$?$O(BC-m)$B$G$O$J$/!"(BC-j$B$r2!$;$P(Bclass$BJd40F~NO$r(B -$B%-%c%s%;%k$G$-$^$9!#$?$H$($P(B +$(B$N$h$&$JA4$F$N%(%l%a%s%H$KF/$/(Bclass$(B$,Dj5A$5$l$F$$$?>l9g$O!"A4$F$N%?%0$NJd +40F~NO;~$K(Bclass$(B;2>HF~NO$r5a$a$i$l$^$9!#$3$l$,HQ$o$7$$>l9g$O%(%l%a%s%HL>F~ +NO3NDj$N$H$-$K%j%?!<%s%-!<(B($(B$^$?$O(BC-m)$(B$G$O$J$/!"(BC-j$(B$r2!$;$P(Bclass$(BJd40F~NO$r +%-%c%s%;%k$G$-$^$9!#$?$H$($P - `[prefix] l' $B9TFb%?%0Jd40$r5/F0(B - ($B$^$?$O(B`[prefix] l SPC') - tt <tt></tt>$B$r$$$l$?$$$N$G(Btt$B$HF~NO(B - `C-m' + (B`[prefix] l' $(B9TFb%?%0Jd40$r5/F0 + (B($(B$^$?$O(B`[prefix] l SPC') + tt <tt></tt>$(B$r$$$l$?$$$N$G(Btt$(B$HF~NO + (B`C-m' -$B$H$7$?>l9g$OB3$$$F(B class= $B$HJd40%W%m%s%W%H$,=P$^$9$,!"(B +$(B$H$7$?>l9g$OB3$$$F (Bclass= $(B$HJd40%W%m%s%W%H$,=P$^$9$,!" - `[prefix] l' $B9TFb%?%0Jd40$r5/F0(B - ($B$^$?$O(B`[prefix] l SPC') - tt <tt></tt>$B$r$$$l$?$$$N$G(Btt$B$HF~NO(B - `C-j' + (B`[prefix] l' $(B9TFb%?%0Jd40$r5/F0 + (B($(B$^$?$O(B`[prefix] l SPC') + tt <tt></tt>$(B$r$$$l$?$$$N$G(Btt$(B$HF~NO + (B`C-j' -$B$H:G8e$r(B `C-j' $B$GF~NO$7$?>l9g$O(B class $BJd40%W%m%s%W%H$O=P$^$;$s!#(B +$(B$H:G8e$r (B`C-j' $(B$GF~NO$7$?>l9g$O (Bclass $(BJd40%W%m%s%W%H$O=P$^$;$s!# + -File: yahtmlj, Node: Reread CSS file, Prev: CSS-class completion, Up: CSS Support - -CSS$BDj5A%U%!%$%k$NFI$_D>$7(B -========================= -html$B%U%!%$%k$rJT=8Cf$K(BCSS$BDj5A%U%!%$%k$r=$@5$7!"DI2C$7$?(Bclass$B$rJd408uJd$H$7(B -$B$FD>$A$KFI$_9~$^$;$?$$>l9g$O!"(B`M-x yahtml-mode' $B$H$7$F:F5/F0$r9T$C$F$/$@$5(B -$B$$!#(B +(BFile: yahtmlj, Node: Reread CSS file, Prev: CSS-class completion, Up: CSS Support - -File: yahtmlj, Node: Customizations, Next: Copying, Prev: CSS Support, Up: Top - -$B%+%9%?%^%$%:(B -************ +CSS$(BDj5A%U%!%$%k$NFI$_D>$7 +(B========================= +html$(B%U%!%$%k$rJT=8Cf$K(BCSS$(BDj5A%U%!%$%k$r=$@5$7!"DI2C$7$?(Bclass$(B$rJd408uJd$H$7 +$FD>$A$KFI$_9~$^$;$?$$>l9g$O!"(B`M-x yahtml-mode' $(B$H$7$F:F5/F0$r9T$C$F$/$@$5 +$$!# -yahtml$B$NF0:n$r@)8f$9$kJQ?t$K$D$$$F@bL@$7$^$9!#(B - -* Menu: - -* All customizable variables:: $B%+%9%?%^%$%:JQ?t0lMw(B -* Hook variables:: hook$BJQ?t(B -File: yahtmlj, Node: All customizable variables, Next: Hook variables, Prev: Customizations, Up: Customizations +(BFile: yahtmlj, Node: Customizations, Next: Copying, Prev: CSS Support, Up: Top + +$(B%+%9%?%^%$%: +(B************ + +yahtml$(B$NF0:n$r@)8f$9$kJQ?t$K$D$$$F@bL@$7$^$9!# + +(B* Menu: -$B%+%9%?%^%$%:JQ?t0lMw(B -==================== +* All customizable variables:: $(B%+%9%?%^%$%:JQ?t0lMw +(B* Hook variables:: hook$(BJQ?t + + + +(BFile: yahtmlj, Node: All customizable variables, Next: Hook variables, Prev: Customizations, Up: Customizations + +$(B%+%9%?%^%$%:JQ?t0lMw +(B==================== -- Variable: yahtml-prefix - yahtml-mode $BCf$N%W%j%U%#%/%9%-!<(B (`\C-c') + yahtml-mode $(BCf$N%W%j%U%#%/%9%-!< (B(`\C-c') -- Variable: yahtml-image-viewer - img$B$G;2>H$7$F$$$k2hA|%U%!%$%k$rI=<($9$k$H$-$K5/F0$9$k%3%^%s%I(B (xv) + img$(B$G;2>H$7$F$$$k2hA|%U%!%$%k$rI=<($9$k$H$-$K5/F0$9$k%3%^%s%I (B(xv) -- Variable: yahtml-www-browser - `[prefix]g' $B$G30It%Z!<%8$rI=<($9$k$H$-$K5/F0$9$k%V%i%&%6(B (netscape) + `[prefix]g' $(B$G30It%Z!<%8$rI=<($9$k$H$-$K5/F0$9$k%V%i%&%6 (B(netscape) -- Variable: yahtml-kanji-code - $B%G%U%)%k%H$N4A;z%3!<%I!#(B1=sjis, 2=jis, 3=euc (2) - .htaccess $B%U%!%$%k$K(B - AddType "text/html; charset=xxx" .html$B$N5-=R$,$"$C$?>l9g$O$=$l(B - $B$K=>$&(B + $(B%G%U%)%k%H$N4A;z%3!<%I!#(B1=sjis, 2=jis, 3=euc, 4=utf-8 (2) + .htaccess $(B%U%!%$%k$K + (BAddType "text/html; charset=xxx" .html $(B$N5-=R$,$"$C$?>l9g$O$=$l + $K=>$& - -- Variable: yahtml-fill-column - auto-fill$B$9$k$H$-$N%+%i%`?t(B (72) + (B-- Variable: yahtml-fill-column + auto-fill$(B$9$k$H$-$N%+%i%`?t (B(72) -- Variable: yahtml-fill-prefix - yahtml-mode $B8GM-$N(Bfill-prefix (`nil') + yahtml-mode $(B8GM-$N(Bfill-prefix (`nil') -- Variable: yahtml-path-url-alist - OS$B$N%U%!%$%k%7%9%F%`>e$G$N%U%k%Q%9L>$H!"$=$N30It8x3+;~$N(BURL$B$NBP1~I=!#(B + OS$(B$N%U%!%$%k%7%9%F%`>e$G$N%U%k%Q%9L>$H!"$=$N30It8x3+;~$N(BURL$(B$NBP1~I=!# - -- Variable: yahtml-directory-index - $B%5!<%P%"%/%;%9;~%U%!%$%kL>$r>JN,$7$?$H$-$K%G%U%)%k%H$G3+$+$l$k%$%s%G%C(B - $B%/%9%U%!%$%k$NL>A0!#B?$/$N>l9g(B index.html$B!#(B(`"index.html"') + (B-- Variable: yahtml-directory-index + $(B%5!<%P%"%/%;%9;~%U%!%$%kL>$r>JN,$7$?$H$-$K%G%U%)%k%H$G3+$+$l$k%$%s%G%C + %/%9%U%!%$%k$NL>A0!#B?$/$N>l9g (Bindex.html$(B!#(B(`"index.html"') -- Variable: yahtml-lint-program - HTML$B9=J8%A%'%C%/%W%m%0%i%`!#(B(`"jweblint"') + HTML$(B9=J8%A%'%C%/%W%m%0%i%`!#(B(`"jweblint"') -- Variable: yahtml-hate-too-deep-indentation - $B%M%9%H$7$?Ns5s7O4D6-$G$N%$%s%G%s%H$,?<$9$.$k$H$-$K(Bt$B$K$9$k!#(B(`nil') + $(B%M%9%H$7$?Ns5s7O4D6-$G$N%$%s%G%s%H$,?<$9$.$k$H$-$K(Bt$(B$K$9$k!#(B(`nil') -- Variable: yahtml-always-/p - `<p>' $B$r$$$l$?$iI,$:(B `</p>' $B$7$?$$?M8~$1!#(B`nil' + `<p>' $(B$r$$$l$?$iI,$: (B`</p>' $(B$7$?$$?M8~$1!#(B`nil' -- Variable: yahtml-p-prefered-env-regexp - $B<+F0E*$K(B `<p>' $B$rF~$l$FM_$7$$4D6-!#(B - (`"^\\(body\\|dl\\|blockquote\\)"') + $(B<+F0E*$K (B`<p>' $(B$rF~$l$FM_$7$$4D6-!# + (B(`"^\\(body\\|dl\\|blockquote\\)"') -- Variable: yahtml-template-file - $B?75,(BHTML$B%U%!%$%k:n@.;~$K<+F0E*$KA^F~$7$FM_$7$$%U%!%$%kL>!#(B - `"~/http/template.html"' + $(B?75,(BHTML$(B%U%!%$%k:n@.;~$K<+F0E*$KA^F~$7$FM_$7$$%U%!%$%kL>!# + (B`"~/http/template.html"' -- Variable: yahtml-prefer-upcases - $B%?%0$KBgJ8;z$r;H$$$?$$!#(B`nil' + $(B%?%0$KBgJ8;z$r;H$$$?$$!#(B`nil' -- Variable: yahtml-prefer-upcase-attributes - $BB0@-;XDj;R$KBgJ8;z$r;H$$$?$$!#(B`nil' + $(BB0@-;XDj;R$KBgJ8;z$r;H$$$?$$!#(B`nil' -- Variable: yahtml-server-type - Apache$B7O$N%5!<%P$rMxMQ$7$F$$$k>l9g$O(B 'apache $B$r%;%C%H$9$k!#(B - ./.htaccess $B$r;2>H$9$k$+$I$&$+$r7hDj$9$k!#(B`'apache' + Apache$(B7O$N%5!<%P$rMxMQ$7$F$$$k>l9g$O (B'apache $(B$r%;%C%H$9$k!# + (B./.htaccess $(B$r;2>H$9$k$+$I$&$+$r7hDj$9$k!#(B`'apache' -- Variable: yahtml-apache-access-file - `yahtml-server-type' $B$,(B `'apache' $B$N$H$-$K%"%/%;%9@)8B%U%!%$%kL>$r;X(B - $BDj!#(B`".htaccess"' + `yahtml-server-type' $(B$, (B`'apache' $(B$N$H$-$K%"%/%;%9@)8B%U%!%$%kL>$r;X + Dj!#(B`".htaccess"' -- Variable: yahtml-shell-command-option - $B%7%'%k$GJL%3%^%s%I$r5/F0$9$k$H$-$N%*%W%7%g%s!#(B + $(B%7%'%k$GJL%3%^%s%I$r5/F0$9$k$H$-$N%*%W%7%g%s!# - -- Variable: yahtml-translate-hyphens-when-comment-region - $BNN0h%3%a%s%H%"%&%H$r$9$k$H$-$K4{$KB8:_$9$k%O%$%U%s$r(B `-' $B$KJQ99$9(B - $B$k$+$I$&$+!#(B(`t') + (B-- Variable: yahtml-translate-hyphens-when-comment-region + $(BNN0h%3%a%s%H%"%&%H$r$9$k$H$-$K4{$KB8:_$9$k%O%$%U%s$r (B`-' $(B$KJQ99$9 + $k$+$I$&$+!#(B(`t') -- Variable: yahtml-entity-reference-chars-alist - $B%(%s%F%#%F%#;2>H(B(Entity Reference)$B$G5-=R$9$Y$-J8;z72$r(B - `'(?$BJ8;z(B . "$B%(%s%F%#%F%#I=5-(B")' $B$H$$$&7A<0$rNs5s$7$?(Balist$B$GJB$Y$k!#(B - $B%G%U%)%k%H$G(B `<', `>', `&', `'', `"' $B$KBP$9$k(Balist$B$,@_Dj$5$l$F$$$k$N(B - $B$G!"DI2C$7$?$$J,$@$1$r5-=R$9$l$PNI$$!#(Bcdr$BIt(B `"$B%(%s%F%#%F%#I=5-(B"' $B$O!"(B - $B@hF,$N(B `&' $B$H(B $BKvHx$N(B`;'$B$O4^$a$:$K=q$/!#(B + $(B%(%s%F%#%F%#;2>H(B(Entity Reference)$(B$G5-=R$9$Y$-J8;z72$r(B`'(?$(BJ8;z (B. "$(B%( + %s%F%#%F%#I=5-(B")' $(B$H$$$&7A<0$rNs5s$7$?(Balist$(B$GJB$Y$k!#%G%U%)%k%H$G + (B`<', `>', `&', `'', `"' $(B$KBP$9$k(Balist$(B$,@_Dj$5$l$F$$$k$N$G!"DI2C$7$?$$ + J,$@$1$r5-=R$9$l$PNI$$!#(Bcdr$(BIt (B`"$(B%(%s%F%#%F%#I=5-(B"' $(B$O!"@hF,$N (B`&' $(B$H + KvHx$N(B`;' $(B$O4^$a$:$K=q$/!# - -- Variable: yahtml-faithful-to-htmllint - $B9=J8%A%'%C%+$H$7$F(B htmllint $B$rMxMQ$9$k>l9g$A$g$C$H$7$?M>7W$J6uGr$J$I(B - $B$KBP$7$F$b7Y9p$r<($9$N$G!"$3$l$r2sHr$9$k$H$-$K$O$3$NJQ?t$r(B`t'$B$K$9$k!#(B + (B-- Variable: yahtml-faithful-to-htmllint + $(B9=J8%A%'%C%+$H$7$F (Bhtmllint $(B$rMxMQ$9$k>l9g$A$g$C$H$7$?M>7W$J6uGr$J$I + $KBP$7$F$b7Y9p$r<($9$N$G!"$3$l$r2sHr$9$k$H$-$K$O$3$NJQ?t$r(B`t'$(B$K$9$k!# - -- Variable: yahtml-use-css - CSS$B$NJd405!G=$r;H$&$+$I$&$+(B (`t') + (B-- Variable: yahtml-use-css + CSS$(B$NJd405!G=$r;H$&$+$I$&$+ (B(`t') -- Variable: yahtml-image-inspection-bytes - $B2hA|%U%!%$%k$N%5%$%:$rD4$Y$k$H$-$KFI$_9~$`%P%$%H?t(B (`10000') + $(B2hA|%U%!%$%k$N%5%$%:$rD4$Y$k$H$-$KFI$_9~$`%P%$%H?t (B(`10000') -- Variable: yahtml:img-default-alt-format - <img src...>$B$N(BALT$BB0@-$N%G%U%)%k%HJ8;zNs$N=q<0!#(B%x$B$O2hA|$NI}!"(B%y$B$O2hA|(B - $B$N9b$5!"(B%s$B$O%U%!%$%k%5%$%:$KCV49$5$l$k(B (`"%xx%y(%sbytes)"') + <img src...>$(B$N(BALT$(BB0@-$N%G%U%)%k%HJ8;zNs$N=q<0!#(B%x$(B$O2hA|$NI}!"(B%y$(B$O2hA| + $N9b$5!"(B%s$(B$O%U%!%$%k%5%$%:$KCV49$5$l$k (B(`"%xx%y(%sbytes)"') -- Variable: yahtml-escape-chars - href$BJd40$J$I$N$H$-$KM=LsJ8;z$r(BURL$B%(%s%3!<%I$9$k$+(B; 'ask$B$N$H$-$O3NG'$7(B - $B$F$+$iCV49$9$k(B (`'ask') + href$(BJd40$J$I$N$H$-$KM=LsJ8;z$r(BURL$(B%(%s%3!<%I$9$k$+(B; 'ask$(B$N$H$-$O3NG'$7 + $F$+$iCV49$9$k (B(`'ask') -- Variable: yahtml-use-font-lock - $B%=!<%9$N?'$E$1%Q%C%1!<%8$H$7$F(B font-lock $B$rMxMQ$9$k$+(B(`(featurep ' - font-lock)') + $(B%=!<%9$N?'$E$1%Q%C%1!<%8$H$7$F (Bfont-lock $(B$rMxMQ$9$k$+(B(`(featurep + 'font-lock)') -- Variable: yahtml-use-hilit19 - $B%=!<%9$N?'$E$1%Q%C%1!<%8$H$7$F(B hilit19 $B$rMxMQ$9$k$+(B(`(featurep ' - hilit19)') + $(B%=!<%9$N?'$E$1%Q%C%1!<%8$H$7$F (Bhilit19 $(B$rMxMQ$9$k$+(B(`(featurep + 'hilit19)') -- Variable: yahtml-indentation-boundary - $B%$%s%G%s%H7W;;$rBG$A@Z$C$F$h$$6-3&$H$J$k@55,I=8=(B(`"^\\s *<h[1-3]>"') + $(B%$%s%G%s%H7W;;$rBG$A@Z$C$F$h$$6-3&$H$J$k@55,I=8=(B(`"^\\s *<h[1-3]>"') + File: yahtmlj, Node: Hook variables, Prev: All customizable variables, Up: Customizations -hook$BJQ?t(B -======== +hook$(BJQ?t +(B======== + File: yahtmlj, Node: Copying, Next: Concept Index, Prev: Customizations, Up: Top -$B<h$j07$$(B -******** +$(B<h$j07$$ +(B******** - $BK\%W%m%0%i%`$O%U%j!<%=%U%H%&%'%"$G$9!#K\%W%m%0%i%`$r;HMQ$7$F@8$8$?$$$+$J(B -$B$k7k2L$KBP$7$F$b:n<T$O@UG$$rIi$o$J$$$3$H$H$7$^$9!#E>:\Ey$K4X$7$F$O@)8B$$$?(B -$B$7$^$;$s!#>o<1E*$K07$C$F$/$@$5$$!#$^$?!";HMQ$7$F$$$k;]$r%a%$%k$G$*CN$i$;$$(B -$B$?$@$/$H!":n<T$O4n$s$G%5%]!<%H$KNe$`$3$H$G$7$g$&!#(B + $(BK\%W%m%0%i%`$O%U%j!<%=%U%H%&%'%"$G$9!#K\%W%m%0%i%`$r;HMQ$7$F@8$8$?$$$+$J +$k7k2L$KBP$7$F$b:n<T$O@UG$$rIi$o$J$$$3$H$H$7$^$9!#E>:\Ey$K4X$7$F$O@)8B$$$? +$7$^$;$s!#>o<1E*$K07$C$F$/$@$5$$!#$^$?!";HMQ$7$F$$$k;]$r%a%$%k$G$*CN$i$;$$ +$?$@$/$H!":n<T$O4n$s$G%5%]!<%H$KNe$`$3$H$G$7$g$&!# - $B6l>p!"4uK>!"%P%0Js9p!"46A[Ey$O4?7^$$$?$7$^$9!#O"Mm$O(B yuuji@yatex.org $B$^(B -$B$G(B(2000$BG/(B12$B7n8=:_(B)$B!#7QB3E*$K;HMQ$7$F$/$@$5$kJ}$O%a%$%j%s%0%j%9%H!V(Bfj$BLnD;$N(B -$B2q!W$K@'Hs2CF~$7$F$/$@$5$$!#2CF~J}K!$K$D$$$F$OK\%Q%C%1!<%8$N(B `docs/htmlqa' -$B%U%!%$%k$N!V$=$NB>!W$N>O$r8fMw$/$@$5$$!#(B + 6l>p!"4uK>!"%P%0Js9p!"46A[Ey$O4?7^$$$?$7$^$9!#O"Mm$O (Byuuji@yatex.org $(B$^ +$G(B(2000$(BG/(B12$(B7n8=:_(B)$(B!#7QB3E*$K;HMQ$7$F$/$@$5$kJ}$O%a%$%j%s%0%j%9%H!V(Bfj$(BLnD;$N +2q!W$K@'Hs2CF~$7$F$/$@$5$$!#2CF~J}K!$K$D$$$F$OK\%Q%C%1!<%8$N (B`docs/htmlqa' +$(B%U%!%$%k$N!V$=$NB>!W$N>O$r8fMw$/$@$5$$!# -$B;EMM$O!"M=9p$J$/3N<B$K(B($B5$J,<!Bh$G(B)$BJQ99$5$l$^$9(B:-p$B!#(B +;EMM$O!"M=9p$J$/3N<B$K(B($(B5$J,<!Bh$G(B)$(BJQ99$5$l$^$9(B:-p$(B!# - $B9-@%M:Fs(B + 9-@%M:Fs + -File: yahtmlj, Node: Concept Index, Prev: Copying, Up: Top +(BFile: yahtmlj, Node: Concept Index, Prev: Copying, Up: Top -$B:w0z(B -**** +$(B:w0z +(B**** * Menu: -* $B%-!<%"%5%$%s(B[$B$-$$$"$5$$$s(B]: Customizations. 4. -* $B%+%9%?%^%$%:(B[$B$+$9$?$^$$$9(B]: Customizations. 4. +* カスタマイズ[,B)7=\"7(B]: Customizations. 4. +* キーアサイン[,B+" 3"q(B]: Customizations. 4. * Demacs: Intro. 4. -* HTML$B20(B[HTML$B$d(B]: Intro. 4. +* HTML(I.(B[HTML,Bb(B]: Intro. 4. * LaTeX: Intro. 4. * Mule: Intro. 4. + + +Tag table: +Node: Top148 +Node: Intro617 +Node: Installation896 +Node: yahtml$(B5/F0$N$?$a$N@_Dj(B1095 +Node: lint$(B%W%m%0%i%`(B/$(B%V%i%&%6(B/$(B%$%a!<%8%t%e!<%"4D6-Ey$N@_Dj(B1749 +Node: WWW$(B%Z!<%84D6-MQJQ?t$N@_Dj(B2249 +Node: Command Invocation3020 +Node: Completion3347 +Node: Jump4331 +Node: Changing and Deleting4730 +Node: $(BBP%?%0$NJQ99(B4950 +Node: $(BJ8;z;2>H$X$NJQ99(B5300 +Node: $(B%j%8%g%sFbJ8;z$N(BURLencode5658 +Node: td$(B3g$j(B/tr$(B3g$j(B5890 +Node: CSS Support6519 +Node: CSS-class completion6738 +Node: Reread CSS file7734 +Node: Customizations7956 +Node: All customizable variables8180 +Node: Hook variables11178 +Node: Copying11290 +Node: Concept Index11793 + +End tag table
--- a/docs/yahtmlj.tex Mon Sep 28 12:48:28 2009 +0900 +++ b/docs/yahtmlj.tex Thu Jan 12 12:26:35 2012 +0900 @@ -5,7 +5,7 @@ @iftex @c @syncodeindex fn cp -@c Last modified Fri Mar 1 16:16:33 2002 on firestorm +@c Last modified Thu Dec 9 15:56:35 2010 on firestorm @syncodeindex vr cp @end iftex @@ -229,6 +229,7 @@ * 対タグの変更:: * 文字参照への変更:: * リジョン内文字のURLencode:: +* td括り/tr括り:: @end menu @node 対タグの変更, 文字参照への変更, Changing and Deleting, Changing and Deleting @@ -253,7 +254,7 @@ @dots{} 属性値の変更 @end itemize -@node 文字参照への変更, リジョン内文字のURLencode, 対タグの変更, Changing and Deleting +@node 文字参照への変更, , 対タグの変更, Changing and Deleting @comment node-name, next, previous, up @section 文字参照への変更 文字としての < や > を表現するときは、文字参照を用いて @@ -270,7 +271,7 @@ @end table -@node リジョン内文字のURLencode, , 文字参照への変更, Changing and Deleting +@node リジョン内文字のURLencode, td括り/tr括り, 文字参照への変更, Changing and Deleting @comment node-name, next, previous, up @section リジョン内文字のURLencode @table @@ -279,6 +280,29 @@ エンコード表記に置換。 @end table +@node td括り/tr括り, , リジョン内文字のURLencode, Changing and Deleting +@comment node-name, next, previous, up +@section td括り/tr括り +空白区切りで書いた表形式の行レコードを <td> 括りの並び， +あるいはそれらをさらに <tr> で括った行並びに変換できます。 +@table @kbd + @item [prefix] } + @dots{} 現在のリジョンにあるデータを空白区切りごとに + <td>...</td> で括る + @item [prefix] ] + @dots{} 現在のリジョンにある行を + 上記td括りをほどこしてからさらに行ごとに <tr>...</tr> で括る +@end table +デフォルトでは空白区切りですが，これを変えるときは +Delimiter: の問い合わせに区切り文字を指定します。たとえばカンマ(,) +を指定するとCSVから表を作ることができます。 + +td以外の要素，具体的には th で括りたい場合は universal-argument +(@kbd{C-u}) をつけて上記2つのコマンドを呼びます。どの要素で括るかの +質問が増えるのでそれに th と入れれば，各フィールドを <th>...</th> +で括ります。もし，第1フィールドのみ th で，残りを全部 td 括りにしたいとき +は thd と入力して下さい。 + @node CSS Support, Customizations, Changing and Deleting, Top @comment node-name, next, previous, up @chapter CSS(スタイルシート)サポート @@ -367,7 +391,7 @@ @end defvar @defvar yahtml-kanji-code -デフォルトの漢字コード。1=sjis, 2=jis, 3=euc (2) +デフォルトの漢字コード。1=sjis, 2=jis, 3=euc, 4=utf-8 (2) .htaccess ファイルに @quotation AddType "text/html; charset=xxx" .html
--- a/docs/yatex.ref Mon Sep 28 12:48:28 2009 +0900 +++ b/docs/yatex.ref Thu Jan 12 12:26:35 2012 +0900 @@ -9,11 +9,6 @@ 野鳥では、prefix キーをカスタマイズできるため(標準ではC-c)これを [prefix] と表記します。C-c のまま変更していない場合、[prefix] a は C-c a を表わします。 - begin型コマンドとは \begin〜\endの形式のコマンド、section型コ - マンドとは \section{題}のように引数を取るコマンド、large型コマン - ドとは {\tt } のような中括弧で囲まれたフォント/サイズ指定子、 - maketitle型コマンドとは \maketitle のように引数を伴わないコマン - ドを指します。 【補完】 @@ -31,40 +26,36 @@ ◆section型補完(領域指定) [prefix] S ◆随時補完 [prefix] SPC - 即時begin型補完の、環境名の頭文字の対応については、Info マニュ - アルをご覧ください。領域指定モードでは、マークした位置とポイント - の間を\begin{center}…\end{center} や {\large } などで括ります。 + 即時begin型補完の、環境名の頭文字の対応については、yatex.doc を + ご覧ください。領域指定モードでは、マークした位置とポイントの間を + \begin{center}…\end{center} や {\large } などで括ります。 ◆数式記号イメージ補完 ; - ◆ギリシャ文字イメージ補完 : + ◆ギリシャ文字イメージ補完 / 上の2つはTeXの数式環境の中で押した場合のみ有効です。強制的に補 - 完機能を使う場合は、C-u を押してから ; や : を押します。 + 完機能を使う場合は、C-u を押してから ; / を押します。 【プロセス起動】 ◆jbibtex起動 [prefix] tb ◆jlatex起動 [prefix] tj - ◆makeindex起動 [prefix] ti - ◆jlatexのkill [prefix] tk ※ + ◆jlatex停止 [prefix] tk ※ ◆プリントアウト [prefix] tl ◆プリントアウト(全ページ) C-u [prefix] tl ◆プレビューア起動 [prefix] tp - ◆xdvi上で文字列サーチ [prefix] ts ※※ - ◆lpq起動 [prefix] tq ◆jlatex起動(領域指定) [prefix] tr [prefix] t を押せばメニューが出るので、[prefix] t の次に押すキー は覚えなくて構いません。 ※は、MS-DOS では無効です。 - ※※は、-remote 機能付きの xdvi でのみ有効です。 - [prefix] tr の領域指定は、文書中の、 %#BEGIN と書いてある行か - ら、%#END と書いてある行までです。%#END を省略すると、%#BEGINか - ら文書末まで、両方省略するとマークした位置から、ポイントまでが指 - 定領域となります。 + [prefix] tr の領域指定は、文書中の、 %#BEGIN と書いてある行から、 + %#END と書いてある行までです。%#END を省略すると、%#BEGINから文書 + 末まで、両方省略すると、マークした位置から、ポイントまでが指定領域 + となります。 【カーソルジャンプ】 @@ -75,16 +66,13 @@ もちろん jlatex でエラーが生じた場合のみ有効です。 ◆対応するオブジェクトジャンプ [prefix] g - ◆別ウィンドウで 〃 [prefix] 4g カーソルジャンプは、[prefix] g を押す時のカーソルの位置により、 ジャンプすべき場所を判断します。 ・\begin{}, \end{}の上 対応する \end{},\begin{} へ ・%#BEGIN, %#END の上 対応する %#BEGIN, %#END へ - ・\include(only), \input の上 対応するファイルへ - ・\ref, \label の上 対応する \label, \ref へ - ・\cite, \bibitem の上 対応する \bibitem, \cite へ + ・\include(only), \input の上 対応するファイル ◆メインファイルへジャンプ [prefix] ^ ◆別ウィンドウで 〃 [prefix] 4^ @@ -118,18 +106,9 @@ 【その他】 ◆itemの桁揃え [prefix] i - - \item を使う環境中のみ有効です。\item の項目全体をハングインデ - ントします。 - ◆LaTeXコマンド変更 [prefix] c - \begin{}, \end{} の行で起動すると環境名を同時に変更します。 - section型コマンドの上で起動するとコマンドを変更し、コマンドの引 - 数の位置で起動すると引数を変更します。large型コマンドの上で起動 - するとフォント/サイズ指定子を変更します。イメージ補完で入力した - 数式モードコマンドの上で起動すると確定直前のイメージ補完操作に戻 - ります。 + \begin{}, \end{} の環境名を同時に変更します。 ◆コマンド削除 [prefix] k @@ -144,23 +123,20 @@ ◆モード切り替え [prefix] w - 新規作成/修正モード、数式モードの切り替えメニューが出ます。 + 新規作成/更新モード、数式モードの切り替えメニューが出ます。 ◆%# 記法の編集 [prefix] % ◆tabular/array桁位置表示 [prefix] & ◆オンラインヘルプ [prefix] ? - ◆オンラインapropos [prefix] / + ◆オンラインヘルプ [prefix] / ◆おまかせ改行 ESC RET 「おまかせ改行」は tabular, array, itemize, enumerate, list, - description 環境で有効です。 - - - ◆インクルード構造ブラウズ [prefix] d - ◆font-lockし直しメニュー [prefix] u + description 環境でで有効です。 広瀬雄二 - yuuji@yatex.org + yuuji@ae.keio.ac.jp + pcs39334@asciinet.or.jp Local variables: mode: text
--- a/docs/yatexe Mon Sep 28 12:48:28 2009 +0900 +++ b/docs/yatexe Thu Jan 12 12:26:35 2012 +0900 @@ -1,7 +1,8 @@ Info file: yatexe, -*-Text-*- produced by `texinfo-format-buffer' from file `yatexe.tex' -using `texinfmt.el' version 2.32 of 19 November 1993. +using `texinfmt.el' version 2.38 of 3 July 1998. + @@ -34,6 +35,7 @@ * Copying:: Redistribution + File: yatexe, Node: What is YaTeX?, Next: Main features, Prev: Top, Up: Top @@ -47,6 +49,7 @@ YaTeX also supports Demacs which runs on MS-DOS(386), Mule (Multi Language Enhancement to GNU Emacs), and latex on DOS. + File: yatexe, Node: Main features, Next: Installation, Prev: What is YaTeX?, Up: Top @@ -81,6 +84,7 @@ * Allow you to forget creating \label{}s, \ref or \cite completion automatically generate labels. + File: yatexe, Node: Installation, Next: Typesetting, Prev: Main features, Up: Top @@ -106,6 +110,7 @@ loaded, mode string on mode line will be turned to "YaTeX". + File: yatexe, Node: Typesetting, Next: %#notation, Prev: Installation, Up: Top @@ -121,10 +126,17 @@ ... invoke latex `[prefix] t r' ... invoke latex on region +`[prefix] t e' + ... invoke latex on current environment or whole + portion of current formulas in math-mode. `[prefix] t k' ... kill current typesetting process `[prefix] t b' ... invoke bibtex +`[prefix] t i' + ... invoke makeindex +`[prefix] t d' + ... invoke latex && dvipdfmx `[prefix] t p' ... preview `[prefix] t l' @@ -138,6 +150,7 @@ * Calling previewer:: * Printing out:: + File: yatexe, Node: Calling typesetter, Next: Calling previewer, Prev: Typesetting, Up: Typesetting @@ -163,14 +176,29 @@ the cursor on the line of error message and type `SPACE' key. This makes the cursor move to corresponding source line. - Since `[prefix] tr' pastes the region into the file `texput.tex' in the -current directory, you should be careful of overwriting. The method of -specification of the region is shown in the section *Note %#notation::. + YaTeX-typeset-region invoked by `[prefix] tr' call typesetter for +region. The region is specified by standard point and mark, or by +`%#BEGIN' and `%#END' marks. Selected region will be copied to the +temporary file `texput.tex' with the same preamble as the main file of +current editing sources. Be sure to put all local macro settings in +preamble, not after `\begin{document}'. The method of specification of +the region is shown in the section *Note %#notation::. The documentclass for typeset-region is the same as that of editing file if you edit one file, and is the same as main file's if you edit splitting files. + The `[prefix] te' key automatically marks current inner environment or +inner math mode and then call typeset-region with marked region. This is +convenient to quick view of current tabular environment or current editing +formulas. Keeping previewer window for `texput.dvi' is handy for +debugging. Since `[prefix] te' selects the inner-most environment as +region, it is not suitable for partial typesetting of doubly or more +composed environment. If you want to do partial typesetting for a nested +environment, use `[prefix] tr' for static-region, which is described in +the section *Note %#notation::. + + File: yatexe, Node: Calling previewer, Next: Printing out, Prev: Calling typesetter, Up: Typesetting @@ -182,6 +210,7 @@ enables you to search current string at the cursor on the running xdvi window. + File: yatexe, Node: Printing out, Prev: Calling previewer, Up: Typesetting @@ -194,6 +223,7 @@ C-u [prefix] tl + File: yatexe, Node: %#notation, Next: Completion, Prev: Typesetting, Up: Top @@ -211,6 +241,7 @@ * Lpr format:: * Editing %# notation:: + File: yatexe, Node: Changing typesetter, Next: Splitting input files, Prev: %#notation, Up: %#notation @@ -223,6 +254,7 @@ anywhere in the source text. This is useful for changing typesetter. + File: yatexe, Node: Splitting input files, Next: Static region for typesetting, Prev: Changing typesetter, Up: %#notation @@ -249,13 +281,14 @@ To make best use of the feature of inter-file jumping by `[prefix] g' (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. + * You can put split texts in sub directory, but not in sub directory of + 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. - * In a sub-text, write `%#!latex main.tex' even if `main.tex' - is in the parent directory(not %#!latex ../main.tex). + 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). + File: yatexe, Node: Static region for typesetting, Next: Lpr format, Prev: Splitting input files, Up: %#notation @@ -290,6 +323,7 @@ the middle of very long text. Do not forget to erase `%#BEGIN' `%#END' pair. + File: yatexe, Node: Lpr format, Next: Editing %# notation, Prev: Static region for typesetting, Up: %#notation @@ -322,6 +356,7 @@ %#LPR dvi2ps %s | lpr + File: yatexe, Node: Editing %# notation, Prev: Lpr format, Up: %#notation @@ -341,6 +376,7 @@ `%#END', and `l' to edit `%#LPR' entry. When you type `b', all `%#BEGIN' and `%#END' are automatically erased. + File: yatexe, Node: Completion, Next: Local dictionaries, Prev: %#notation, Up: Top @@ -362,13 +398,14 @@ * Image completion:: * Greek letters completion:: + File: yatexe, Node: Begin-type completion, Next: Section-type completion, Prev: Completion, Up: Completion Begin-type completion ===================== - "Begin-type completion" completes commands of `\begin{env}' ... + "Begin-type completion" completes commands of `\begin{env}' ... `\end{env}'. All of the begin-type completions begin with this key sequence. @@ -450,6 +487,7 @@ `[prefix] B SPC' enclose a region with the environment selected by completing-read. + File: yatexe, Node: Section-type completion, Next: Large-type completion, Prev: Begin-type completion, Up: Completion @@ -529,6 +567,7 @@ * view-sectioning:: + File: yatexe, Node: view-sectioning, Prev: Section-type completion, Up: Section-type completion @@ -572,6 +611,7 @@ ... Hide sectioning commands whose level is lower than n + File: yatexe, Node: Large-type completion, Next: Maketitle-type completion, Prev: Section-type completion, Up: Completion @@ -596,6 +636,7 @@ prefix key stroke as `[prefix] L'. It encloses the region by braces with large-type command. + File: yatexe, Node: Maketitle-type completion, Next: Arbitrary completion, Prev: Large-type completion, Up: Completion @@ -613,6 +654,7 @@ maketitle-completion, and there are LaTeX commands with no arguments in completion table. + File: yatexe, Node: Arbitrary completion, Next: End completion, Prev: Maketitle-type completion, Up: Completion @@ -627,6 +669,7 @@ after the initial string of LaTeX command that is preceded by `\'. + File: yatexe, Node: End completion, Next: Accent completion, Prev: Arbitrary completion, Up: Completion @@ -643,6 +686,7 @@ at the end of the opened environment. + File: yatexe, Node: Accent completion, Next: Image completion, Prev: End completion, Up: Completion @@ -670,6 +714,7 @@ will be completed, and the cursor gets out from braces. + File: yatexe, Node: Image completion, Next: Greek letters completion, Prev: Accent completion, Up: Completion @@ -720,6 +765,7 @@ Emacs-Lisp variable `YaTeX-math-sign-alist-private'. See also `yatexmth.el' for the information of the structure of this variable. + File: yatexe, Node: Greek letters completion, Prev: Image completion, Up: Completion @@ -737,6 +783,7 @@ `:' after universal-argument(`C-u') which forces `;' and `:' to work as math-prefix. + File: yatexe, Node: Local dictionaries, Next: Commenting out, Prev: Completion, Up: Top @@ -762,6 +809,7 @@ (setq YaTeX-nervous nil) + File: yatexe, Node: Commenting out, Next: Cursor jump, Prev: Local dictionaries, Up: Top @@ -809,6 +857,7 @@ out from `\begin' to `\end'' mode. + File: yatexe, Node: Cursor jump, Next: Changing and Deleting, Prev: Commenting out, Up: Top @@ -824,6 +873,7 @@ * Jumping around the environment:: * Jumping to last completion position:: + File: yatexe, Node: Jump to corresponding object, Next: Invoking image processor, Prev: Cursor jump, Up: Cursor jump @@ -863,6 +913,7 @@ that this function doesn't work on `begin/end', `%#BEGIN/%#END' pairs because it is meaningless. + File: yatexe, Node: Invoking image processor, Next: Jump to main file, Prev: Jump to corresponding object, Up: Cursor jump @@ -890,6 +941,7 @@ `YaTeX-file-processor-alist'. If any, call the corresponding image viewer or drawing tool. + File: yatexe, Node: Jump to main file, Next: Jumping around the environment, Prev: Invoking image processor, Up: Cursor jump @@ -906,6 +958,7 @@ in a sub text switch the buffer to the main text specified by `%#!' notation. + File: yatexe, Node: Jumping around the environment, Next: Jumping to last completion position, Prev: Jump to main file, Up: Cursor jump @@ -921,6 +974,7 @@ `M-C-@' ... mark environment + File: yatexe, Node: Jumping to last completion position, Prev: Jumping around the environment, Up: Cursor jump @@ -933,6 +987,7 @@ register-to-point with argument YaTeX-current-position-register, which is achieved by typing `C-x j 3'(by default). + File: yatexe, Node: Changing and Deleting, Next: Filling, Prev: Cursor jump, Up: Top @@ -952,6 +1007,7 @@ * Changing LaTeX commands:: * Killing LaTeX commands:: + File: yatexe, Node: Changing LaTeX commands, Next: Killing LaTeX commands, Prev: Changing and Deleting, Up: Changing and Deleting @@ -978,6 +1034,7 @@ freely emerge. So keep it mind to put the cursor on a brace when you are thinking of changing a complicated argument. + File: yatexe, Node: Killing LaTeX commands, Prev: Changing LaTeX commands, Up: Changing and Deleting @@ -1006,6 +1063,7 @@ Main \footnote{note} here. Main note here. Main here. ~(cursor) + File: yatexe, Node: Filling, Next: Updation of includeonly, Prev: Changing and Deleting, Up: Top @@ -1061,6 +1119,7 @@ putting cursor on the first occurrence of non-whitespace character on a line changes the fill-prefix temporarily to the depth of the line. + File: yatexe, Node: Updation of includeonly, Next: What column, Prev: Filling, Up: Top @@ -1085,6 +1144,7 @@ `\includeonly' list, `r' to replace \`includeonly' list with the current file, and type `%' to comment out the `\includeonly' line. + File: yatexe, Node: What column, Next: Intelligent newline, Prev: Updation of includeonly, Up: Top @@ -1115,6 +1175,7 @@ column headers, you can create a row of virtual column headers by putting them in the first line and commenting that line with `%'. + File: yatexe, Node: Intelligent newline, Next: Usepackage checker, Prev: What column, Up: Top @@ -1136,8 +1197,8 @@ * `tabular', `tabular*', `array' - Corresponding number of `&' and `\\'. - And `\hline' if needed. + Corresponding number of `&' and `\\'. And `\hline' if + needed. * `tabbing' @@ -1160,6 +1221,7 @@ useful. See the definition of the function `YaTeX-intelligent-newline-itemize' as an example. + File: yatexe, Node: Usepackage checker, Next: Online help, Prev: Intelligent newline, Up: Top @@ -1175,6 +1237,7 @@ variable `YaTeX-package-alist-private' correctly. Please refere the value of `YaTeX-package-alist-default' as an example. + File: yatexe, Node: Online help, Next: Browsing file hierarchy, Prev: Usepackage checker, Up: Top @@ -1224,6 +1287,7 @@ you describe the help on some standard commands. I might want to include it in the next distribution. + File: yatexe, Node: Browsing file hierarchy, Next: Cooperation with other packages, Prev: Online help, Up: Top @@ -1285,6 +1349,7 @@ Note that operations on the file contents in the next window do not work correctly when you close the corresponding file. + File: yatexe, Node: Cooperation with other packages, Next: Customizations, Prev: Browsing file hierarchy, Up: Top @@ -1310,6 +1375,7 @@ If you want to use it with YaTeX, please refer the file `yatexm-o.el' as an example. + File: yatexe, Node: Customizations, Next: Etcetera, Prev: Cooperation with other packages, Up: Top @@ -1325,6 +1391,7 @@ * Add-in functions:: * Add-in generator:: + File: yatexe, Node: Lisp variables, Next: Add-in functions, Prev: Customizations, Up: Customizations @@ -1351,6 +1418,7 @@ * Hook variables:: * Hook file:: + File: yatexe, Node: All customizable variables, Next: Sample definitions, Prev: Lisp variables, Up: Lisp variables @@ -1369,8 +1437,8 @@ -- Variable: YaTeX-kanji-code Default buffer-file-coding-system for YaTeX modes' buffer. Set this - 0 to no language conversion. Nil to preserve original coding-system. - (`1 or 2') + 0 to no language conversion. Nil to preserve original + coding-system. 1=Shift JIS, 2=JIS, 3=EUC, 4=UTF-8 (`1 or 2') -- Variable: YaTeX-prefix Prefix key stroke (`C-c') @@ -1383,7 +1451,7 @@ -- Variable: YaTeX-user-completion-table Name of user dictionary where learned completion table will be - stored. (`"~/.yatexrc"') + stored. (`"~/.yatexrc"') -- Variable: tex-command LaTeX typesetter command (`"latex"') @@ -1403,6 +1471,9 @@ -- Variable: makeindex-command Default makeindex command (`"makeindex"' (`"makeind"' on MS-DOS)) + -- Variable: YaTeX-dvipdf-command + Default command name to convert .dvi to PDF (`"dvipdfmx"') + -- Variable: YaTeX-need-nonstop Put `\nonstopmode{}' or not (`nil') @@ -1542,13 +1613,10 @@ `usepackage' for corresponding macro, when you input that macro with completion. If required `usepackage' is not found, YaTeX also automatically inserts `\usepackage'. Alist is as follows; - '((PackageName1 - (completionType ListOfMacro) - (completionType ListOfMacro)) - (PackageName2 - (completionType ListOfMacro) - (completionType ListOfMacro...))....) completionType is - one of `env, section, maketitle'. Consult the value of + '((PackageName1 (completionType ListOfMacro) (completionType + ListOfMacro)) (PackageName2 (completionType ListOfMacro) + (completionType ListOfMacro...))....) completionType is one of `env, + section, maketitle'. Consult the value of `YaTeX-package-alist-default' as an example. -- Variable: YaTeX-tabular-indentation @@ -1591,6 +1659,7 @@ (YaTeX::ref-generate-label nil nil)))) + File: yatexe, Node: Sample definitions, Next: Hook variables, Prev: All customizable variables, Up: Lisp variables @@ -1605,6 +1674,7 @@ YaTeX-user-completion-table "~/src/emacs/yatexrc" YaTeX-fill-prefix " ") + File: yatexe, Node: Hook variables, Next: Hook file, Prev: Sample definitions, Up: Lisp variables @@ -1623,6 +1693,7 @@ You should use functions `YaTeX-define-key', or `YaTeX-define-begend-key' to define all the key sequences of yatex-mode. + File: yatexe, Node: Hook file, Prev: Hook variables, Up: Lisp variables @@ -1634,6 +1705,7 @@ file at the initialization of itself. Using `yatexhks.el' makes `yatex-mode-load-hook' unnecessary. + File: yatexe, Node: Add-in functions, Next: Add-in generator, Prev: Lisp variables, Up: Customizations @@ -1667,6 +1739,7 @@ * Useful functions for creating add-in:: * Contribution:: + File: yatexe, Node: How the add-in function works, Next: How the function is called, Prev: Add-in functions, Up: Add-in functions @@ -1731,6 +1804,7 @@ * Defining argument-add-in:: * Defining enclosing-add-in:: + File: yatexe, Node: Defining option-add-in, Next: Defining argument-add-in, Prev: How the add-in function works, Up: How the add-in function works @@ -1752,6 +1826,7 @@ (defun YaTeX:tabular () (concat "{" (read-string "Rule: ") "}")) + File: yatexe, Node: Defining argument-add-in, Next: Defining enclosing-add-in, Prev: Defining option-add-in, Up: How the add-in function works @@ -1775,6 +1850,7 @@ Note that when the `argument add-in' function return `nil', normal argument reader will be called. + File: yatexe, Node: Defining enclosing-add-in, Prev: Defining argument-add-in, Up: How the add-in function works @@ -1798,6 +1874,7 @@ (throw 'done (replace-match "}{"))) (goto-char (match-end 0))))) + File: yatexe, Node: How the function is called, Next: Useful functions for creating add-in, Prev: How the add-in function works, Up: Add-in functions @@ -1812,6 +1889,7 @@ been inserted. `Argument add-in' functions are called at each entry of arguments for section-type commands. + File: yatexe, Node: Useful functions for creating add-in, Next: Contribution, Prev: How the function is called, Up: Add-in functions @@ -1851,6 +1929,7 @@ if not. The variable `YaTeX-current-completion-type' holds the symbol according to the current completion type. + File: yatexe, Node: Contribution, Prev: Useful functions for creating add-in, Up: Add-in functions @@ -1860,6 +1939,7 @@ If you make your own pretty function and you let it be in public, please send me the function. I'm going to include it in the next release. + File: yatexe, Node: Add-in generator, Prev: Add-in functions, Up: Customizations @@ -1890,12 +1970,11 @@ Simple generator ---------------- - 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". + 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". For example, assume you have the LaTeX command as follows. @@ -2030,6 +2109,7 @@ steel yourself in the happy atmosphere and do not send me the function. I do know it is not fine because it is generated by yatexgen:-p. + File: yatexe, Node: Etcetera, Next: Copying, Prev: Customizations, Up: Top @@ -2046,6 +2126,7 @@ The package name `Wild Bird' is the English translation of Japanese title `Yachou', which is a trick on words of Japanese. + File: yatexe, Node: Copying, Prev: Etcetera, Up: Top @@ -2070,68 +2151,69 @@ HIROSE Yuuji + Tag table: -Node: Top153 -Node: What is YaTeX?1493 -Node: Main features1865 -Node: Installation3456 -Node: Typesetting4232 -Node: Calling typesetter5061 -Node: Calling previewer6406 -Node: Printing out6766 -Node: %#notation7057 -Node: Changing typesetter7432 -Node: Splitting input files7795 -Node: Static region for typesetting9222 -Node: Lpr format10350 -Node: Editing %# notation11406 -Node: Completion11924 -Node: Begin-type completion12483 -Node: Section-type completion15526 -Node: view-sectioning17960 -Node: Large-type completion19539 -Node: Maketitle-type completion20269 -Node: Arbitrary completion20820 -Node: End completion21209 -Node: Accent completion21678 -Node: Image completion22294 -Node: Greek letters completion24550 -Node: Local dictionaries25276 -Node: Commenting out26212 -Node: Cursor jump27670 -Node: Jump to corresponding object27981 -Node: Invoking image processor29381 -Node: Jump to main file30723 -Node: Jumping around the environment31087 -Node: Jumping to last completion position31504 -Node: Changing and Deleting32012 -Node: Changing LaTeX commands32403 -Node: Killing LaTeX commands33579 -Node: Filling34763 -Node: Updation of includeonly36613 -Node: What column37409 -Node: Intelligent newline38493 -Node: Usepackage checker40153 -Node: Online help40743 -Node: Browsing file hierarchy42417 -Node: Cooperation with other packages44153 -Node: Customizations44857 -Node: Lisp variables45190 -Node: All customizable variables46193 -Node: Sample definitions55941 -Node: Hook variables56453 -Node: Hook file57156 -Node: Add-in functions57494 -Node: How the add-in function works58353 -Node: Defining option-add-in60551 -Node: Defining argument-add-in61272 -Node: Defining enclosing-add-in62153 -Node: How the function is called63006 -Node: Useful functions for creating add-in63681 -Node: Contribution65085 -Node: Add-in generator65358 -Node: Etcetera70751 -Node: Copying71355 +Node: Top146 +Node: What is YaTeX?1487 +Node: Main features1860 +Node: Installation3452 +Node: Typesetting4229 +Node: Calling typesetter5298 +Node: Calling previewer7502 +Node: Printing out7863 +Node: %#notation8155 +Node: Changing typesetter8531 +Node: Splitting input files8895 +Node: Static region for typesetting10319 +Node: Lpr format11448 +Node: Editing %# notation12505 +Node: Completion13024 +Node: Begin-type completion13584 +Node: Section-type completion16627 +Node: view-sectioning19062 +Node: Large-type completion20642 +Node: Maketitle-type completion21373 +Node: Arbitrary completion21925 +Node: End completion22315 +Node: Accent completion22785 +Node: Image completion23402 +Node: Greek letters completion25659 +Node: Local dictionaries26386 +Node: Commenting out27323 +Node: Cursor jump28782 +Node: Jump to corresponding object29094 +Node: Invoking image processor30495 +Node: Jump to main file31838 +Node: Jumping around the environment32203 +Node: Jumping to last completion position32621 +Node: Changing and Deleting33130 +Node: Changing LaTeX commands33522 +Node: Killing LaTeX commands34699 +Node: Filling35884 +Node: Updation of includeonly37735 +Node: What column38532 +Node: Intelligent newline39617 +Node: Usepackage checker41271 +Node: Online help41862 +Node: Browsing file hierarchy43537 +Node: Cooperation with other packages45274 +Node: Customizations45979 +Node: Lisp variables46313 +Node: All customizable variables47317 +Node: Sample definitions57116 +Node: Hook variables57629 +Node: Hook file58333 +Node: Add-in functions58672 +Node: How the add-in function works59532 +Node: Defining option-add-in61731 +Node: Defining argument-add-in62453 +Node: Defining enclosing-add-in63335 +Node: How the function is called64189 +Node: Useful functions for creating add-in64865 +Node: Contribution66270 +Node: Add-in generator66544 +Node: Etcetera71916 +Node: Copying72521 End tag table
--- a/docs/yatexe.tex Mon Sep 28 12:48:28 2009 +0900 +++ b/docs/yatexe.tex Thu Jan 12 12:26:35 2012 +0900 @@ -5,7 +5,7 @@ @iftex @c @syncodeindex fn cp -@c Last modified Wed Jul 20 21:27:50 2005 on firestorm +@c Last modified Thu May 27 18:04:10 2010 on firestorm @syncodeindex vr cp @end iftex @@ -145,10 +145,17 @@ @dots{} invoke latex @item [prefix] t r @dots{} invoke latex on region +@item [prefix] t e + @dots{} invoke latex on current environment or whole + portion of current formulas in math-mode. @item [prefix] t k @dots{} kill current typesetting process @item [prefix] t b @dots{} invoke bibtex +@item [prefix] t i + @dots{} invoke makeindex +@item [prefix] t d + @dots{} invoke latex && dvipdfmx @item [prefix] t p @dots{} preview @item [prefix] t l @@ -188,15 +195,29 @@ the cursor on the line of error message and type @kbd{SPACE} key. This makes the cursor move to corresponding source line. - Since @kbd{[prefix] tr} pastes the region into the file -@file{texput.tex} in the current directory, you should be careful of -overwriting. The method of specification of the region is shown in the + YaTeX-typeset-region invoked by @kbd{[prefix] tr} call typesetter +for region. The region is specified by standard point and mark, or +by @code{%#BEGIN} and @code{%#END} marks. Selected region will be +copied to the temporary file @file{texput.tex} with the same preamble +as the main file of current editing sources. Be sure to put +all local macro settings in preamble, not after @code{\begin{document}}. + The method of specification of the region is shown in the section @xref{%#notation}. The documentclass for typeset-region is the same as that of editing file if you edit one file, and is the same as main file's if you edit splitting files. + The @kbd{[prefix] te} key automatically marks current inner environment +or inner math mode and then call typeset-region with marked region. This +is convenient to quick view of current tabular environment or current +editing formulas. Keeping previewer window for @file{texput.dvi} is handy +for debugging. Since @kbd{[prefix] te} selects the inner-most environment +as region, it is not suitable for partial typesetting of doubly or more +composed environment. If you want to do partial typesetting for a nested +environment, use @kbd{[prefix] tr} for static-region, which is described +in the section @xref{%#notation}. + @node Calling previewer, Printing out, Calling typesetter, Typesetting @comment node-name, next, previous, up @section Calling previewer @@ -1594,7 +1615,7 @@ @defvar YaTeX-kanji-code Default buffer-file-coding-system for YaTeX modes' buffer. Set this 0 to no language conversion. Nil to preserve original -coding-system. (@code{1 or 2}) +coding-system. 1=Shift JIS, 2=JIS, 3=EUC, 4=UTF-8 (@code{1 or 2}) @end defvar @defvar YaTeX-prefix @@ -1638,6 +1659,10 @@ Default makeindex command (@code{"makeindex"} (@code{"makeind"} on MS-DOS)) @end defvar +@defvar YaTeX-dvipdf-command +Default command name to convert .dvi to PDF (@code{"dvipdfmx"}) +@end defvar + @defvar YaTeX-need-nonstop Put @code{\nonstopmode@{@}} or not (@code{nil}) @end defvar
--- a/docs/yatexj Mon Sep 28 12:48:28 2009 +0900 +++ b/docs/yatexj Thu Jan 12 12:26:35 2012 +0900 @@ -1,7 +1,8 @@ Info file: yatexj, -*-Text-*- produced by `texinfo-format-buffer' from file `yatexj.tex' -using `texinfmt.el' version 2.32 of 19 November 1993. +using `texinfmt.el' version 2.38 of 3 July 1998. + @@ -37,6 +38,7 @@ * Concept Index:: $B:w0z(B + File: yatexj, Node: Intro, Next: Terminology, Prev: Top, Up: Top @@ -51,6 +53,7 @@ English manual *Note Top: (yatexe)Top. + File: yatexj, Node: Terminology, Next: Main features, Prev: Intro, Up: Top @@ -84,6 +87,7 @@ $BEv$F$i$l$F$$$k$N$G!"FC$KJQ99$7$F$$$J$$>l9gK\%^%K%e%"%k$N(B `[prefix]' $B$H$$$&I=5-$O!"(B`C-c' $B$HFI$_49$($F$/$@$5$$!#(B + File: yatexj, Node: Main features, Next: Installation, Prev: Terminology, Up: Top @@ -94,7 +98,7 @@ * $B%+!<%=%k0LCV$K$h$i$J$$8GDj%j%8%g%s$NItJ,%?%$%W%;%C%H(B * \includeonly$B$N%o%s%?%C%A99?7(B * $B%(%i!<2U=j$X$N<+F0%8%c%s%W(B(`C-c '') - * `\begin{}, \end{}, \section...' $B$J$I$N(B LaTeX$B%3%^%s%I$NJd40F~NO(B(`C-c + * `\begin{}, \end{}, \section...' $B$J$I$N(B LaTeX $B%3%^%s%I$NJd40F~NO(B(`C-c b', `C-c s', `C-c l', `C-c m') * $B4{$KF~NO$7$?%F%-%9%H$r4D6-$d%3%^%s%I0z?t$NCf$K<h$j9~$`3g$jJd40(B(`C-u' +$BDL>oJd40%-!<(B) @@ -104,13 +108,12 @@ * LaTeX $B$N4D6-$d%3%^%s%I$K1~$8$?%,%$%IIU$-0z?tF~NO(B * $BLnD;$K$J$$%,%$%IIU$-0z?tF~NO4X?t$N<+F0@8@.(B(`yatexgen.el') * LaTeX $B%3%^%s%I$N:o=|(B/$BJQ99(B(`C-c k', `C-c c') - * $B%U%!%$%k4V!"(B`\begin'<->`\end'$B4V!"(B - `\ref'<->`\label'$B4V!"(B - `\cite'<->`\bibitem'$B%8%c%s%W(B(`C-c g') - * $B0l3g%3%a%s%H%"%&%H(B/$B%"%s%3%a%s%H%"%&%H(B - (`C-c >', `C-c <', `C-c ,', `C-c .') - * $B%"%/%;%s%H5-9f(B/$B?t<04D6-MQ%3%^%s%I(B/$B%.%j%7%cJ8;z$NF~NO;Y1g(B - (`C-c a', `;', `/') + * $B%U%!%$%k4V!"(B`\begin'<->`\end'$B4V!"(B`\ref'<->`\label'$B4V!"(B + `\cite'<->`\bibitem'$B%8%c%s%W(B(`C-c g') + * $B0l3g%3%a%s%H%"%&%H(B/$B%"%s%3%a%s%H%"%&%H(B(`C-c >', `C-c <', `C-c ,', `C-c + .') + * $B%"%/%;%s%H5-9f(B/$B?t<04D6-MQ%3%^%s%I(B/$B%.%j%7%cJ8;z$NF~NO;Y1g(B(`C-c a', + `;', `/') * tabular/array$B4D6-$N%+%i%`0LCV%,%$%I(B * $BI8=`E*(B LaTeX $B%3%^%s%I$N%*%s%i%$%s%X%k%W(B(`C-c ?', `C-c /') * $B%I%-%e%a%s%H$N%$%s%/%k!<%I9=B$$N;k3PE*I=<($H%P%C%U%!@Z$jBX$((B(`C-c d') @@ -118,6 +121,7 @@ userpackage * \label$B$rBG$D$3$H$O$b$&K:$l$h$&(B! ref$B$d(Bcite$BJd40F~NO$G<+F0@8@.$7$^$9(B + File: yatexj, Node: Installation, Next: Invocation, Prev: Main features, Up: Top @@ -156,9 +160,8 @@ ... $B5/F0$9$k%W%l%t%e!<%"$N%3%^%s%IL>(B `NTT-jTeX' ... $B2~9T(B+$B%$%s%G%s%H$K$h$C$F!"%?%$%W%;%C%H8e$N;z4V$,6u$$$F$7$^(B - $B$&$N$rM^@)$9$k>l9g$K(Bt$B$K$9$k(B($B8E$$(BNTT-jTeX$B$G82Cx$K8=$l$k(B)$B!#6qBN(B - $BE*$K$O!"(B - fill$B$9$k$H$-$K3F9T$N=*$o$j$K(B%$B$rIU2C$9$k$h$&$K$J$k!#(B + $B$&$N$rM^@)$9$k>l9g$K(Bt$B$K$9$k(B($B8E$$(BNTT-jTeX$B$G82Cx$K8=$l$k(B)$B!#6qBNE*$K$O!"(B + fill$B$9$k$H$-$K3F9T$N=*$o$j$K(B%$B$rIU2C$9$k$h$&$K$J$k!#(B `YaTeX-kanji-code' ... $BJ8=q$r:n@.$9$k;~$N4A;z%3!<%I(B `dviprint-command-format' @@ -166,10 +169,10 @@ `makeindex-command' ... makeindex$B%3%^%s%I(B -$B$3$l$i$rJQ99$9$k>l9g$O!"$d$O$j(B`~/.emacs'$B$K$F!"$?$H$($P(B - (setq tex-command "bigjlatex") -$B$N$h$&$K$7$F$/$@$5$$!#$I$N$h$&$JCM$r%;%C%H$9$l$PNI$$$+$K$D$$$F$O!"(B -*Note All customizable variables::$B$r;2>H$7$F$/$@$5$$!#(B +$B$3$l$i$rJQ99$9$k>l9g$O!"$d$O$j(B`~/.emacs'$B$K$F!"$?$H$($P(B(setq tex-command +"bigjlatex") $B$N$h$&$K$7$F$/$@$5$$!#$I$N$h$&$JCM$r%;%C%H$9$l$PNI$$$+$K$D$$(B +$B$F$O!"(B*Note All customizable variables::$B$r;2>H$7$F$/$@$5$$!#(B + @@ -185,10 +188,17 @@ ... $B%?%$%W%;%C%?(B(platex)$B5/F0(B `[prefix] t r' ... $B%?%$%W%;%C%?5/F0(B($BNN0h;XDj(B) +`[prefix] t e' + ... $B%?%$%W%;%C%?5/F0(B($B%]%$%s%H0LCV$N4D6-$^$?$O?t<0%b!<%I$N$_BP(B + $B>N(B) `[prefix] t k' ... $BF0:nCf$N%?%$%W%;%C%?$NDd;_(B `[prefix] t b' ... jbibtex$B5/F0(B +`[prefix] t i' + ... makeindex$B5/F0(B +`[prefix] t d' + ... $B%?%$%W%;%C%?$H(Bdvipdfmx$B5/F0(B `[prefix] t p' ... $B%W%l%t%e!<%"5/F0(B `[prefix] t l' @@ -202,6 +212,7 @@ * Calling previewer:: $B%W%l%t%e!<%"5/F0(B * Print out:: $B%W%j%s%H%"%&%HMQ%3%^%s%I$N5/F0(B + File: yatexj, Node: Calling typesetter, Next: Calling previewer, Prev: Invocation, Up: Invocation @@ -234,11 +245,25 @@ $B%]%$%s%H$H%^!<%/$N4V!"$"$k$$$O%F%-%9%HCf$KKd$a9~$s$@(B `%#BEGIN' $B$H(B`%#END' $B$N4V$NNN0h(B(*Note %#notation::)$B$@$1$r@Z$j<h$C$F%?%$%W%;%C%H$9$k$3$H$,$G$-$^(B -$B$9!#$3$N>l9g$N(B documentclass $B$O!"C10l%U%!%$%k$N(B LaTeX $B%=!<%9$NJT=8;~$K$O$=(B -$B$N%U%!%$%k$N(B documentclass $B$,!"JL%U%!%$%k$+$i(B include $B$7$F$$$k>l9g$K$O%a%$(B -$B%s%U%!%$%k$N(B documentclass $B$,<+F0E*$KA*Br$5$l$^$9!#;XDjNN0h$O!"%a%$%s%U%!(B -$B%$%k$N$"$k%G%#%l%/%H%j$N(B`texput.tex'$B$H$$$&NW;~%U%!%$%k$K=PNO$5$l$^$9$N$G!"(B -$B>e=q$-$K$OCm0U$7$F$/$@$5$$!#(B +$B$9!#$3$N>l9g%a%$%s%U%!%$%k$N%W%j%"%s%V%k$,0l;~%U%!%$%k$N%W%j%"%s%V%k$H$7$F(B +$B;H$o$l$^$9!#$7$?$,$C$F%W%j%"%s%V%k$K$J$$%^%/%mDj5A$,NN0hFb$K$"$k$H%(%i!<$K(B +$B$J$j$^$9!#NN0h%?%$%W%;%C%H$r;H$&>l9g!"I,$:%^%/%mDj5A$O%W%j%"%s%V%k(B +(`\begin{document}'$B$h$jA0(B)$B$KCV$/$h$&$K$7$F2<$5$$!#0l;~%U%!%$%k$O%a%$%s%U%!(B +$B%$%k$N$"$k%G%#%l%/%H%j$N(B`texput.tex'$B$H$$$&L>A0$G=PNO$5$l$k$N$G!">e=q$-$K$O(B +$BCm0U$7$F$/$@$5$$!#(B + + +$B4D6-%?%$%W%;%C%H(B +---------------- + + + `[prefix] te' $B$r2!$9$H!"%]%$%s%H0LCV$N:G$bFbB&$N4D6-!"$^$?$O?t<0%b!<%IFb(B +$B$N>l9g$O$=$N?t<0%b!<%IA4BN$,<+F0E*$KNN0hA*Br$5$l$F!"NN0h%?%$%W%;%C%H$r8F$S(B +$B=P$7$^$9!#(Btabular$B4D6-$d?t<0%b!<%I$GJ#;($J$b$N$r:n$C$F$$$k>l9g$O3N$+$a$?$$(B +$BItJ,$@$1$r3NG'$G$-$k$N$GJXMx$G$9!#$3$l$b(B `texput.tex' $B$K3:EvItJ,$r=q$-=P$7(B +$B$^$9!#%W%l%t%e!<%"$G(B `texput.dvi' $B$r3+$$$?$^$^$K$7$F$*$1$P=$@5$H3NG'$,AGAa(B +$B$/$G$-$k$G$7$g$&!#(B + File: yatexj, Node: Calling previewer, Next: Print out, Prev: Calling typesetter, Up: Invocation @@ -252,6 +277,7 @@ $B$k$3$H$,$G$-$^$9!#(B + File: yatexj, Node: Print out, Prev: Calling previewer, Up: Invocation @@ -268,6 +294,7 @@ $B$N$h$&$K5/F0$7$F$/$@$5$$!#(B + File: yatexj, Node: %#notation, Next: Completion, Prev: Invocation, Up: Top @@ -285,6 +312,7 @@ * lpr format:: $B%W%j%s%H%"%&%H%3%^%s%IMQ%U%)!<%^%C%H(B * Editing %# notation:: %#$B5-K!$NJT=8(B + File: yatexj, Node: Changing typesetter, Next: Splitting input files, Prev: %#notation, Up: %#notation @@ -299,6 +327,7 @@ NTT jTeX $B$H!"(BASCII jTeX $B$r;H$$J,$1$?$$$h$&$J>l9g$KJXMx$G$7$g$&!#(B + File: yatexj, Node: Splitting input files, Next: Fix region for typesetting, Prev: Changing typesetter, Up: %#notation @@ -330,13 +359,14 @@ 1. $B%5%V%G%#%l%/%H%j$r:n$C$F!"$=$NCf$K%5%V%U%!%$%k$rCV$/$3$H$O$G$-$k$,%5(B $B%V%G%#%l%/%H%j$N%5%V%G%#%l%/%H%j$K$OCV$1$J$$!#(B - 2. $B%a%$%s%U%!%$%k$+$i%5%V%G%#%l%/%H%jFb$N%U%!%$%k$r(B include$B$9$k;~$K$O!"(B + 2. $B%a%$%s%U%!%$%k$+$i%5%V%G%#%l%/%H%jFb$N%U%!%$%k$r(B include $B$9$k;~$K$O!"(B $BAjBP%Q%9;XDj$rMQ$$$F!"(B`\include{chap1/sub}'$B$N$h$&$K5-=R!#(B 3. $B%a%$%s%U%!%$%k$,0l$D>e$N%G%#%l%/%H%j$K$"$k>l9g$b!"%5%V%U%!%$%k$K$O(B %#!platex main.tex $B$N$h$&$K5-=R$9$k(B(../main$B$G$O$J$$(B)$B!#(B + File: yatexj, Node: Fix region for typesetting, Next: lpr format, Prev: Splitting input files, Up: %#notation @@ -370,8 +400,9 @@ tabular $B4D6-$r2?EY$b;n9T:x8m$7$F$$$k$h$&$J>l9g$O!"(B`\begin'$B$NA0$N9T$K(B `%#BEGIN' $B$H=q$-!"(B`\end' $B$N<!$N9T$K(B `%#END' $B$H=q$$$F$*$/$H4JC1$K:nI=7k2L$r(B $B%F%9%H$9$k$3$H$,$G$-$^$9!#$^$?!"D9$$(B .tex $B%U%!%$%k$N8eH>$K(B `%#BEGIN' $B$r=q(B -$B$$$F$*$1$P!"A0H>$NItJ,$OL5;k$G$-$^$9!#$3$N(BBEGIN$B$H(BEND$B$N>C$7K:$l$K$O==J,$4Cm(B -$B0U2<$5$$!#(B +$B$$$F$*$1$P!"A0H>$NItJ,$OL5;k$G$-$^$9!#$3$N(BBEGIN$B$H(BEND $B$N>C$7K:$l$K$O==J,$4(B +$BCm0U2<$5$$!#(B + @@ -410,6 +441,7 @@ $B$J$I$H$9$k$N$bJXMx$+$b$7$l$^$;$s!#(B + File: yatexj, Node: Editing %# notation, Prev: lpr format, Up: %#notation @@ -430,6 +462,7 @@ $B$r(B `%#BEGIN' $B!A(B `%#END' $B$G3g$j$?$$;~$O!"(B`b'$B$r2!$7$^$9!#(B`b'$B$rA*$s$@;~$K$O!"(B $B$=$l$^$G%P%C%U%!Cf$KCV$+$l$F$$$?(B `%#BEGIN', `%#END' $B$,<+F0E*$K>C5n$5$l$^$9!#(B + File: yatexj, Node: Completion, Next: Local dictionary, Prev: %#notation, Up: Top @@ -451,6 +484,7 @@ * Image completion:: $B?t<05-9f%$%a!<%8Jd40(B * Greek letter completion:: $B%.%j%7%cJ8;zJd40(B + File: yatexj, Node: begin$B7?Jd40(B, Next: section$B7?Jd40(B, Prev: Completion, Up: Completion @@ -463,7 +497,7 @@ `[prefix] b' ... begin $B7?Jd403+;O(B($BI8=`$G$O(B `C-c b') -$B$G;O$^$j$^$9!#IQHK$KMQ$$$i$l$k<!$N(B LaTeX $B4D6-$NJd40$O!"(B[prefix] `b'$B$KB3$/(B +$B$G;O$^$j$^$9!#IQHK$KMQ$$$i$l$k<!$N(B LaTeX $B4D6-$NJd40$O!"(B[prefix] `b' $B$KB3$/(B $B<!$N(B1$BJ8;z$rF~NO$9$k$@$1$G!"(B`\begin{xxx}...\end{xxx}'$B$r40@.$5$;$^$9!#(B `[prefix] b c' @@ -530,7 +564,7 @@ $B$H$3$m$G!":G=i$K=q$$$F$7$^$C$?%V%m%C%/$r8e$+$i!"(Bitemize $B4D6-$NCf$KJD$8$3(B $B$a$?$$$H;W$&$3$H$,$"$j$^$9$,!"$=$N$h$&$J$H$-$O!"$"$i$+$8$aJD$8$3$a$?$$CJMn(B -$B$r%^!<%/$7$F!"(Bbegin $B7?Jd40$N3F%3%^%s%I$N(B `[prefix]'$B$N<!$N!X>.J8;z$N(B 'b'$B!Y(B +$B$r%^!<%/$7$F!"(Bbegin $B7?Jd40$N3F%3%^%s%I$N(B `[prefix]' $B$N<!$N!X>.J8;z$N(B 'b'$B!Y(B $B$r!XBgJ8;z!Y$KJQ$($F5/F0$7$F2<$5$$!#(B($B$^$?$O!"(B`C-u' $B$r@h$KBG$A!"(Buniversal argument $B$r$D$1$F$b2DG=$G$9(B) @@ -545,6 +579,7 @@ `b' $B$rBgJ8;z$KJQ$($F!"(B`[prefix] B SPC' $B$H%?%$%W$9$l$P!"$"$i$+$8$a%^!<%/$7(B $B$F$*$$$?%j%8%g%s$r!"(Bbegin $B$H(B end $B$N4D6-$G3g$j$^$9!#(B + File: yatexj, Node: section$B7?Jd40(B, Next: large$B7?Jd40(B, Prev: begin$B7?Jd40(B, Up: Completion @@ -597,6 +632,7 @@ * view-sectioning:: $B%;%/%7%g%s6h@Z$j$N%"%&%H%i%$%sI=<((B * label-generation:: $B%i%Y%k<+F0@8@.(B + File: yatexj, Node: 2$B8D0J>e$N0z?t$r$H$k(B section$B7?%3%^%s%I(B, Next: Enclose section-type command, Prev: section$B7?Jd40(B, Up: section$B7?Jd40(B @@ -624,6 +660,7 @@ $B$$$F8D?t$r;XDj$7D>$9$3$H$G!"<+F0E*$K<-=qCf$N0z?t$N8D?t$NItJ,$r99?7$7$^$9!#(B + File: yatexj, Node: Enclose section-type command, Next: Recursive completion, Prev: 2$B8D0J>e$N0z?t$r$H$k(B section$B7?%3%^%s%I(B, Up: section$B7?Jd40(B @@ -633,6 +670,7 @@ $B$^$?!"5/F0%3%^%s%I$N(B`s'$B$rBgJ8;z$KJQ$($F5/F0$9$k$H!"$"$i$+$8$a=q$$$?J8>O(B $B$r(B section $B7?%3%^%s%I$NBh0l0z?t$H$7$F3g$j$^$9!#(B + File: yatexj, Node: Recursive completion, Next: view-sectioning, Prev: Enclose section-type command, Up: section$B7?Jd40(B @@ -640,10 +678,11 @@ -------- $B9bEY$J;H$$J}$K$J$k$+$b$7$l$^$;$s$,!"(Bsection$B7?Jd40$N0z?t$NF~NO;~$K$5$i$K(B -$BJd40F~NO$rMxMQ$9$k$3$H$,$G$-$^$9(B(section/large/maketitle$B7?$K8B$k(B)$B!#(Bsection +$BJd40F~NO$rMxMQ$9$k$3$H$,$G$-$^$9(B(section/large/maketitle$B7?$K8B$k(B)$B!#(Bsection $B7?%3%^%s%I$N0z?t$K99$K(B LaTeX $B%3%^%s%I$,Mh$k>l9g$K$O%_%K%P%C%U%!$GLnD;$NJd(B $B40%-!<$r:F5"E*$KF~NO$9$k$3$H$G0z?t$NF~NO$b8zN(E*$K9T$J$($^$9!#(B + File: yatexj, Node: view-sectioning, Next: label-generation, Prev: Recursive completion, Up: section$B7?Jd40(B @@ -688,6 +727,7 @@ ... $B%l%Y%k(B n $B0J2<$N%;%/%7%g%s%3%^%s%I$r1#$7$FI=<((B + File: yatexj, Node: label-generation, Prev: view-sectioning, Up: section$B7?Jd40(B @@ -701,6 +741,7 @@ $B$F$N%+%&%s%?$K%i%Y%k$r$D$1$k$N$b$?$$$X$s$G$9!#$b$&%i%Y%kL>$K2?$r$D$1$k$+!"(B $B%i%Y%k$r$D$1$k$+$D$1$^$$$+!"$J$I$H$$$&$3$H$OK:$l$^$7$g$&(B! + File: yatexj, Node: large$B7?Jd40(B, Next: maketitle$B7?Jd40(B, Prev: section$B7?Jd40(B, Up: Completion @@ -729,6 +770,7 @@ $B;z$NHO0O$r%^!<%/$7$F$+$i!"8F$S=P$7%-!<$r(B `[prefix] L' $B$H!"BgJ8;z$N(B L $B$KJQ(B $B$($F8F$S=P$;$P!"$=$N%j%8%g%sA4BN$,!"%V%l!<%9$G0O$^$l$^$9!#(B + File: yatexj, Node: maketitle$B7?Jd40(B, Next: Arbitrary completion, Prev: large$B7?Jd40(B, Up: Completion @@ -743,6 +785,7 @@ $B$G!"(Bmaketitle $B7?Jd40$r3+;O$7$^$9!#Jd40$NMWNN$O:#$^$G$N$b$N$H$^$C$?$/F1$8$G(B $B$9!#(BLaTeX $BMQ$N%3%^%s%IL>$,Jd408uJd$H$7$FMQ0U$5$l$F$$$^$9!#(B + File: yatexj, Node: Arbitrary completion, Next: end$BJd40(B, Prev: maketitle$B7?Jd40(B, Up: Completion @@ -759,6 +802,7 @@ $B$rF~NO$9$l$P!"A4$F$NJd408uJd$NCf$+$i0lCW$9$k$b$N$,A*$P$l%+!<%=%k0LCV$KA^F~(B $B$5$l$^$9!#(B + File: yatexj, Node: end$BJd40(B, Next: Accent mark completion, Prev: Arbitrary completion, Up: Completion @@ -775,6 +819,7 @@ $B$H$9$k$3$H$G!"8=:_3+$$$F$$$k4D6-L>$G(B \end{} $B$,Jd$o$l$^$9!#(B + File: yatexj, Node: Accent mark completion, Next: Image completion, Prev: end$BJd40(B, Up: Completion @@ -801,6 +846,7 @@ $B$,40@.$5$l!"%+!<%=%k$O(B{}$B$N30$KLa$j$^$9!#(B + File: yatexj, Node: Image completion, Next: Greek letter completion, Prev: Accent mark completion, Up: Completion @@ -816,8 +862,8 @@ $B$N$h$&$K$7$^$9$,!"$3$l$rMxMQ$7$F!"?t<05-9f%$%a!<%8F~NO%b!<%I$G(B `\leftarrow'$B$rF~NO$9$k$K$O!"(B`;'($B%;%_%3%m%s(B)$B$rBG$C$F$+$i(B`<-'$B$HF~NO$7$^$9!#(B $BF1MM$K!"D9$$Lp0u"+(B-(long-leftarrow) $B$r(BASCII$BJ8;z$@$1$GI=8=$9$k>l9g!V(B<--$B!W$H(B -$B$9$k$N$G!"(B`\longleftarrow'$B$rF~NO$9$k$?$a$K$O!"(B`;<--'$B$HF~NO$7$^$9!#$"$k$$$O(B -$BL58BBg5-9f$r(BASCII$BJ8;z$@$1$GI=8=$9$k;~$O!V(Boo$B!W$N$h$&$K$9$k$3$H$+$i!"(B +$B$9$k$N$G!"(B`\longleftarrow'$B$rF~NO$9$k$?$a$K$O!"(B`;<--' $B$HF~NO$7$^$9!#$"$k$$(B +$B$OL58BBg5-9f$r(BASCII$BJ8;z$@$1$GI=8=$9$k;~$O!V(Boo$B!W$N$h$&$K$9$k$3$H$+$i!"(B `\infty' $B$rF~NO$9$k;~$O!"(B`;oo'$B$H%-!<F~NO$7$^$9!#(B $B$3$l$i$NA`:n$r$^$H$a$k$H<!$N$h$&$K$J$j$^$9!#(B @@ -855,9 +901,10 @@ $BF~NO%-!<$H(B LaTeX $B%3%^%s%I!"5-9f$NBP1~I=$r8D?ME*$K@_Dj$7$?$$>l9g$O(B Emacs-Lisp $BJQ?t(B `YaTeX-math-sign-alist-private' $B$KDj5A$7$F$/$@$5$$!#$=$NFb(B -$BMF$H%G%U%)%k%H$N$b$N$r9g$o$;$?$b$N$,BP1~I=$H$7$F;HMQ$5$l$^$9(B(private$B$NJ}$,(B -$BM%@h$5$l$k(B)$B!#$J$*!"$3$NJQ?t$N9=B$$K$D$$$F$O(B `yatexmth.el' $B$r;2>H$7$F$/$@$5(B -$B$$!#(B +$BMF$H%G%U%)%k%H$N$b$N$r9g$o$;$?$b$N$,BP1~I=$H$7$F;HMQ$5$l$^$9(B(private $B$NJ}(B +$B$,M%@h$5$l$k(B)$B!#$J$*!"$3$NJQ?t$N9=B$$K$D$$$F$O(B `yatexmth.el' $B$r;2>H$7$F$/$@(B +$B$5$$!#(B + File: yatexj, Node: Greek letter completion, Prev: Image completion, Up: Completion @@ -876,6 +923,7 @@ $B@)E*$K%$%a!<%8Jd40$KF~$k$3$H$,$G$-$^$9!#$^$?!"$3$N;~$K$I$N$h$&$J>uBV$G?t<0(B $B4D6-FbH=Dj$K<:GT$7$?$+$r$4O"Mm2<$5$$!#(B + File: yatexj, Node: Local dictionary, Next: Commenting out, Prev: Completion, Up: Top @@ -893,8 +941,9 @@ `foo' is not in table. Register into: U)serDic L)ocalDic N)one D)iscard $B$H$$$&%W%m%s%W%H$KBP$7!"(B`u'$B$HEz$($k$H!V%f!<%6<-=q!W$r!"(B`l'$B$HEz$($k$H%m!<%+(B -$B%k<-=q$r99?7$7!"(B`n'$B$HEz$($k$H<-=q%U%!%$%k$O99?7$;$:8=:_$N(BEmacs$B%;%C%7%g%s$N(B -$B$_M-8z$JC18l$H$7!"(B`d'$B$HEz$($k$H?7$?$JC18l$r3X=,$;$:$K<N$F$k$3$H$K$J$j$^$9!#(B +$B%k<-=q$r99?7$7!"(B`n'$B$HEz$($k$H<-=q%U%!%$%k$O99?7$;$:8=:_$N(BEmacs $B%;%C%7%g%s(B +$B$N$_M-8z$JC18l$H$7!"(B`d'$B$HEz$($k$H?7$?$JC18l$r3X=,$;$:$K<N$F$k$3$H$K$J$j$^(B +$B$9!#(B $B$b$7!"%m!<%+%k<-=q$N5!G=$O$$$i$:!"A4$F%f!<%6<-=q$N99?7$N$_$G$h$$$H8@$&>l(B $B9g$K$O(B`~/.emacs'$B$J$I$G!"(B @@ -903,6 +952,7 @@ $B$H$7$F2<$5$$!#(B + File: yatexj, Node: Commenting out, Next: Cursor jump, Prev: Local dictionary, Up: Top @@ -952,6 +1002,7 @@ `[preifx] >' $B$r2!$7$F$b%+!<%=%k$,(B `\begin{}' $B$N>e$K$"$k$H(B`\begin{}'$B!A(B `\end{}'$B%b!<%I$G%3%a%s%H5!G=$,F/$$$F$7$^$&$N$GCm0U$7$F2<$5$$!#(B + File: yatexj, Node: Cursor jump, Next: Modifying/Deleting, Prev: Commenting out, Up: Top @@ -967,6 +1018,7 @@ * $B4D6-$rC10L$H$7$?%8%c%s%W(B:: * $B:G8e$NJd400LCV$X$N%8%c%s%W(B:: + File: yatexj, Node: $BBP1~%*%V%8%'%/%H$X$N%8%c%s%W(B, Next: $B$*3(IA$-%D!<%k5/F0(B, Prev: Cursor jump, Up: Cursor jump @@ -1005,6 +1057,7 @@ $B$3$N5!G=$O(B `begin/end', `%#BEGIN/%#END' $B4V$N%8%c%s%W$KBP$7$F$O(B($B0UL#$,$J$$(B $B$H;W$o$l$k$N$G(B)$B5!G=$7$J$$$N$GCm0U$7$F$/$@$5$$!#(B + File: yatexj, Node: $B$*3(IA$-%D!<%k5/F0(B, Next: $B%a%$%s%U%!%$%k$X$N%8%c%s%W(B, Prev: $BBP1~%*%V%8%'%/%H$X$N%8%c%s%W(B, Up: Cursor jump @@ -1034,6 +1087,7 @@ $B2<$5$$!#$&$^$/@_Dj$9$k$H!"2hA|%U%!%$%k$K$+$.$i$:!"G$0U$N7A<0$N%U%!%$%k$rG$(B $B0U$N%W%m%;%C%5$G=hM}$9$k%3%^%s%I$r4JC1$K8F$S=P$9$3$H$,$G$-$^$9!#(B + File: yatexj, Node: $B%a%$%s%U%!%$%k$X$N%8%c%s%W(B, Next: $B4D6-$rC10L$H$7$?%8%c%s%W(B, Prev: $B$*3(IA$-%D!<%k5/F0(B, Up: Cursor jump @@ -1051,6 +1105,7 @@ $B%*!<%W%s$7$F$$$J$$>l9g$O!"%+%l%s%H%G%#%l%/%H%j$+$iC5$7$F<+F0E*$K%*!<%W%s$7(B $B$^$9!#(B + File: yatexj, Node: $B4D6-$rC10L$H$7$?%8%c%s%W(B, Next: $B:G8e$NJd400LCV$X$N%8%c%s%W(B, Prev: $B%a%$%s%U%!%$%k$X$N%8%c%s%W(B, Up: Cursor jump @@ -1069,6 +1124,7 @@ $B>e5-$N%3%^%s%I$ODL>o$N(B`[prefix]'$B%-!<$G$O$J$/(B`META'$B%-!<$r%W%j%U%#%/%9$H$7$F(B $B5!G=$9$k$N$G$4Cm0U2<$5$$!#(B + File: yatexj, Node: $B:G8e$NJd400LCV$X$N%8%c%s%W(B, Prev: $B4D6-$rC10L$H$7$?%8%c%s%W(B, Up: Cursor jump @@ -1079,6 +1135,7 @@ $B$k%U%!%$%k$NG!2?$J$k0LCV$K9T$C$?$H$7$F$b!"(B`C-x j 3'(`jump-to-register')$B$r(B $B;H$C$FD>$A$K:G8e$NJd40F~NO0LCV$KLa$k$3$H$,$G$-$^$9!#(B + File: yatexj, Node: Modifying/Deleting, Next: Filling, Prev: Cursor jump, Up: Top @@ -1101,6 +1158,7 @@ * Changing LaTeX command:: LaTeX $B%3%^%s%I$NJQ99(B * Killing LaTeX command:: LaTeX $B%3%^%s%I$N:o=|(B + File: yatexj, Node: Changing LaTeX command, Next: Killing LaTeX command, Prev: Modifying/Deleting, Up: Modifying/Deleting @@ -1123,6 +1181,7 @@ $B$+$i=|30$9$k$3$H$,$G$-$^$9!#(B + File: yatexj, Node: Killing LaTeX command, Prev: Changing LaTeX command, Up: Modifying/Deleting @@ -1150,6 +1209,7 @@ $BK\J8(B\footnote{$B5SCm(B}$B$G$9!#(B $BK\J85SCm$G$9!#(B $BK\J8$G$9!#(B $B",(B($B%+!<%=%k0LCV(B) + File: yatexj, Node: Filling, Next: Includeonly, Prev: Modifying/Deleting, Up: Top @@ -1206,6 +1266,7 @@ $B$h$j(B fill-prefix $B$r$$$A$$$AJQ99$7$J$/$F7eB7$($,$G$-$^$9!#(B + File: yatexj, Node: Includeonly, Next: What column, Prev: Filling, Up: Top @@ -1227,10 +1288,11 @@ A)dd R)eplace %)comment? -$B8=:_JT=8Cf$N%U%!%$%k$r(B `\includeonly' $B$N%j%9%H$K2C$($?$$;~$K$O(B`a'$B$r!"8=:_(B +$B8=:_JT=8Cf$N%U%!%$%k$r(B `\includeonly' $B$N%j%9%H$K2C$($?$$;~$K$O(B`a' $B$r!"8=:_(B $BJT=8Cf$N%U%!%$%k$@$1$r(B `\includeonly' $B$K$7$?$$;~$O(B`r'$B$r!"(B`\includeonly' $B$N(B $B9T$r%3%a%s%H%"%&%H$7$FL58z2=$7$?$$;~$K$O!"(B`%'$B$r$=$l$>$l2!$7$F2<$5$$!#(B + File: yatexj, Node: What column, Next: Intelligent newline, Prev: Includeonly, Up: Top @@ -1260,6 +1322,7 @@ $B$9!#$b$79`L\L>$H$7$FJL$N$b$N$rI=<($7$FM_$7$$>l9g$O!"9TF,$r(B`%'$B$K$7$F%@%_!<(B $B$N9`L\JB$S$r:n$C$F$*$/$HNI$$$G$7$g$&!#(B + File: yatexj, Node: Intelligent newline, Next: Usepackage cheker, Prev: What column, Up: Top @@ -1302,6 +1365,7 @@ $B$K$7$F$/$@$5$$!#(B + File: yatexj, Node: Usepackage cheker, Next: Changing mode of YaTeX, Prev: Intelligent newline, Up: Top @@ -1317,6 +1381,7 @@ $B72$r(Balist$B$N7A<0$GJQ?t(B `YaTeX-package-alist-private' $B$K@_Dj$7$F$*$/I,MW$,$"(B $B$j$^$9!#(B + File: yatexj, Node: Changing mode of YaTeX, Next: Online help, Prev: Usepackage cheker, Up: Top @@ -1342,6 +1407,7 @@ $B%I$r<jF0$G@Z$jBX$($k$HNI$$$G$7$g$&!#(B + File: yatexj, Node: Online help, Next: Inclusion hierarchy browser, Prev: Changing mode of YaTeX, Up: Top @@ -1383,6 +1449,7 @@ $B$9$k@bL@$r=q$$$?$J$i$P$<$R;d$^$G$=$N@bL@$r$*Aw$j2<$5$$!#<!2s$NG[I[$K4^$a$?(B $B$$$H;W$$$^$9!#(B + File: yatexj, Node: Inclusion hierarchy browser, Next: Cooperation with other packages, Prev: Online help, Up: Top @@ -1445,6 +1512,7 @@ $B$?$@$7!"NY$N%&%#%s%I%&$N%U%!%$%k$NFbMF$rI=<($9$k5!G=$K4X$7$F$O!"BP1~$9$k(B $B%U%!%$%k$r%/%m!<%:$7$F$7$^$&$H$&$^$/F/$-$^$;$s$N$G$4Cm0U$/$@$5$$!#(B + File: yatexj, Node: Cooperation with other packages, Next: Customizations, Prev: Inclusion hierarchy browser, Up: Top @@ -1467,6 +1535,7 @@ `min-out.el' (`outline-minor-mode') $B$HLnD;$rAH$_9g$o$;$F;H$&$3$H$b$b$A$m(B $B$s2DG=$G$9!#@_Dj$NJ}K!$K4X$7$F$O(B`yatexm-o.el'$B$r$4Mw$/$@$5$$!#(B + File: yatexj, Node: Customizations, Next: Etc, Prev: Cooperation with other packages, Up: Top @@ -1482,6 +1551,7 @@ * Lisp variables:: lisp $BJQ?t(B * Add-in functions:: $BIU2C4X?t(B($B%"%I%$%s4X?t(B) + File: yatexj, Node: Lisp variables, Next: Add-in functions, Prev: Customizations, Up: Customizations @@ -1503,6 +1573,7 @@ * Hook variables:: hook$BJQ?t(B * Hook file:: hook$BMQ%U%!%$%k(B + File: yatexj, Node: All customizable variables, Next: Sample definitions, Prev: Lisp variables, Up: Lisp variables @@ -1528,8 +1599,8 @@ $B3X=,$7$?(BLaTeX$B%3%^%s%IJ]B8%U%!%$%kL>(B (`"~/.yatexrc"') -- Variable: YaTeX-kanji-code - $BJ8=q$r:n@.$9$k;~$N4A;z%3!<%I(Bnil=$B4{B8$N%3!<%I$N$^$^(B - 0=no-conversion1=Shift JIS, 2=JIS, 3=EUC (2 (MS-DOS$B$G$O(B1)) + $BJ8=q$r:n@.$9$k;~$N4A;z%3!<%I(Bnil=$B4{B8$N%3!<%I$N$^$^(B 0=no-conversion + 1=Shift JIS, 2=JIS, 3=EUC, 4=UTF-8 (2 (MS-DOS$B$G$O(B1)) -- Variable: tex-command LaTeX$B%?%$%W%;%C%?%3%^%s%IL>(B (`"platex"') @@ -1551,6 +1622,9 @@ -- Variable: makeindex-command makeindex$B%3%^%s%I(B (`"makeindex"' (MS-DOS$B$G$O(B`"makeind"')) + -- Variable: YaTeX-dvipdf-command + dvi$B$r(BPDF$B$KJQ49$9$k%3%^%s%I(B (`"dvipdfmx"') + -- Variable: YaTeX-need-nonstop `\nonstopmode{}'$B$r<+F0E*$KIU2C$9$k$+(B (`nil') @@ -1652,7 +1726,7 @@ -- Variable: YaTeX-hilit-sectioning-attenuation-rate $B?'IU$1$,M-8z$J;~$N!"(B`\subparagraph' $B$N?'$r(B `\chapter' $B$NG;EY$N2?(B%$BGv$/(B - $B$7$?$b$N$K$9$k$+(B (`'(15 40)') `YaTeX-hilit-sectioning-face'$B$N9`;2>H!#(B + $B$7$?$b$N$K$9$k$+(B (`'(15 40)') `YaTeX-hilit-sectioning-face' $B$N9`;2>H!#(B -- Variable: YaTeX-use-AMS-LaTeX AMS-LaTeX $B$r;HMQ$9$k>l9g$O(B `t' $B$K@_Dj$9$k(B (`nil') @@ -1671,8 +1745,8 @@ (`(featurep 'font-lock)') -- Variable: YaTeX-use-hilit19 - $B%=!<%9$N?'$E$1%Q%C%1!<%8$H$7$F(B hilit19 $B$rMxMQ$9$k$+$I$&$+(B(`(featurep ' - hilit19)') + $B%=!<%9$N?'$E$1%Q%C%1!<%8$H$7$F(B hilit19 $B$rMxMQ$9$k$+$I$&$+(B(`(featurep + 'hilit19)') -- Variable: YaTeX-use-italic-bold italic, bold$B%U%)%s%H$rLnD;$,C5$9$+$I$&$+(B (Emacs20$B0J9_$J$i(B`t') @@ -1686,15 +1760,12 @@ LaTeX2e$B$N%Q%C%1!<%8L>$H$=$NCf$K4^$^$l$k%^%/%m$N%j%9%H!#E,@Z$K@_Dj$7$F(B $B$*$/$HK\J8F~NO;~$K%^%/%m$rJd40F~NO$9$k$H$=$N%^%/%m$KI,MW$J%Q%C%1!<%8(B $B$r(B usepackage $B$9$k$+<+F0E*$K8!::$7$F$/$l$k!#$7$F$$$J$1$l$P(B - \usepackage $B$r<+F0DI2C$9$k$3$H$b$G$-$k!#%j%9%H$O(B - '(($B%Q%C%1!<%8L>(B1 - ($BJd40%?%$%W(B $B%^%/%m$N%j%9%H!D!D(B) - ($BJd40%?%$%W(B $B%^%/%m$N%j%9%H!D!D(B)) - ($B%Q%C%1!<%8L>(B2 - ($BJd40%?%$%W(B $B%^%/%m$N%j%9%H!D!D(B) - ($BJd40%?%$%W(B $B%^%/%m$N%j%9%H!D!D(B))$B!D!D!D(B)$B$H$$$&7A<0$K$9$k!#(B - $BJd40%?%$%W$O(B `env, section, maketitle' $B$N$I$l$+!#6qBNNc$OJQ?t(B - `YaTeX-package-alist-default'$B$NCM;2>H!#(B + \usepackage $B$r<+F0DI2C$9$k$3$H$b$G$-$k!#%j%9%H$O(B'(($B%Q%C%1!<%8L>(B1 ($BJd(B + $B40%?%$%W(B $B%^%/%m$N%j%9%H!D!D(B) ($BJd40%?%$%W(B $B%^%/%m$N%j%9%H!D!D(B)) ($B%Q%C%1!<(B + $B%8L>(B2 ($BJd40%?%$%W(B $B%^%/%m$N%j%9%H!D!D(B) ($BJd40%?%$%W(B $B%^%/%m$N%j%9(B + $B%H!D!D(B))$B!D!D!D(B) $B$H$$$&7A<0$K$9$k!#Jd40%?%$%W$O(B `env, section, + maketitle' $B$N$I$l$+!#6qBNNc$OJQ?t(B `YaTeX-package-alist-default' $B$NCM(B + $B;2>H!#(B -- Variable: YaTeX-tabular-indentation tabular/array $B4D6-$G8=:_9T$N@hF,0LCV$,I=$NBh(BN$B%+%i%`$N$H$-$OI8=`%$%s%G(B @@ -1731,6 +1802,7 @@ (concat command ":" value) (YaTeX::ref-generate-label nil nil)))) + File: yatexj, Node: Sample definitions, Next: Hook variables, Prev: All customizable variables, Up: Lisp variables @@ -1747,6 +1819,7 @@ $B$r(B `~/.emacs' $B$K2C$($^$9!#(B + File: yatexj, Node: Hook variables, Next: Hook file, Prev: Sample definitions, Up: Lisp variables @@ -1764,8 +1837,8 @@ '(lambda () (outline-minor-mode t))) $B5U$K!"FH<+$N%-!<Dj5A$r9T$$$?$$;~$J$I$O!"(B`yatex-mode-load-hook' $B$rMxMQ$7$^(B -$B$9!#Nc$($P!"(Bbegin $B7?Jd40$K$*$$$F!"(B document $B$d!"(Benumerate $B0J30$N4D6-L>$b%7%g!<(B -$B%H%+%C%H%-!<$GF~$l$?$$$J$I$H$$$&;~$O!"<!$N$h$&$K$7$^$9!#0J2<$NNc$O!"(B +$B$9!#Nc$($P!"(Bbegin $B7?Jd40$K$*$$$F!"(B document $B$d!"(Benumerate $B0J30$N4D6-L>$b(B +$B%7%g!<%H%+%C%H%-!<$GF~$l$?$$$J$I$H$$$&;~$O!"<!$N$h$&$K$7$^$9!#0J2<$NNc$O!"(B `[prefix] ba' $B$G(B `\begin{abstract}', `\end{abstract}' $B$rA^F~$7$^$9!#(B (setq yatex-mode-load-hook @@ -1774,6 +1847,7 @@ $B$J$*!"?7$?$J%-!<$NDj5A$K$O!"4X?t(B `YaTeX-define-key' `YaTeX-define-begend-key'$B$rMxMQ$9$k$h$&$K$7$F$/$@$5$$!#(B + File: yatexj, Node: Hook file, Prev: Hook variables, Up: Lisp variables @@ -1785,6 +1859,7 @@ $B%I$7$^$9!#(B + File: yatexj, Node: Add-in functions, Prev: Lisp variables, Up: Customizations @@ -1795,6 +1870,7 @@ $B$k$?$a$N4X?t$r:n@.$9$k$3$H$,$G$-$^$9!#$3$N4X?t$N:n@.J}K!$d!"AH$_9~$_J}K!$K(B $B4X$7$F$O!"(B`yatexadd.doc' $B$r$4Mw$/$@$5$$!#(B + File: yatexj, Node: Etc, Next: Copying, Prev: Customizations, Up: Top @@ -1807,6 +1883,7 @@ $B<-=q$K$J$$%3%^%s%I$b!"$G$-$k$@$1Jd40F~NOJ}<0$rMxMQ$7!"%f!<%6<-=q$r=<<B$5$;(B $B$k$3$H$G!"$"$J$?$N(B LaTeX $B%9%?%$%k$K$"$C$?LnD;$X$H0i$C$F$$$/$3$H$G$7$g$&!#(B + File: yatexj, Node: Copying, Next: Concept Index, Prev: Etc, Up: Top @@ -1824,13 +1901,14 @@ $B6l>p!"4uK>!"%P%0Js9p!"46A[Ey$O4?7^$$$?$7$^$9!#O"Mm$O(B yuuji@yatex.org $B$^(B $B$G(B(2004$BG/(B1$B7n8=:_(B)$B!#7QB3E*$K;HMQ$7$F$/$@$5$kJ}$O%a%$%j%s%0%j%9%H!V(Bfj$BLnD;$N(B -$B2q!W$K@'Hs2CF~$7$F$/$@$5$$!#2CF~J}K!$K$D$$$F$OK\%Q%C%1!<%8$N(B `docs/qanda' +$B2q!W$K@'Hs2CF~$7$F$/$@$5$$!#2CF~J}K!$K$D$$$F$OK\%Q%C%1!<%8$N(B `docs/qanda' $B%U%!%$%k$N!V$=$NB>!W$N>O$r8fMw$/$@$5$$!#(B $B;EMM$O!"M=9p$J$/3N<B$K(B($B5$J,<!Bh$G(B)$BJQ99$5$l$^$9(B:-p$B!#(B $B9-@%M:Fs(B + File: yatexj, Node: Concept Index, Prev: Copying, Up: Top @@ -1841,117 +1919,114 @@ * :: Greek letter completion. 4. * ;: Image completion. 4. +* ,C0(B[,B5-\(B]: Image completion. 4. +* 括,Bi(B[,B--i(B]: Enclose section-type command. 4. +* 括,Bi(B[,B--i(B]: large型補(J.(B. 21. +* ,Hx数(B[,BP+7$(B]: 2,LB,HH(B上,BL,Hx数,BpFi(B section型コマンド. 4. +* (I"(Bｶ[,B($Sq(B]: Accent mark completion. 4. +* ;自身[;,B55q(B]: Image completion. 31. +* ∞[,B^/q="(B]: Image completion. 4. +* 矢,Hs(B[,Bb5i5(B]: Image completion. 4. +* ブロック[,BSkB-(B]: begin型補(J.(B. 81. +* ヒストリ[,BP7Fh(B]: Cooperation with other packages. 8. +* 桁揃,B&(B[,B/=;k&(B]: Filling. 4. +* ,Bb?e$(B[,Bb?f$(B]: Intro. 4. +* ジャンプ[,B5bqS(B]: view-sectioning. 42. +* &入力[&,BId$hf-(B]: Intelligent newline. 4. +* 設定例[,B9BD"j"(B]: Sample definitions. 4. +* 随時補(J.(B[,B7"5Y)q(B]: Arbitrary completion. 4. +* 閉,B6(B,B_i(B[,BF51_i(B]: begin型補(J.(B. 81. +* ,MD(B帰補(J.(B[,B3"+Y)q(B]: Recursive completion. 4. +* ユーザ辞書[,Bd$355f(B]: begin型補(J.(B. 71. +* 論理階層[,Bkqh)";$(B]: view-sectioning. 42. +* ,B11MG1(B?[,B11MF1(B?]: What column. 4. +* ,B((BG描,B+(Bcール起動[,B(&)+B$i+F$(B]: ,B((BG描,B+(Bcール起動. 4. +* (JB(B境,BL(B謫ｪ,BV(B[,B)q+f$L9qF$V(B]: (JB(B境,Bp(BP,HJ,BF5=(BWャンプ. 7. +* (JB(B境,BL末(B,BV(B[,B)q+f$L\BPV(B]: (JB(B境,Bp(BP,HJ,BF5=(BWャンプ. 7. +* (JB(B境,Bp(B}ーク[,B)q+f$p\ -(B]: (JB(B境,Bp(BP,HJ,BF5=(BWャンプ. 7. +* カスタマイズ[,B)7=\"7(B]: Customizations. 4. +* キーアサイン[,B+" 3"q(B]: Customizations. 4. +* 数式モード[,B7$5+`(F(B]: Image completion. 4. +* インストール[,B"q7F(i(B]: Installation. 4. +* タイプセッタ[,B="S9B=(B]: Invocation. 4. +* プレヴューア[,BSjPd$ (B]: Invocation. 4. +* アウトライン[,B $Fg"q(B]: view-sectioning. 4. +* ,Hx数,BL,LB数,Bp(Bﾏ,B&i(B[,BP+7$L17$p)&i(B]: 2,LB,HH(B上,BL,Hx数,BpFi(B section型コマンド. 24. +* アクセント記号補(J.(B[,B -9qF+1$Y)q(B]: Accent mark completion. 4. +* カスタマイズ変数,Hj(B覧[,B)7=\"7Vq7$"?gq(B]: All customizable variables. 4. +* (JB(B境名,BL(B(J.(B[,B)q+f$_"LY)q(B]: begin型補(J.(B. 4. +* エラー修正[,B&g 5d$9"(B]: Calling typesetter. 4. +* タイプセッタ起動[,B="S9B=+F$(B]: Calling typesetter. 4. +* タイプセットエラー[,B="S9BF&g (B]: Calling typesetter. 4. +* (JB(B境名,BL(Bﾏ更[,B)q+f$_"LVq1$(B]: Changing LaTeX command. 20. +* モード切,Bh(Bﾖ,B&(B[,B`$F+h)&(B]: Changing mode of YaTeX. 4. +* タイプセッタ,BL(B使,B"(Bｪ,B/(B[,B="S9B=LB)"m/(B]: Changing typesetter. 12. +* 起動,B7i(BRマンド,Bp(Bﾏ,B&i(B[,B+F$7i1\qFp)&i(B]: Changing typesetter. 7. +* コメントアウト[,B1_qF $F(B]: Commenting out. 4. +* 他パッケージ,BFL(BA携[,B=MB/&5FLjq/"(B]: Cooperation with other packages. 4. +* コマンドヒストリ[,B1\qFP7Fh(B]: Cooperation with other packages. 8. +* カーソルジャンプ[,B) ;i5bqS(B]: Cursor jump. 4. +* %#記法自体,BL(Bﾒ集[%#,B+Y$5="LVq5d$(B]: Editing %# notation. 4. +* パラグラフ,BL桁(Bｵ,B&(B[,BMg-gSL/=;k&(B]: Filling. 46. +* 領,Hf決(B闍K則[,Bhf$"+/BD"+;-(B]: Fix region for typesetting. 25. +* 長,B"(Btァイル,BL(Bﾒ集[,BH)"S "iLVq5d$(B]: Fix region for typesetting. 34. +* ,LE(B阯ﾌ,Hf,BL(B^イプセット[,B1D"hf$"+L="S9BF(B]: Fix region for typesetting. 4. +* ギリシャ文字補(J.(B[,B+h5b`5Y)q(B]: Greek letter completion. 4. +* イメージ補(J.(B[,B"_&5Y)q(B]: Image completion. 4. +* 数式記号イメージ補(J.(B[,B7$5++1$"_&5Y)q(B]: Image completion. 4. +* 他,BL(Btァイル,BL(B手直,B5(B[,BY)LS "iLDH(5(B]: Includeonly. 11. +* インクルード構造[,B"q-i$F1$;$(B]: Inclusion hierarchy browser. 4. +* ,B(\)9(I|(Bs[,B(\)9)"+f$(B]: Intelligent newline. 4. +* プリントアウト[,BShqF $F(B]: Invocation. 4. +* (JB(B境,BL,Mm(B除[,B)q+f$L3-5f(B]: Killing LaTeX command. 6. +* ラベル自動生成[,BgVi5F$9"9"(B]: label-generation. 4. +* フォント指定子[,BS(qF5D"5(B]: large型補(J.(B. 17. +* 文字サイズ指定子[,B`53"75D"5(B]: large型補(J.(B. 17. +* ローカル辞書[,Bk()i55f(B]: Local dictionary. 4. +* 変更/,Mm(B除[,BVq1$(B/,B3-5f(B]: Modifying/Deleting. 4. +* グローバルヘルプ[,B-k(MiViS(B]: Online help. 16. +* オンラインヘルプ[,B(qg"qViS(B]: Online help. 4. +* キーワード検,Mu(B[,B+"m F/q3-(B]: Online help. 4. +* プライベートヘルプ[,BSg"V&FViS(B]: Online help. 16. +* 入力ファイル分割[,BId$hf-S "iSq)B(B]: Splitting input files. 11. +* セクション区切,Bh,Hj(B覧バッファ[,B9-5fq-+h"?gqMBS (B]: view-sectioning. 18. +* セクション区切,Bh(B[,B9-5fq-+h(B]: view-sectioning. 42. +* ,L;,M],BL(BJラム表示[,B/q3"L)g^Pf$5(B]: What column. 22. * apropos: Online help. 4. * autoload: Installation. 4. * auto-mode-alist: Installation. 4. -* $B%0%m!<%P%k%X%k%W(B[$B$/$m$*$O$k$X$k$U(B]: Online help. 16. -* $B0z?t(B[$B$R$-$9$&(B]: 2$B8D0J>e$N0z?t$r$H$k(B section$B7?%3%^%s%I(B. 4. -* $B0z?t$N8D?t$rJQ$($k(B[$B$R$-$9$&$N$3$9$&$r$+$($k(B]: 2$B8D0J>e$N0z?t$r$H$k(B section$B7?%3%^%s%I(B. 24. -* $B$*$^$+$;2~9T(B[$B$*$^$+$;$+$$$-$h$&(B]: Intelligent newline. 4. -* $B&2(B[$B$7$/$^(B]: Image completion. 4. -* $B2$J8(B[$B$*$&$U$s(B]: Accent mark completion. 4. -* $B$3$3$O$I$3(B?[$B$3$3$O$H$3(B?]: What column. 4. -* $B%3%a%s%H%"%&%H(B[$B$3$a$s$H$"$&$H(B]: Commenting out. 4. -* $B3g$k(B[$B$/$/$k(B]: Enclose section-type command. 4. -* $B3g$k(B[$B$/$/$k(B]: large$B7?Jd40(B. 21. -* $B$*3(IA$-%D!<%k5/F0(B[$B$*$($+$-$D$&$k$-$H$&(B]: $B$*3(IA$-%D!<%k5/F0(B. 4. -* $B%3%^%s%I%R%9%H%j(B[$B$3$^$s$H$R$9$H$j(B]: Cooperation with other packages. 8. -* $B4D6-L>$NJd40(B[$B$+$s$-$h$&$a$$$N$[$+$s(B]: begin$B7?Jd40(B. 4. -* $B4D6-L>$NJQ99(B[$B$+$s$-$h$&$a$$$N$X$s$3$&(B]: Changing LaTeX command. 20. -* $B4D6-$N@hF,$X(B[$B$+$s$-$h$&$N$;$s$H$&$X(B]: $B4D6-$rC10L$H$7$?%8%c%s%W(B. 7. -* $B4D6-$NKvHx$X(B[$B$+$s$-$h$&$N$^$D$R$X(B]: $B4D6-$rC10L$H$7$?%8%c%s%W(B. 7. -* $B4D6-$N:o=|(B[$B$+$s$-$h$&$N$5$/$7$h(B]: Killing LaTeX command. 6. -* $B4D6-$r%^!<%/(B[$B$+$s$-$h$&$r$^$"$/(B]: $B4D6-$rC10L$H$7$?%8%c%s%W(B. 7. -* $B5/F0$9$k%3%^%s%I$rJQ$($k(B[$B$-$H$&$9$k$3$^$s$H$r$+$($k(B]: Changing typesetter. 7. -* %#$B5-K!<+BN$NJT=8(B[%#$B$-$[$&$7$?$$$N$X$s$7$f$&(B]: Editing %# notation. 4. -* $B%-!<%"%5%$%s(B[$B$-$$$"$5$$$s(B]: Customizations. 4. -* $B7eB7$((B[$B$1$?$=$m$((B]: Filling. 4. -* $B%;%/%7%g%s6h@Z$j0lMw%P%C%U%!(B[$B$;$/$7$h$s$/$-$j$$$A$i$s$O$D$U$"(B]: view-sectioning. 18. -* $B%;%/%7%g%s6h@Z$j(B[$B$;$/$7$h$s$/$-$j(B]: view-sectioning. 42. -* $B%8%c%s%W(B[$B$7$d$s$U(B]: view-sectioning. 42. -* $B8GDjNN0h$N%?%$%W%;%C%H(B[$B$3$F$$$j$h$&$$$-$N$?$$$U$;$D$H(B]: Fix region for typesetting. 4. -* $B8=:_$N%+%i%`I=<((B[$B$1$s$5$$$N$+$i$`$R$h$&$7(B]: What column. 22. -* $B%+%9%?%^%$%:(B[$B$+$9$?$^$$$9(B]: Customizations. 4. -* $B%+%9%?%^%$%:JQ?t0lMw(B[$B$+$9$?$^$$$9$X$s$9$&$$$A$i$s(B]: All customizable variables. 4. -* $B%$%a!<%8Jd40(B[$B$$$a$($7$[$+$s(B]: Image completion. 4. -* $B%b!<%I@Z$jBX$((B[$B$b$&$H$-$j$+$((B]: Changing mode of YaTeX. 4. -* $BB>$N%U%!%$%k$N<jD>$7(B[$B$[$+$N$U$"$$$k$N$F$J$*$7(B]: Includeonly. 11. -* $BB>%Q%C%1!<%8$H$NO"7H(B[$B$?$O$D$1$($7$H$N$l$s$1$$(B]: Cooperation with other packages. 4. -* $BD9$$%U%!%$%k$NJT=8(B[$B$J$+$$$U$"$$$k$N$X$s$7$f$&(B]: Fix region for typesetting. 34. -* $B$d$A$g$&(B[$B$d$A$h$&(B]: Intro. 4. -* $B@_DjNc(B[$B$;$D$F$$$l$$(B]: Sample definitions. 4. * %#BEGIN: Fix region for typesetting. 4. -* begin$B7?Jd40(B[begin$B$+$?$[$+$s(B]: begin$B7?Jd40(B. 4. -* $B:F5"Jd40(B[$B$5$$$-$[$+$s(B]: Recursive completion. 4. -* $B%f!<%6<-=q(B[$B$f$&$5$7$7$h(B]: begin$B7?Jd40(B. 71. -* &$BF~NO(B[&$B$K$f$&$j$h$/(B]: Intelligent newline. 4. -* $BF~NO%U%!%$%kJ,3d(B[$B$K$f$&$j$h$/$U$"$$$k$U$s$+$D(B]: Splitting input files. 11. -* $B!g(B[$B$`$1$s$?$$(B]: Image completion. 4. -* $B@h2s$j(Busepackage[$B$5$-$^$o$j(B]: Usepackage cheker. 4. -* ;$B<+?H(B[;$B$7$7$s(B]: Image completion. 31. -* $B%"%&%H%i%$%s(B[$B$"$&$H$i$$$s(B]: view-sectioning. 4. -* $B%(%i!<=$@5(B[$B$($i$"$7$f$&$;$$(B]: Calling typesetter. 4. -* $B%i%Y%k<+F0@8@.(B[$B$i$X$k$7$H$&$;$$$;$$(B]: label-generation. 4. -* $B%.%j%7%cJ8;zJd40(B[$B$-$j$7$d$b$7$[$+$s(B]: Greek letter completion. 4. -* $BJ8;z%5%$%:;XDj;R(B[$B$b$7$5$$$9$7$F$$$7(B]: large$B7?Jd40(B. 17. -* $BJD$89~$a$k(B[$B$H$7$3$a$k(B]: begin$B7?Jd40(B. 81. -* $BJ#;($J(Btabular[$B$U$/$5$D$J(Btabular]: What column. 4. -* $B>!<j$K(Bincludeonly[$B$+$D$F$K(Bincludeonly]: Includeonly. 4. -* $BJQ99(B/$B:o=|(B[$B$X$s$3$&(B/$B$5$/$7$h(B]: Modifying/Deleting. 4. -* $B%+!<%=%k%8%c%s%W(B[$B$+$"$=$k$7$d$s$U(B]: Cursor jump. 4. -* $BLp0u(B[$B$d$7$k$7(B]: Image completion. 4. -* $B%m!<%+%k<-=q(B[$B$m$*$+$k$7$7$h(B]: Local dictionary. 4. -* $BNN0h7hDj5,B'(B[$B$j$h$&$$$-$1$D$F$$$-$=$/(B]: Fix region for typesetting. 25. -* $B%-!<%o!<%I8!:w(B[$B$-$$$o$"$H$1$s$5$/(B]: Online help. 4. -* $B?o;~Jd40(B[$B$9$$$7$[$+$s(B]: Arbitrary completion. 4. -* $BO@M}3,AX(B[$B$m$s$j$+$$$=$&(B]: view-sectioning. 42. -* $B=PNO3+;O%Z!<%8(B[$B$7$f$D$j$h$/$+$$$7$X$($7(B]: Print out. 9. -* $B=PNO=*N;%Z!<%8(B[$B$7$f$D$j$h$/$7$f$&$j$h$&$X$($7(B]: Print out. 9. -* $B%Q%i%0%i%U$N7eB7$((B[$B$O$i$/$i$U$N$1$?$=$m$((B]: Filling. 46. -* $B%R%9%H%j(B[$B$R$9$H$j(B]: Cooperation with other packages. 8. -* $B%$%s%9%H!<%k(B[$B$$$s$9$H$*$k(B]: Installation. 4. -* $B%"%/%;%s%H5-9fJd40(B[$B$"$/$;$s$H$-$3$&$[$+$s(B]: Accent mark completion. 4. -* $B%*%s%i%$%s%X%k%W(B[$B$*$s$i$$$s$X$k$U(B]: Online help. 4. -* $B%$%s%/%k!<%I9=B$(B[$B$$$s$/$k$&$H$3$&$=$&(B]: Inclusion hierarchy browser. 4. -* $B?t<05-9f%$%a!<%8Jd40(B[$B$9$&$7$-$-$3$&$$$a$($7$[$+$s(B]: Image completion. 4. -* $B?t<0%b!<%I(B[$B$9$&$7$-$b$*$H(B]: Image completion. 4. -* $B%U%)%s%H;XDj;R(B[$B$U$*$s$H$7$F$$$7(B]: large$B7?Jd40(B. 17. -* $B%V%m%C%/(B[$B$U$m$D$/(B]: begin$B7?Jd40(B. 81. -* $B%?%$%W%;%C%?5/F0(B[$B$?$$$U$;$D$?$-$H$&(B]: Calling typesetter. 4. -* $B%?%$%W%;%C%?(B[$B$?$$$U$;$D$?(B]: Invocation. 4. -* $B%?%$%W%;%C%H%(%i!<(B[$B$?$$$U$;$D$H$($i$"(B]: Calling typesetter. 4. -* $B%?%$%W%;%C%?$N;H$$J,$1(B[$B$?$$$U$;$D$?$N$D$+$$$o$1(B]: Changing typesetter. 12. -* $B%W%i%$%Y!<%H%X%k%W(B[$B$U$i$$$X$($H$X$k$U(B]: Online help. 16. -* $B%W%j%s%H%"%&%H(B[$B$U$j$s$H$"$&$H(B]: Invocation. 4. -* $B%W%l%t%e!<%"(B[$B$U$l$R$f$&$"(B]: Invocation. 4. -* $B%Z!<%83NG'>JN,(Blpr$B5/F0(B[$B$X$($7$+$/$K$s$7$h$&$j$d$/(Blpr$B$-$H$&(B]: Print out. 12. +* begin型補(J.(B[begin,B)=Y)q(B]: begin型補(J.(B. 4. * C-c: Invocation. 4. * Demacs: Intro. 4. * .emacs: Installation. 4. * %#END: Fix region for typesetting. 4. -* end$BJd40(B[end$B$[$+$s(B]: end$BJd40(B. 4. +* end補(J.(B[end,BY)q(B]: end補(J.(B. 4. * ghostview: Splitting input files. 16. * gmhist: Cooperation with other packages. 8. -* hook$BJQ?t(B[hook$B$X$s$9$&(B]: Hook variables. 4. +* hook変数[hook,BVq7$(B]: Hook variables. 4. +* 出力終了ページ[,B5dBhf-5d$hf$V&5(B]: Print out. 9. * includeonly: Includeonly. 4. * Install: Installation. 4. -* item$B$J$I$N7eB7$((B[item$B$J$H$N$1$?$=$m$((B]: Filling. 8. +* item,BHGL桁(Bｵ,B&(B[item,BHFL/=;k&(B]: Filling. 8. +* 出力開始ページ[,B5dBhf-)"5V&5(B]: Print out. 9. * jlatex: Invocation. 4. -* large$B7?Jd40(B[large$B$+$?$[$+$s(B]: large$B7?Jd40(B. 4. +* large型補(J.(B[large,B)=Y)q(B]: large型補(J.(B. 4. * LaTeX: Intro. 4. * leftarrow: Image completion. 4. * lpr format: lpr format. 4. -* lpr$B$U$)!<$^$C$H(B[lpr$B$U$*$*$^$D$H(B]: lpr format. 4. -* lpr$B%U%)!<%^%C%H(B[lpr$B$U$*$*$^$D$H(B]: lpr format. 4. -* lpr$B%U%)!<%^%C%H$NJQ99(B[lpr$B$U$*$*$^$D$H$N$X$s$3$&(B]: Editing %# notation. 18. -* maketitle$B7?Jd40(B[maketitle$B$+$?$[$+$s(B]: maketitle$B7?Jd40(B. 4. -* M-C-@: $B4D6-$rC10L$H$7$?%8%c%s%W(B. 7. -* M-C-a: $B4D6-$rC10L$H$7$?%8%c%s%W(B. 7. -* M-C-e: $B4D6-$rC10L$H$7$?%8%c%s%W(B. 7. +* lprフォーマット,BL(Bﾏ更[lpr,BS((\BFLVq1$(B]: Editing %# notation. 18. +* lpr,BS'(B[,B\AF(B[lpr,BS((\BF(B]: lpr format. 4. +* lprフォーマット[lpr,BS((\BF(B]: lpr format. 4. +* maketitle型補(J.(B[maketitle,B)=Y)q(B]: maketitle型補(J.(B. 4. +* M-C-@: (JB(B境,Bp(BP,HJ,BF5=(BWャンプ. 7. +* M-C-a: (JB(B境,Bp(BP,HJ,BF5=(BWャンプ. 7. +* M-C-e: (JB(B境,Bp(BP,HJ,BF5=(BWャンプ. 7. * min-out: Cooperation with other packages. 17. * M-q: Filling. 46. * Mule: Intro. 4. -* NTT-jTeX[$B$($L$F$$$$$F$$$$$7$($$$F$D$/(B]: Filling. 16. +* 勝手,BI(Bincludeonly[,B)BDI(Bincludeonly]: Includeonly. 4. +* NTT-jTeX[,B&JD""D""5&"DB-(B]: Filling. 16. * platex: Invocation. 4. * prefix ,: Commenting out. 4. * prefix .: Commenting out. 4. @@ -1961,93 +2036,97 @@ * prefix ?: Online help. 4. * prefix &: What column. 4. * prefix a: Accent mark completion. 4. -* prefix b: begin$B7?Jd40(B. 4. +* prefix b: begin型補(J.(B. 4. * prefix c: Modifying/Deleting. 4. * prefix d: Inclusion hierarchy browser. 4. -* prefix e: end$BJd40(B. 4. +* prefix e: end補(J.(B. 4. * prefix g: Cursor jump. 4. * prefix i: Filling. 8. * prefix k: Modifying/Deleting. 4. * prefix key: Invocation. 4. -* prefix l: large$B7?Jd40(B. 4. -* prefix m: maketitle$B7?Jd40(B. 4. -* prefix s: section$B7?Jd40(B. 4. +* prefix l: large型補(J.(B. 4. +* prefix m: maketitle型補(J.(B. 4. +* prefix s: section型補(J.(B. 4. * prefix SPC: Arbitrary completion. 4. * prefix w: Changing mode of YaTeX. 4. -* prefix$B%-!<JQ99(B[prefix$B$-$$$X$s$3$&(B]: Lisp variables. 4. -* section$B7?Jd40(B[section$B$+$?$[$+$s(B]: section$B7?Jd40(B. 4. +* prefixキー変更[prefix,B+"Vq1$(B]: Lisp variables. 4. +* ページ確認省略lpr起動[,BV&5)-Iq5f$hb-(Blpr,B+F$(B]: Print out. 12. +* section型補(J.(B[section,B)=Y)q(B]: section型補(J.(B. 4. +* 複雑,BH(Btabular[,BS-3BH(Btabular]: What column. 4. +* 先(Iq,Bh(Busepackage[,B3+\mh(B]: Usepackage cheker. 4. * YaTeX-help-file: Online help. 16. * YaTeX-help-file-private: Online help. 16. * YaTeX-item-regexp: Filling. 20. * YaTeX-math-sign-alist-private: Image completion. 56. * yatex-mode-hook: Hook variables. 4. * yatex-mode-load-hook: Hook variables. 4. -* YaTeX-nervous: Local dictionary. 21. +* YaTeX-nervous: Local dictionary. 22. * .yatexrc: Local dictionary. 4. + Tag table: -Node: Top153 -Node: Intro1496 -Node: Terminology2066 -Node: Main features3186 -Node: Installation5035 -Node: Invocation7121 -Node: Calling typesetter8100 -Node: Calling previewer10257 -Node: Print out10854 -Node: %#notation11299 -Node: Changing typesetter11866 -Node: Splitting input files12255 -Node: Fix region for typesetting14160 -Node: lpr format15905 -Node: Editing %# notation17305 -Node: Completion18057 -Node: begin$B7?Jd40(B18701 -Node: section$B7?Jd40(B22831 -Node: 2$B8D0J>e$N0z?t$r$H$k(B section$B7?%3%^%s%I(B24617 -Node: Enclose section-type command26115 -Node: Recursive completion26515 -Node: view-sectioning27067 -Node: label-generation29528 -Node: large$B7?Jd40(B30273 -Node: maketitle$B7?Jd40(B31400 -Node: Arbitrary completion31882 -Node: end$BJd40(B32488 -Node: Accent mark completion33125 -Node: Image completion33856 -Node: Greek letter completion37390 -Node: Local dictionary38385 -Node: Commenting out39625 -Node: Cursor jump41857 -Node: $BBP1~%*%V%8%'%/%H$X$N%8%c%s%W(B42231 -Node: $B$*3(IA$-%D!<%k5/F0(B44128 -Node: $B%a%$%s%U%!%$%k$X$N%8%c%s%W(B46093 -Node: $B4D6-$rC10L$H$7$?%8%c%s%W(B46762 -Node: $B:G8e$NJd400LCV$X$N%8%c%s%W(B47426 -Node: Modifying/Deleting47904 -Node: Changing LaTeX command48558 -Node: Killing LaTeX command49574 -Node: Filling51007 -Node: Includeonly53476 -Node: What column54565 -Node: Intelligent newline55914 -Node: Usepackage cheker57849 -Node: Changing mode of YaTeX58630 -Node: Online help59777 -Node: Inclusion hierarchy browser61920 -Node: Cooperation with other packages64375 -Node: Customizations65133 -Node: Lisp variables65619 -Node: All customizable variables66653 -Node: Sample definitions77680 -Node: Hook variables78259 -Node: Hook file79619 -Node: Add-in functions79954 -Node: Etc80372 -Node: Copying81013 -Node: Concept Index82458 +Node: Top146 +Node: Intro1200 +Node: Terminology1503 +Node: Main features2138 +Node: Installation3171 +Node: Invocation4390 +Node: Calling typesetter5214 +Node: Calling previewer6452 +Node: Print out6768 +Node: %#notation7034 +Node: Changing typesetter7408 +Node: Splitting input files7666 +Node: Fix region for typesetting8615 +Node: lpr format9516 +Node: Editing %# notation10309 +Node: Completion10742 +Node: begin$B7?Jd40(B11215 +Node: section$B7?Jd40(B13800 +Node: 2$B8D0J>e$N0z?t$r$H$k(B section$B7?%3%^%s%I(B14895 +Node: Enclose section-type command15712 +Node: Recursive completion15949 +Node: view-sectioning16255 +Node: label-generation17451 +Node: large$B7?Jd40(B17801 +Node: maketitle$B7?Jd40(B18381 +Node: Arbitrary completion18680 +Node: end$BJd40(B18993 +Node: Accent mark completion19335 +Node: Image completion19761 +Node: Greek letter completion21578 +Node: Local dictionary22038 +Node: Commenting out22643 +Node: Cursor jump23802 +Node: $BBP1~%*%V%8%'%/%H$X$N%8%c%s%W(B24039 +Node: $B$*3(IA$-%D!<%k5/F0(B25027 +Node: $B%a%$%s%U%!%$%k$X$N%8%c%s%W(B25947 +Node: $B4D6-$rC10L$H$7$?%8%c%s%W(B26283 +Node: $B:G8e$NJd400LCV$X$N%8%c%s%W(B26640 +Node: Modifying/Deleting26877 +Node: Changing LaTeX command27282 +Node: Killing LaTeX command27833 +Node: Filling28703 +Node: Includeonly30031 +Node: What column30590 +Node: Intelligent newline31368 +Node: Usepackage cheker32400 +Node: Changing mode of YaTeX32826 +Node: Online help33402 +Node: Inclusion hierarchy browser34378 +Node: Cooperation with other packages35656 +Node: Customizations36111 +Node: Lisp variables36408 +Node: All customizable variables37015 +Node: Sample definitions44315 +Node: Hook variables44749 +Node: Hook file45642 +Node: Add-in functions45848 +Node: Etc46075 +Node: Copying46359 +Node: Concept Index46990 End tag table
--- a/docs/yatexj.tex Mon Sep 28 12:48:28 2009 +0900 +++ b/docs/yatexj.tex Thu Jan 12 12:26:35 2012 +0900 @@ -10,7 +10,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 Wed Jul 20 21:25:48 2005 on firestorm +@c Last modified Thu May 27 18:24:30 2010 on firestorm @syncodeindex vr cp @end iftex @@ -224,10 +224,17 @@ @dots{} タイプセッタ(platex)起動 @item [prefix] t r @dots{} タイプセッタ起動(領域指定) +@item [prefix] t e + @dots{} タイプセッタ起動 + (ポイント位置の環境または数式モードのみ対称) @item [prefix] t k @dots{} 動作中のタイプセッタの停止 @item [prefix] t b @dots{} jbibtex起動 +@item [prefix] t i + @dots{} makeindex起動 +@item [prefix] t d + @dots{} タイプセッタとdvipdfmx起動 @item [prefix] t p @dots{} プレヴューア起動 @item [prefix] t l @@ -275,11 +282,22 @@ ポイントとマークの間、あるいはテキスト中に埋め込んだ @code{%#BEGIN} と @code{%#END}の間の領域(@ref{%#notation})だけを切り取ってタイプセットすることが -できます。この場合の documentclass は、単一ファイルの La@TeX{} ソースの編 -集時にはそのファイルの documentclass が、別ファイルから include している場 -合にはメインファイルの documentclass が自動的に選択されます。指定領域は、 -メインファイルのあるディレクトリの@file{texput.tex}という臨時ファイルに出 -力されますので、上書きには注意してください。 +できます。この場合メインファイルのプリアンブルが一時ファイルの +プリアンブルとして使われます。したがってプリアンブルにないマクロ定義が +領域内にあるとエラーになります。領域タイプセットを使う場合、 +必ずマクロ定義はプリアンブル(@code{\begin{document}}より前)に置くよう +にして下さい。一時ファイルはメインファイルのある +ディレクトリの@file{texput.tex}という名前で出力されるので、 +上書きには注意してください。 + +@subsection{環境タイプセット} + + @kbd{[prefix] te} を押すと、ポイント位置の最も内側の環境、または数式モー +ド内の場合はその数式モード全体が自動的に領域選択されて、領域タイプセットを +呼び出します。tabular環境や数式モードで複雑なものを作っている場合は確かめた +い部分だけを確認できるので便利です。これも @file{texput.tex} に該当部分を +書き出します。プレヴューアで @file{texput.dvi} を開いたままにしておけば +修正と確認が素早くできるでしょう。 @node Calling previewer, Print out, Calling typesetter, Invocation @comment node-name, next, previous, up @@ -1821,8 +1839,8 @@ @defvar YaTeX-kanji-code 文書を作成する時の漢字コード -nil=既存のコードのまま 0=no-conversion1=Shift JIS, -2=JIS, 3=EUC (2 (MS-DOSでは1)) +nil=既存のコードのまま 0=no-conversion 1=Shift JIS, +2=JIS, 3=EUC, 4=UTF-8 (2 (MS-DOSでは1)) @end defvar @defvar tex-command @@ -1851,6 +1869,10 @@ makeindexコマンド (@code{"makeindex"} (MS-DOSでは@code{"makeind"})) @end defvar +@defvar YaTeX-dvipdf-command +dviをPDFに変換するコマンド (@code{"dvipdfmx"}) +@end defvar + @defvar YaTeX-need-nonstop @code{\nonstopmode@{@}}を自動的に付加するか (@code{nil}) @end defvar
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/hg2cvsci.sh Thu Jan 12 12:26:35 2012 +0900 @@ -0,0 +1,15 @@ +#!/bin/sh +# This script does not support automatic "cvs add". +# If new file is added by "hg add", don't forget to "cvs add" in +# CVS working dir. +# +# This script should be called via incoming hook in .hg/hgrc as below. +# [hooks] +# incoming.cvsci = ./hg2cvsci.sh + +node=${HG_NODE:-tip} +hg=${HG:-hg} +msg=`hg log -r $node --template '{desc}\n'` +cd `dirname $0` +$hg up -r $node +cvs ci -m "$msg"
--- a/install Mon Sep 28 12:48:28 2009 +0900 +++ b/install Thu Jan 12 12:26:35 2012 +0900 @@ -61,20 +61,20 @@ About yahtml / yahtmlについて ***************************** -Yahtml is a brand new package for writing HTML files with Emacs. It is +Yahtml is a different package for writing HTML files with Emacs. It is very far from html-mode, html-helper-mode or other existing HTML modes. It is a good successor of YaTeX in HTML world. Do not want it to behave as modes you used. Yahtml doesn't lessen the number of initial typing not so much. But it lessens your effort of polishing/debugging your source, tracing links between file or URL, and browsing the result with -Netscape. If you had not used YaTeX, the concept of `C-c g', `C-c k', +browsers. If you had not used YaTeX, the concept of `C-c g', `C-c k', and `C-c c' are very new to you. If you are interested in the philosophy of YaTeX, please take a look at the info file of YaTeX. yahtml.el は html-mode とか html-helper-mode とかとはじぇえ〜〜んじぇん 違います。「html-helper-mode でいうところのあの機能はないの〜」とかそう いう気持で使うと、すげー調子悪いです。逆に、野鳥のインタフェースを知って -使っているとかなり調子良いです。古いものに拘る人にはお薦めしません。 +使っているとかなり調子良いです。 Installation of yahtml / yahtmlのインストール ********************************************* @@ -102,7 +102,8 @@ directory name. If you're not sure of this, ask it to WWW administrator. Typically `index.html' if your site is - running NCSA httpd, and `Welcome.html' - if CERN httpd. + running apache, or `Welcome.html' if + CERN httpd. URLでファイル名を省略した時にオープンさ れるファイル。WWW管理者に聞いて下さい。 + たいてい index.html でしょう。
--- a/makefile Mon Sep 28 12:48:28 2009 +0900 +++ b/makefile Thu Jan 12 12:26:35 2012 +0900 @@ -1,16 +1,16 @@ # -# Makefile for YaTeX +# Makefile for YaTeX/yahtml # # Edit these variables to be suitable for your site PREFIX = /usr/local ## mule2 -EMACS = mule -EMACSDIR= ${PREFIX}/lib/${EMACS} -## emacs20 -#EMACS = emacs -#EMACSDIR= ${PREFIX}/share/${EMACS} +#EMACS = mule +#EMACSDIR= ${PREFIX}/lib/${EMACS} +## emacs20 or later +EMACS = emacs +EMACSDIR= ${PREFIX}/share/${EMACS} ## XEmacs #EMACS = xemacs #EMACSDIR= ${PREFIX}/lib/${EMACS} @@ -49,7 +49,7 @@ # make clean to delete all producted files # make ci to check in all # make co to check out all -MVER = 1.74 +MVER = 1.75 LISP = ${LISP18} ${LISP19} YAHTML = yahtml.el COMMON = yatexlib.el yatexprc.el @@ -68,11 +68,11 @@ DOCOBJ = docs/yatexj docs/yatexe docs/yahtmlj docs/yahtmle HELP = help/YATEXHLP.jp help/YATEXHLP.eng MANIFEST= manifest -EXTRA = dir install 00readme makefile readme.meadow.j +EXTRA = dir install 00readme makefile readme.meadow.j newpage.rb DISTRIB = ${EXTRA} ${LISP} ${DOCS} ${MANIFEST} ${HELP} RCSFILE = ${LISP} ${NEWS} ${DOCSRC} ${HELP} YAHTMLLISP = ${YAHTML} ${COMMON} -YAHTMLDIST = ${YAHTMLLISP} install 00readme makefile +YAHTMLDIST = ${YAHTMLLISP} install 00readme makefile newpage.rb PACK = `ls ${DISTRIB}` TMPDIR = /tmp VERSION = `head yatex.el|awk '/rev\./{print $$4}'` @@ -206,9 +206,9 @@ -x '*RCS/*' -x 'texinfo/*' RSYNCDIR = ${HOME}/http/yatex/rsync/yatex -sync: - @-mkdir ${PACKDIR} - @tar cf - ${PACK} | (cd ${PACKDIR}; tar xf -) - syncdir -A -x CVS ${PACKDIR} ${RSYNCDIR} - (cd ${RSYNCDIR}; cvs ci -m '') - rm -rf ${PACKDIR} +#sync: +# @-mkdir ${PACKDIR} +# @tar cf - ${PACK} | (cd ${PACKDIR}; tar xf -) +# syncdir -A -x CVS ${PACKDIR} ${RSYNCDIR} +# (cd ${RSYNCDIR}; cvs ci -m '') +# rm -rf ${PACKDIR}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/newpage.rb Thu Jan 12 12:26:35 2012 +0900 @@ -0,0 +1,128 @@ +#!/usr/bin/env ruby +# THIS is very very tentative. Insufficient examination of function. +# Create new HTML file referring other HTML file in the same directory. +# (C)2010 by HIROSE Yuuji [yuuji@yatex.org] +# Last modified Mon Sep 6 16:16:33 2010 on firestorm +# $Id$ +# http://www.yatex.org +# Example: +# newpage.rb Create new index.html by copying template. +# newpage.rb foo.html Create new foo.html whose by copying header +# and footer from index.html. +# newpage.rb d/sub.html Create new directory d (if necessary) and +# d/sub.html by copying header/footer from +# index.html in a same directory or parent +# directory rewriting href to css file +# considering relative path. +# newpage.rb -o [file] Forcibly overwrite existing file. +# newpage.rb -c cssfile Set `cssfile' as defualt css. +# newpage.rb -t template Set `template' as HTML template. +require 'fileutils' + +mydir=File.dirname($0) +myname=File.basename($0, ".rb") + + +index = 'index.html' +cssdefault = nil +overwrite = nil +template = __FILE__ #File.expand_path(myname+".html", mydir) + +def guesscss(dir) + +end + +while ARGV[0] && /^-/ =~ (a0=ARGV[0].dup) && ARGV.shift + break if /^--$/ =~ a0 + while /^-[A-Za-z]/ =~ a0 + case a0 + when "-c" # css + ARGV.shift; cssdefault = ARGV[0] + when "-t" # template + ARGV.shift; cssdefault = ARGV[0] + when "-o" # overwrite + overwrite = true + end + a0.sub!(/-.(.*)/, '-\\1') + end +end + +outfile = ARGV[0]||index +if !overwrite && test(?s, outfile) then + STDERR.printf("File \`%s' exists. Use -o option to overwrite.\n", outfile) + exit 1 +end + +# set css default file +dots = 0 +of = outfile +dots+=1 while "." != (of=File.dirname(of)) +cssdir = "../"*dots + +# set copy source +outdir = File.dirname(outfile) +if "index.html" == File.basename(outfile) + src = (dots == 0 ? template : "index.html") +elsif test(?s, outdir+"/index.html") + src = outdir+"/index.html" +else + src = template +end + +FileUtils.mkdir_p(outdir) + +cssfile = cssdir+"main.css" +name = File.basename(outfile, ".html") +begin + open(outfile, "w") do |out| + #IO.foreach(src) do |line| + if src == __FILE__ + input = DATA + else + input = open(src, "r") + end + begin + html = input.readlines.join + html.sub!(%r|^<h1.*<\/h1>|i, sprintf("<h1>%s</h1>\n", name)) + if !html.gsub!("__CSSFILE__", cssfile) + html.gsub!(/href=(['\"])(.*\.css)\1/, 'href="'+cssdir+'\2"') + end + html.gsub!("__TITLE__", name) + out.print html + ensure + input.close + end + end + printf(<<_EOS_, outfile, name) +<a href="%s">%s</a> +_EOS_ +rescue + p $! + STDERR.printf(<<'_EOS_', outfile, outfile) +Cannot output to [%s]. Do + chmod +w %s +or + chmod +w . +or change output directory. +_EOS_ + exit 1 +end + +__END__ +<html> +<head> +<title>__TITLE__</title> +<style type="text/css"> +<!-- +/* Local CSS here */ +--> +</style> +<link rel="stylesheet" type="text/css" href="__CSSFILE__"> +</head> + +<body> +<h1>__TITLE__</h1> + +<!--#include virtual="/~yuuji/signature.html"--> +</body> +</html>
--- a/yahtml.el Mon Sep 28 12:48:28 2009 +0900 +++ b/yahtml.el Thu Jan 12 12:26:35 2012 +0900 @@ -1,9 +1,9 @@ ;;; -*- Emacs-Lisp -*- -;;; (c) 1994-2009 by HIROSE Yuuji [yuuji@yatex.org] -;;; Last modified Mon Sep 28 10:45:04 2009 on firestorm +;;; (c) 1994-2012 by HIROSE Yuuji [yuuji(@)yatex.org] +;;; Last modified Thu Jan 12 11:40:53 2012 on firestorm ;;; $Id$ -(defconst yahtml-revision-number "1.72" +(defconst yahtml-revision-number "1.75" "Revision number of running yahtml.el") ;;;[Installation] @@ -14,8 +14,8 @@ ;;; (setq auto-mode-alist ;;; (cons (cons "\\.html$" 'yahtml-mode) auto-mode-alist)) ;;; (autoload 'yahtml-mode "yahtml" "Yet Another HTML mode" t) -;;; (setq yahtml-www-browser "netscape") -;;; ;Write your favorite browser. But netscape is advantageous. +;;; (setq yahtml-www-browser "firefox") +;;; ;Write your favorite browser. But firefox is advantageous. ;;; (setq yahtml-path-url-alist ;;; '(("/home/yuuji/public_html" . "http://www.mynet/~yuuji") ;;; ("/home/staff/yuuji/html" . "http://www.othernet/~yuuji"))) @@ -30,8 +30,8 @@ ;;; (setq auto-mode-alist ;;; (cons (cons "\\.html$" 'yahtml-mode) auto-mode-alist)) ;;; (autoload 'yahtml-mode "yahtml" "Yet Another HTML mode" t) -;;; (setq yahtml-www-browser "netscape") -;;; ;お気に入りのブラウザを書いて下さい。netscapeが便利です。 +;;; (setq yahtml-www-browser "firefox") +;;; ;お気に入りのブラウザを書いて下さい。firefoxが便利です。 ;;; (setq yahtml-path-url-alist ;;; '(("/home/yuuji/public_html" . "http://www.mynet/~yuuji") ;;; ("/home/staff/yuuji/html" . "http://www.othernet/~yuuji"))) @@ -43,10 +43,12 @@ ;;; AddType "text/html; charset=Shift_JIS" .html (SJISの場合) ;;; AddType "text/html; charset=iso2022-jp" .html (JISの場合) ;;; AddType "text/html; charset=EUC-JP" .html (EUCの場合) +;;; AddType "text/html; charset=utf-8" .html (UTF-8の場合) ;;; ;;; .htaccess が作れない場合は ;;; (setq yahtml-kanji-code 2) -;;; ;HTMLファイルの漢字コードを変更する場合は 1=SJIS、2=JIS、3=EUC +;;; ;HTMLファイルの漢字コードを変更する場合は +;;; ;1=SJIS、2=JIS、3=EUC 4=UTF-8 ;;; ;で設定して下さい。デフォルトは 2 です。 ;;; ;;; を適切に書き換えて ~/.emacs に足して下さい。 @@ -89,7 +91,7 @@ ;;; * [prefix] t p View current html with WWW browser ;;; (To activate this, never fail to set the lisp ;;; variable yahtml-www-browser. Recommended value -;;; is "netscape") +;;; is "firefox") ;;; * [prefix] a YaTeX's accent mark's equivalent of yahtml. ;;; This function can input $lt, $gt or so. ;;; * [prefix] ; Translate chars of `>', `<', `&', and `"' to @@ -139,12 +141,12 @@ ;;; 参照しているリンクを補完機能を使いながら変更で ;;; きます。 ;;; * [prefix] t j カレントファイルに対して jweblint を呼び出しま -;;; す。 +;;; す。ファイル先頭付近に +;;; <!-- #lint コマンド --> +;;; と書いておくとそのコマンドを呼びます。 ;;; * [prefix] t p WWW ブラウザでカレントファイルを表示します。 ;;; (lisp変数 yahtml-www-browser の設定をお忘れな -;;; く。お推めは "netscape" で、ねすけの場合既にねす -;;; けが起動されていた場合そのねすけに Reload 命令を -;;; 送るという芸当が出来ます) +;;; く。お推めは "firefox" です) ;;; * [prefix] a YaTeX のアクセント記号補完と同じです。 ;;; < > 等が入力できます。 ;;; * [prefix] ; 指定したリジョン中の > < & " をそれぞれ @@ -152,6 +154,13 @@ ;;; * [prefix] : 指定したリジョン中で上と逆の変換をします。 ;;; * [prefix] # 指定したリジョン中で%エンコードの必要な文字が ;;; あればそれらをエンコードします。 +;;; * [prefix] } リジョン内の特定文字区切りのレコードを <td> 並びに +;;; 変換します。C-u (universal-argument) 付きで起動 +;;; するとtd以外の任意要素で括ります。thdを指定する +;;; と最初の1つだけth，残りすべてをtdで括ります。 +;;; * [prefix] ] リジョン内のすべての行をフィールドごとにtdで括り， +;;; さらに各行をtrで括ります。universal-argument を +;;; 付けるとフィールド括りをtd以外に指定できます。 ;;; * [prefix] ESC yahtml-mode を抜け yahtml-mode に入る前に動作し ;;; ていたメジャーモードに戻ります。 ;;; @@ -168,7 +177,6 @@ ;;; -;(require 'yatex) (require 'yatexlib) ;;; --- customizable variable starts here --- (defvar yahtml-prefix "\C-c" @@ -235,14 +243,16 @@ (defvar yahtml-use-css t "*Use stylesheet or not") -(defvar yahtml-image-inspection-bytes 50000 ;256 +(defvar yahtml-image-inspection-bytes 500000 "*Number of bytes to inspect the image for geometry information") (defvar yahtml:img-default-alt-format "%xx%y(%sbytes)" "*Default format of img entity's ALT attributes. %x: width, %y: height, %s: size in bytes, %c: first comment string, %f: filename") -(defvar yahtml-faithful-to-htmllint nil) +(defvar yahtml-faithful-to-htmllint yahtml-always-/li + "*Non-nil doesn't put space after opening tags.") + (defvar yahtml-error-line-regexp "^\\(.*\\)(\\([0-9]+\\)):\\|^line \\([0-9]+\\)" "*Regexp of error position which is produced by lint program.") @@ -357,8 +367,7 @@ (yahtml-define-begend-key "bS" "span" map) (yahtml-define-begend-key "bp" "pre" map) (YaTeX-define-key "b " 'yahtml-insert-begend map) - (YaTeX-define-key "B " 'yahtml-insert-begend-region map) - ) + (YaTeX-define-key "B " 'yahtml-insert-begend-region map)) (YaTeX-define-key "e" 'YaTeX-end-environment map) (YaTeX-define-key ">" 'yahtml-comment-region map) (YaTeX-define-key "<" 'yahtml-uncomment-region map) @@ -371,9 +380,10 @@ (YaTeX-define-key ";" 'yahtml-translate-region map) (YaTeX-define-key ":" 'yahtml-translate-reverse-region map) (YaTeX-define-key "#" 'yahtml-escape-chars-region map) + (YaTeX-define-key "}" 'yahtml-td-region map) + (YaTeX-define-key "]" 'yahtml-tr-region map) ;;;;;(YaTeX-define-key "i" 'yahtml-fill-item map) - (YaTeX-define-key "\e" 'yahtml-quit map) - ) + (YaTeX-define-key "\e" 'yahtml-quit map)) (substitute-all-key-definition 'fill-paragraph 'yahtml-fill-paragraph yahtml-mode-map) (substitute-all-key-definition @@ -400,8 +410,8 @@ (make-syntax-table (standard-syntax-table))) (modify-syntax-entry ?\< "(>" yahtml-syntax-table) (modify-syntax-entry ?\> ")<" yahtml-syntax-table) - (modify-syntax-entry ?\n " " yahtml-syntax-table) -) + (modify-syntax-entry ?\n " " yahtml-syntax-table)) + (defvar yahtml-command-regexp "[A-Za-z0-9]+" "Regexp of constituent of html commands.") @@ -420,7 +430,7 @@ ("DefinitionList" . "dl") ("Preformatted" . "pre") ("table") ("thead") ("tbody") ("tfoot") ("tr") ("th") ("td") - ("address") + ("address") ("button") ("h1") ("h2") ("h3") ("h4") ("h5") ("h6") ;; ("p") ;This makes indentation screwed up! ("style") ("script") ("noscript") ("div") ("object") ("ins") ("del") @@ -485,8 +495,6 @@ (defvar yahtml-current-completion-type nil "Has current completion type. This may be used in yahtml addin functions.") -;(defvar yahtml-struct-name-regexp -; "\\<\\(h[1-6]\\|[uod]l\\|html\\|body\\|title\\|head\\|table\\|t[rhd]\\|pre\\|a\\|form\\|select\\|center\\|blockquote\\)\\b") (defvar yahtml-struct-name-regexp (concat "\\<\\(" @@ -541,10 +549,8 @@ (setq ldir dir dir (substring dir 0 (string-match "/$" dir)) dir (file-name-directory dir)))) - line - )) - (t nil)) - ) + line)) + (t nil))) (defun yahtml-dir-default-charset () (let*((fn (file-name-nondirectory (or buffer-file-name ""))) @@ -586,8 +592,7 @@ (setq index-list (cons (substring line 0 x) index-list) line (substring line (match-end 1))) (setq index-list (cons line index-list) - line "")) - ) + line ""))) (or (nreverse index-list) (if (listp yahtml-directory-index) yahtml-directory-index @@ -651,9 +656,7 @@ ;;(font-lock-mode -1) (font-lock-mode 1) ;;Why should I fontify again??? ;; in yatex-mode, there's no need to refontify... - (font-lock-fontify-buffer) - )) - )) + (font-lock-fontify-buffer))))) (set-syntax-table yahtml-syntax-table) (use-local-map yahtml-mode-map) (YaTeX-read-user-completion-table) @@ -754,32 +757,29 @@ (strong "Strong" . (lambda () (interactive) (yahtml-insert-tag nil "STRONG"))) (VAR "Variable notation" . - (lambda () (interactive) (yahtml-insert-tag nil "VAR"))) - ))) + (lambda () (interactive) (yahtml-insert-tag nil "var")))))) (setq yahtml-menu-map-typeface (make-sparse-keymap "typeface tags")) (YaTeX-define-menu 'yahtml-menu-map-typeface (nreverse '((b "Bold" . - (lambda () (interactive) (yahtml-insert-tag nil "B"))) + (lambda () (interactive) (yahtml-insert-tag nil "b"))) (i "Italic" . - (lambda () (interactive) (yahtml-insert-tag nil "I"))) + (lambda () (interactive) (yahtml-insert-tag nil "i"))) (tt "Typewriter" . - (lambda () (interactive) (yahtml-insert-tag nil "TT"))) + (lambda () (interactive) (yahtml-insert-tag nil "tt"))) (u "Underlined" . - (lambda () (interactive) (yahtml-insert-tag nil "U"))) - ))) + (lambda () (interactive) (yahtml-insert-tag nil "u")))))) (setq yahtml-menu-map-listing (make-sparse-keymap "listing")) (YaTeX-define-menu 'yahtml-menu-map-listing (nreverse '((ul "Unordered" . - (lambda () (interactive) (yahtml-insert-begend nil "UL"))) + (lambda () (interactive) (yahtml-insert-begend nil "ul"))) (ol "Ordered" . - (lambda () (interactive) (yahtml-insert-begend nil "OL"))) + (lambda () (interactive) (yahtml-insert-begend nil "ol"))) (dl "Definition" . - (lambda () (interactive) (yahtml-insert-begend nil "DL"))) - ))) + (lambda () (interactive) (yahtml-insert-begend nil "dl")))))) (setq yahtml-menu-map-item (make-sparse-keymap "item")) (YaTeX-define-menu 'yahtml-menu-map-item @@ -789,8 +789,7 @@ (dt "Define term" . (lambda () (interactive) (yahtml-insert-single "dt"))) (dd "Description of term" . - (lambda () (interactive) (yahtml-insert-single "dd"))) - ))) + (lambda () (interactive) (yahtml-insert-single "dd")))))) (define-key yahtml-mode-map [menu-bar yahtml] (cons "yahtml" yahtml-menu-map)) (YaTeX-define-menu @@ -806,16 +805,14 @@ (cons (list 'logi "Logical tags") (cons "logical" yahtml-menu-map-logical)) (cons (list 'type "Typeface tags") - (cons "typeface" yahtml-menu-map-typeface)) - ))) + (cons "typeface" yahtml-menu-map-typeface))))) (if (featurep 'xemacs) (add-hook 'yahtml-mode-hook '(lambda () (or (assoc "yahtml" current-menubar) (progn (set-buffer-menubar (copy-sequence current-menubar)) - (add-submenu nil yahtml-menu-map)))))) - )) + (add-submenu nil yahtml-menu-map)))))))) ;;; ----------- Completion ---------- (defvar yahtml-last-begend "html") @@ -837,7 +834,7 @@ (or (cdr (assoc yahtml-last-begend yahtml-env-table)) yahtml-last-begend)) (setq cmd yahtml-last-begend) - (if yahtml-prefer-upcases (setq cmd (upcase cmd))) + (setq cmd (funcall (if yahtml-prefer-upcases 'upcase 'downcase) cmd)) (if region ;; We want to keep region effective for new tagged environment ;; to enable continuous regioning by another environment @@ -896,6 +893,25 @@ "class(or class list delimited by \\[quoted-insert] SPC): ")) nil YaTeX-minibuffer-completion-map nil))) +(defvar yahtml-newpage-command "newpage.rb" + "*Command name to create new HTML file referring to index.html. +This command should create new HTML file named argument 1 and +output string like `<a href=\"newfile.html\">anchor tag</a>'. +This program should take -o option to overwrite existing HTML file.") +(defun yahtml-newpage (file ov) + "Create newpage via newpage script" + (interactive + (list + (let (insert-default-directory) + (read-file-name "New webpage file name: " "")) + current-prefix-arg)) + (if (and (file-exists-p file) (not ov)) + (error "%s already exists. Call this with universal argument to force overwrite." file)) + (insert (substring + (YaTeX-command-to-string + (concat yahtml-newpage-command " " (if ov "-o ") file)) + 0 -1))) + ;;; ---------- Add-in ---------- (defun yahtml-addin (form) "Check add-in function's existence and call it if exists." @@ -904,6 +920,7 @@ (and (setq a (yahtml-css-get-element-completion-alist form)) (not (equal last-command-char ?\C-j)) (memq yahtml-current-completion-type '(multiline inline)) + (not (string-match "#" form)) (yahtml-make-optional-argument ;should be made generic? "class" (yahtml-read-css a))) (if (and (intern-soft addin) (fboundp (intern-soft addin)) @@ -937,16 +954,14 @@ (setq list (cons (list (concat "#" (YaTeX-match-string 1))) list)))) - list))) - ) + list)))) (defvar yahtml-url-completion-map nil "Key map used in URL completion buffer") (if yahtml-url-completion-map nil (setq yahtml-url-completion-map (copy-keymap minibuffer-local-completion-map)) (define-key yahtml-url-completion-map "\t" 'yahtml-complete-url) - (define-key yahtml-url-completion-map " " 'yahtml-complete-url) -) + (define-key yahtml-url-completion-map " " 'yahtml-complete-url)) (defun yahtml-complete-url () "Complete external URL from history or local file name." @@ -1007,8 +1022,8 @@ ; ; Subject: [yatex:02849] Re: [yahtml] tilda in href tag -; From: Masayasu Ishikawa <mimasa@sfc.keio.ac.jp> -; To: yatex@arcadia.jaist.ac.jp +; From: Masayasu Ishikawa <mimasa<at>sfc.keio.ac.jp> +; To: yatex<at>arcadia.jaist.ac.jp ; Date: Mon, 31 May 1999 21:09:31 +0900 ; RFC 2396 の "2.4.3. Excluded US-ASCII Characters" によると、以下の文字 ; は必ずエスケープしないといけません。 @@ -1049,6 +1064,21 @@ (setq str (substring str (1+ p)))) (concat target str))))) +(defun yahtml-unescape-string (str) + "Untranslate reserved URL-encoded string." + (let ((p 0) c (target "") (md (match-data)) (case-fold-search nil)) + (unwind-protect + (progn + (while (string-match "%\\([0-9a-f][0-9a-f]\\)" str p) + (setq target (concat target + (substring str p (1- (match-beginning 1)))) + p (match-end 0) + c (YaTeX-hex (substring + str (match-beginning 1) (match-end 1))) + target (concat target (format "%c" c)))) + (concat target (substring str p))) + (store-match-data md)))) + (defun yahtml-escape-chars-region (beg end) "Translate reserved chars to encoded string in the region." (interactive "r") @@ -1094,8 +1124,7 @@ (null (assoc href yahtml-urls-local))) (YaTeX-update-table (list href) - 'yahtml-urls-private 'yahtml-urls-private 'yahtml-urls-local)) - ))) + 'yahtml-urls-private 'yahtml-urls-private 'yahtml-urls-local))))) (defvar yahtml-parameters-completion-alist '(("align" ("top") ("middle") ("bottom") ("left") ("right") ("center")) @@ -1135,6 +1164,10 @@ ((eq alist 'file) (let ((insert-default-directory)) (read-file-name prompt "" default nil ""))) + ((eq alist 'command) + (if (fboundp 'read-shell-command) + (read-shell-command prompt) + (read-string prompt))) ((and alist (symbolp alist)) (completing-read prompt (symbol-value alist) nil nil default)) (alist @@ -1340,8 +1373,7 @@ height (yahtml-hex-value 22 4 t))) (t (setq width (yahtml-hex-value 18 2 t) - height (yahtml-hex-value 20 2 t))))) - )) + height (yahtml-hex-value 20 2 t))))))) (message "") (kill-buffer tmpbuf)) (list width height bytes depth (nreverse comment))))) @@ -1349,11 +1381,16 @@ (defun yahtml:form () "Add-in function `form' input format" (concat - " " (if yahtml-prefer-upcase-attributes "METHOD" "method") "=" + " " (if yahtml-prefer-upcase-attributes "METHOD" "method") "=\"" (completing-read "Method: " '(("POST") ("GET")) nil t) + "\"" + (yahtml-make-optional-argument + (if yahtml-prefer-upcase-attributes "ENCTYPE" "enctype") + (completing-read + "Enctype: " + '(("application/x-www-form-urlencoded") ("multipart/form-data")))) " " (if yahtml-prefer-upcase-attributes "ACTION" "action") "=\"" - (read-string "Action: ") "\"" - )) + (read-string "Action: ") "\"")) (defun yahtml:select () "Add-in function for `select' input format" @@ -1402,8 +1439,7 @@ (yahtml-make-optional-argument "type" type) (yahtml-make-optional-argument "value" value) (yahtml-make-optional-argument "size" size) - (yahtml-make-optional-argument "maxlength" maxlength) - ))) + (yahtml-make-optional-argument "maxlength" maxlength)))) (defun yahtml:textarea () "Add-in function for `textarea'" @@ -1515,8 +1551,8 @@ (yahtml-make-optional-argument "type" (yahtml-read-parameter "type" "text/css")) (yahtml-make-optional-argument - "href" (read-from-minibuffer "href: " "" yahtml-url-completion-map)) - ))))) + "href" + (read-from-minibuffer "href: " "" yahtml-url-completion-map))))))) (defvar yahtml:meta-names '(("name" ("keywords")("author")("copyright")("date")("GENERATOR")))) @@ -1577,16 +1613,24 @@ (yahtml-make-optional-argument "height" (yahtml-read-parameter "height")) (yahtml-make-optional-argument - "align" (yahtml-read-parameter "align")) - )) + "align" (yahtml-read-parameter "align")))) (t - "" - )))) + "")))) (defun yahtml:abbr () "Add-in function for abbr." (yahtml-make-optional-argument "title" (yahtml-read-parameter "title"))) +(defun yahtml:button () + (concat + (yahtml-make-optional-argument + "name" (yahtml-read-parameter "name")) + (yahtml-make-optional-argument + "type" (yahtml-read-parameter + "type" "button" '(("submit")("reset")("button")))) + (yahtml-make-optional-argument + "value" (yahtml-read-parameter "value")))) + ;;; ---------- Simple tag ---------- (defun yahtml-insert-tag (region-mode &optional tag) "Insert <TAG> </TAG> and put cursor inside of them." @@ -1620,7 +1664,6 @@ (interactive) (yahtml-insert-tag t tag)) - (defvar yahtml-need-single-closer nil) ;for test (defun yahtml-insert-single (cmd) "Insert <CMD>." @@ -1681,7 +1724,8 @@ (format "%s=\"%s\"--" (if (string-match "/" file) "virtual" "file") file))) (defun yahtml:!--\#exec () - (format "cmd=\"%s\"--" (yahtml-read-parameter "cmd" "" '(("cmd" . file))))) + (format "cmd=\"%s\"--" + (yahtml-read-parameter "cmd" "" '(("cmd" . command))))) ;;; ---------- Jump ---------- (defun yahtml-on-href-p () @@ -1701,8 +1745,7 @@ (skip-chars-forward " \t\n") (looking-at "\"?\\([^\"> \t\n]+\\)\"?")) (< p (match-end 0)) - (YaTeX-match-string 1) - )))) + (yahtml-unescape-string (YaTeX-match-string 1)))))) (defun yahtml-netscape-sentinel (proc mes) (cond @@ -1813,8 +1856,7 @@ (if (and (re-search-backward "<" nil t) (looking-at ;(concat "<\\(/?" yahtml-struct-name-regexp "\\)\\b") - "<\\(/?[A-Z][A-Z0-9]*\\)\\b" - ) + "<\\(/?[A-Z][A-Z0-9]*\\)\\b") (condition-case nil (forward-list 1) (error nil)) @@ -1881,7 +1923,8 @@ (let ((tag (yahtml-current-tag)) image (p (point)) (case-fold-search t)) (if (and tag (string-match "img" tag) - (setq image (yahtml-get-attrvalue "src"))) + (setq image + (yahtml-unescape-string (yahtml-get-attrvalue "src")))) (progn (message "Invoking %s %s..." yahtml-image-viewer image) (start-process @@ -1895,7 +1938,7 @@ (let ((env (yahtml-current-tag)) s (p (point))) (cond ((string-match "applet" env) - (if (setq s (yahtml-get-attrvalue "code")) + (if (setq s (yahtml-unescape-string (yahtml-get-attrvalue "code"))) (progn (setq s (YaTeX-match-string 1) s (concat @@ -1947,8 +1990,7 @@ ((yahtml-goto-corresponding-img)) ((yahtml-goto-corresponding-source other)) ((yahtml-goto-corresponding-begend)) - (t (message "I don't know where to go.")) - )) + (t (message "I don't know where to go.")))) (defun yahtml-goto-corresponding-*-other-window () "Go to corresponding object." @@ -2012,8 +2054,7 @@ "Kill current position's HTML tag (set)." (interactive "P") (cond - ((yahtml-kill-begend whole)) - )) + ((yahtml-kill-begend whole)))) ;;; ---------- changing ---------- @@ -2161,8 +2202,7 @@ (interactive) (cond ((yahtml-change-begend)) - ((yahtml-change-command)) - )) + ((yahtml-change-command)))) ;;; ---------- commenting ---------- @@ -2184,7 +2224,7 @@ (beginning-of-line) (forward-line 1)) (set-marker e (point)) - ;(comment-region beg (point) (if uncom (list 4))) + ;(comment-region beg (point) (if uncom (list 4))))) )) (t ;(comment-region (region-beginning) (region-end) (if uncom (list 4))) (setq beg (region-beginning)) @@ -2277,6 +2317,92 @@ (goto-char (get 'YaTeX-inner-environment 'point)))) e)) +(defun yahtml-untranslate-string (str) + "Untranslate entity reference." + (let ((md (match-data)) (left "") (right str) b0 ch + (ct (append yahtml-entity-reference-chars-alist + yahtml-entity-reference-chars-alist-default)) + (revrex yahtml-entity-reference-chars-reverse-regexp)) + (unwind-protect + (progn + (while (string< "" right) + (cond + ((string-match revrex right) + (setq ch (YaTeX-rassoc + (substring right (match-beginning 1) (match-end 1))) + b0 (substring right 0 (match-beginning 0)) + right (substring right (match-end 0)) + left (concat left + (substring right 0 (match-beginning 0)) + (char-to-string ch)))) + ((string-match "\\&#\\(x\\)?\\([0-9a-f]+\\);" right) + (setq ch (substring right (match-beginning 2) (match-end 2)) + b0 (substring right 0 (match-beginning 0)) + right (substring right (match-end 0)) + left (concat left + b0 + (char-to-string + (if (match-beginning 1) + (YaTeX-hex ch) + (string-to-number ch)))))) + (t (setq left (concat left right) + right "")))) + left) + (store-match-data md)))) + +;;; ---------- table-ize region ---------- +(defun yahtml-td-region (e delim beg end) + "Enclose each item in a region with <td>..</td>. +Interactive prefix argument consults enclosing element other than td." + (interactive "P\nsDelimiter(s): \nr") + (let ((e (cond + ((null e) "td") + ((stringp e) e) + (t (read-string "Enclose with(`thd' means th td td..): " "th")))) + (ws "[ \t]") + elm p i) + (if (string= delim "") (setq delim " \t\n")) + (setq delim (concat "[" delim "]+") + elm (if (string= "thd" e) + (cons "th" "td") + (cons e e))) + (save-excursion + (save-restriction + (narrow-to-region beg end) + (goto-char (setq p (point-min))) + (setq i 0 e (car elm)) + (while (re-search-forward delim nil t) + (setq e (if (= (setq i (1+ i)) 1) (car elm) (cdr elm))) + (goto-char (match-beginning 0)) + (insert "</" e ">") + (save-excursion + (goto-char p) + (insert "<" e ">")) + (setq p (point)) + (while (and (not (eobp)) (looking-at ws)) + (delete-char 1)) + (if (looking-at delim) (delete-char 1))) + (insert "<" e ">") + (goto-char (point-max)) + (insert "</" e ">"))))) + +(defun yahtml-tr-region (e delim beg end) + "Enclose lines in a form tab-sv/csv with <tr><td>..</td></tr>." + (interactive "P\nsDelimiter(s): \nr") + (setq e (if (and e (listp e)) + (read-string "Enclose with(td or th, `thd' -> th td td td...: " + "th"))) + (save-excursion + (save-restriction + (narrow-to-region (point) (mark)) + (goto-char (point-min)) + (while (not (eobp)) + (insert "<tr>") + (yahtml-td-region e delim (point) (point-end-of-line)) + (end-of-line) + (insert "</tr>") + (forward-line 1))))) + ;;; ---------- filling ---------- (defvar yahtml-saved-move-to-column (symbol-function 'move-to-column)) (defun yahtml-move-to-column (col &optional force) @@ -2385,11 +2511,11 @@ (yahtml-indent-line-real)))) (defun yahtml-this-indent () - (let ((envs "[uod]l\\|table\\|[ht][rhd0-6]\\|select\\|blockquote\\|center\\|menu\\|dir\\|font") - (itemizing-envs "^\\([uod]l\\|menu\\|dir\\)$") + (let ((envs "[uod]l\\|table\\|[ht][rhd0-6]\\|select\\|blockquote\\|center\\|menu\\|dir\\|d[td]\\|li") + (itemizing-envs "^\\([uod]l\\|menu\\|dir\\|li\\|d[td]\\)$") (itms "<\\(dt\\|dd\\|li\\|t[rdh]\\|option\\)\\b") (excludes - "\\(a\\|p\\|span\\|code\\|tt\\|em\\|u\\|i\\|big\\|small\\|font\\)\\b") + "\\b\\(a\\|p\\|span\\|code\\|tt\\|em\\|u\\|i\\|big\\|small\\|font\\)\\b") inenv p col peol (case-fold-search t)) (save-excursion (beginning-of-line) @@ -2483,9 +2609,9 @@ ;;; ---------- Lint and Browsing ---------- ;;; (defun yahtml-browse-menu () - "Browsing menu" + "Browsing or other external process invokation menu." (interactive) - (message "J)weblint p)Browse R)eload...") + (message "J)weblint p)Browse R)eload N)ewpage...") (let ((c (char-to-string (read-char)))) (cond ((string-match "j" c) @@ -2493,7 +2619,9 @@ ((string-match "[bp]" c) (yahtml-browse-current-file)) ((string-match "r" c) - (yahtml-browse-reload))))) + (yahtml-browse-reload)) + ((string-match "n" c) + (call-interactively 'yahtml-newpage))))) (if (fboundp 'wrap-function-to-control-ime) (wrap-function-to-control-ime 'yahtml-browse-menu t nil)) @@ -2506,10 +2634,12 @@ (interactive "bCall lint on buffer: ") (setq buf (get-buffer buf)) (YaTeX-save-buffers) - (YaTeX-typeset - (concat yahtml-lint-program " " - (file-name-nondirectory (buffer-file-name buf))) - yahtml-lint-buffer "lint" "lint")) + (let ((bcmd (YaTeX-get-builtin "lint"))) + (and bcmd (setq bcmd (yahtml-untranslate-string bcmd))) + (YaTeX-typeset + (concat (or bcmd yahtml-lint-program) + " " (file-name-nondirectory (buffer-file-name buf))) + yahtml-lint-buffer "lint" "lint"))) (defun yahtml-file-to-url (file) "Convert local unix file name to URL. @@ -2572,7 +2702,7 @@ (yahtml-browse-html (yahtml-file-to-url (buffer-file-name)))) (defun yahtml-browse-reload () - "Send `reload' event to netzscape." + "Send `reload' event to netscape." (let ((pb "* WWW Browser *") (cb (current-buffer))) (cond ((string-match "[Nn]etscape" yahtml-www-browser) @@ -2632,7 +2762,8 @@ (yahtml-insert-single "dt") (or yahtml-always-/dt yahtml-faithful-to-htmllint (insert " ")) (setq yahtml-last-single-cmd "dd"))) - (insert (if yahtml-prefer-upcases "<DT> " "<dt> ")) + (yahtml-insert-single "dt") + (or yahtml-always-/li yahtml-faithful-to-htmllint (insert " ")) (setq yahtml-last-single-cmd "dd")) (yahtml-indent-line) (and (string-match yahtml-p-prefered-env-regexp "dl") @@ -2714,7 +2845,7 @@ (cond ((and (> cols 0) (memq (read-char) '(?d ?D))) ;Duplication mode - (setq line (YaTeX-buffer-substring (point) cp))) + (setq line (YaTeX-buffer-substring (point) (1- cp)))) (t ;empty cells (setq line "<tr>" i 0) (if (> cols 0) @@ -2828,7 +2959,7 @@ (setcdr a (cons (list class) (cdr a)))) (setq alist (cons (list element (list class)) alist)))) (goto-char (1- e)) - (search-forward "}" nil t) + (search-forward "}" nil 1) ;1=move to limit when not found. (setq b (point)))) alist)))) @@ -2987,17 +3118,6 @@ (font-lock-mode -1) ;is stupid, but sure. (font-lock-mode 1)) -;; (defun yahtml-fontify-to-tagend (lim) -;; "*Fontify any tag including < and >. -;; This is invalid use of font-lock function. Therefore -;; this fontifying will loose effectiveness soon or later." -;; (let ((start (match-beginning 0)) -;; (end (progn (skip-chars-forward "^>") (1+ (point))))) -;; (or nil; (font-lock-any-faces-p start end) -;; (font-lock-fillin-text-property -;; start end 'face 'font-lock font-lock-keyword-face))) -;; nil) - (run-hooks 'yahtml-load-hook) (provide 'yahtml)
--- a/yatex.el Mon Sep 28 12:48:28 2009 +0900 +++ b/yatex.el Thu Jan 12 12:26:35 2012 +0900 @@ -1,15 +1,15 @@ ;;; -*- Emacs-Lisp -*- ;;; Yet Another tex-mode for emacs - //野鳥// -;;; yatex.el rev. 1.74 -;;; (c)1991-2009 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Mon Sep 28 10:44:35 2009 on firestorm +;;; yatex.el rev. 1.75 +;;; (c)1991-2012 by HIROSE Yuuji.[yuuji@yatex.org] +;;; Last modified Thu Jan 12 11:40:38 2012 on firestorm ;;; $Id$ ;;; The latest version of this software is always available at; ;;; http://www.yatex.org/ (require 'comment) (require 'yatexlib) -(defconst YaTeX-revision-number "1.74" +(defconst YaTeX-revision-number "1.75" "Revision number of running yatex.el") ;---------- Local variables ---------- @@ -82,6 +82,10 @@ (if YaTeX-dos "%e" "-t %e") "*`To' page format of dvi filter. %e will turn to end page number.") +(defvar YaTeX-dvipdf-command + "dvipdfmx" + "*Command name to convert dvi file to PDF.") + (defvar YaTeX-default-document-style (concat (if YaTeX-japan "j") "article") "*Default LaTeX Documentstyle for YaTeX-typeset-region.") @@ -147,7 +151,7 @@ for YaTeX-uncomment-paragraph.") (defvar YaTeX-verbatim-environments - '("verbatim" "verbatim*") + '("verbatim" "verbatim*" "alltt") "*Assume these environments of this variable disable LaTeX commands.") (defvar YaTeX-verb-regexp "verb\\*?\\|path" "*Regexp of verb family. Do not contain preceding \\\\ nor \\(\\).") @@ -363,7 +367,7 @@ (defvar singlecmd-table (append - '(("maketitle") ("makeindex") ("sloppy") ("protect") + '(("maketitle") ("makeindex") ("sloppy") ("protect") ("par") ("LaTeX") ("TeX") ("item") ("item[]") ("appendix") ("hline") ("kill") ;;("rightarrow") ("Rightarrow") ("leftarrow") ("Leftarrow") ("pagebreak") ("nopagebreak") ("tableofcontents") @@ -455,8 +459,9 @@ (YaTeX-define-key ")" 'YaTeX-insert-parens-region) (YaTeX-define-key "$" 'YaTeX-insert-dollars-region) (YaTeX-define-key "i" 'YaTeX-fill-item) - (YaTeX-define-key - "\\" '(lambda () (interactive) (insert "$\\backslash$"))) + (YaTeX-define-key "\\" + '(lambda () (interactive) + (insert (if (YaTeX-in-math-mode-p) "\\backslash" "\\textbackslash")))) (if YaTeX-no-begend-shortcut (progn (YaTeX-define-key "B" 'YaTeX-make-begin-end-region) @@ -505,7 +510,7 @@ (if YaTeX-dos (define-key YaTeX-prefix-map "\C-r" '(lambda () (interactive) - (set-screen-height YaTeX-saved-screen-height) (recenter))))) + (YaTeX-set-screen-height YaTeX-saved-screen-height) (recenter))))) (defvar YaTeX-section-completion-map nil "*Key map used at YaTeX completion in the minibuffer.") @@ -687,7 +692,7 @@ )) (use-local-map YaTeX-mode-map) (set-syntax-table YaTeX-mode-syntax-table) - (if YaTeX-dos (setq YaTeX-saved-screen-height (screen-height))) + (if YaTeX-dos (setq YaTeX-saved-screen-height (YaTeX-screen-height))) (YaTeX-read-user-completion-table) (and (fboundp 'YaTeX-hilit-setup-alist) (YaTeX-hilit-setup-alist)) (makunbound 'inenv) @@ -746,6 +751,7 @@ (autoload 'YaTeX-goto-open-paren "yatexmth" "Goto opening paren" t) (autoload 'YaTeX-change-parentheses "yatexmth" "Change corresponding parens" t) (autoload 'YaTeX-goto-corresponding-paren "yatexmth" "\bigl\bigr jumps" t) +(autoload 'YaTeX-typeset-math-region "yatexmth" "Typeset math-region" t) ;;autoload from yatexhlp.el (autoload 'YaTeX-help "yatexhlp" "YaTeX helper with LaTeX commands." t) @@ -823,7 +829,15 @@ (insert "\n") (or exchange (exchange-point-and-mark))) (goto-char beg2) - (YaTeX-intelligent-newline nil) + (if (intern-soft (concat "YaTeX-intelligent-newline-" env)) + (progn + (YaTeX-intelligent-newline nil) + (message + (cond + (YaTeX-japan "%s で次の行の入力に進みます。") + (t "`%s' produces the next line's template.")) + (key-description + (car (where-is-internal 'YaTeX-intelligent-newline)))))) (YaTeX-indent-line)) (YaTeX-package-auto-usepackage env 'env) (if YaTeX-current-position-register @@ -977,9 +991,11 @@ 'section-table 'user-section-table 'tmp-section-table) (if YaTeX-current-position-register (point-to-register YaTeX-current-position-register)) - (if (string= (buffer-substring (- (point) 2) (point)) "{}") - (forward-char -1)) - (while (string= (buffer-substring (- (point) 3) (1- (point))) "{}") + (if (string= (YaTeX-buffer-substring (- (point) 2) (point)) + "{}") + (forward-char -1)) + (while (string= (YaTeX-buffer-substring (- (point) 3) (1- (point))) + "{}") (forward-char -2)) (YaTeX-package-auto-usepackage section 'section)) (if (<= (minibuffer-depth) 0) (use-global-map global-map)) @@ -1100,7 +1116,7 @@ (t (mapcar 'YaTeX-sync-local-table '(tmp-section-table tmp-env-table tmp-singlecmd-table)) - (let*((pattern (buffer-substring begin end)) + (let*((pattern (YaTeX-buffer-substring begin end)) (all-table (append section-table user-section-table tmp-section-table @@ -1114,8 +1130,9 @@ ;; Next, ;; search completion with backslash (setq completion - (try-completion (buffer-substring (1- begin) end) - all-table nil) + (try-completion + (YaTeX-buffer-substring (1- begin) end) + all-table nil) begin (1- begin))) (cond ((null completion) @@ -1189,13 +1206,51 @@ (interactive "r") (save-excursion (goto-char end) - (insert (or close "}")) + (YaTeX-insert-inherit (or close "}")) (goto-char beg) - (insert (or open "{")))) + (YaTeX-insert-inherit (or open "{")))) + +(defun YaTeX-get-macro-at-point (&optional p) + "Get (La)TeX macro around point P." + (interactive "d") + (save-excursion + (goto-char (setq p (or p (point)))) + (let ((token (substring (substring YaTeX-TeX-token-regexp 1) 0 -2)) + bsend) + (and (not (bobp)) + (or (looking-at YaTeX-TeX-token-regexp) + (string-match + YaTeX-TeX-token-regexp (char-to-string (preceding-char)))) + (progn + (skip-chars-backward token) + (equal (preceding-char) ?\\)) + (save-excursion + (setq bsend (point)) + (skip-chars-backward "\\\\") ;emacs18 doesn't return distance + (/= (% (- bsend (point)) 2) 0)) ;consider \\ + (looking-at YaTeX-TeX-token-regexp) + (YaTeX-match-string 0))))) (defun YaTeX-insert-braces (arg &optional open close) (interactive "p") - (let (env) + (let ((begend-guide + (function + (lambda () + (if (equal (get 'YaTeX-insert-braces 'begend-guide) 2) + nil ;if triggered thrice, do nothing + (momentary-string-display + (format + (cond + (YaTeX-japan "begin/end入力には %s を使いましょう") + (t "You don't understand Zen of `%s'!")) + (key-description + (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 + (prin1-to-string + (get 'YaTeX-insert-braces 'begend-guide))))))))) + env macro not-literal b e) (cond ((YaTeX-jmode) (YaTeX-self-insert arg)) ((not (YaTeX-closable-p)) (YaTeX-self-insert arg)) @@ -1205,7 +1260,7 @@ (looking-at "\\\\left\\\\")) (insert "{\\right\\}") (forward-char -8)) - ((save-excursion ;from matsu@math.s.chiba-u.ac.jp + ((save-excursion ;from matsu<at>math.s.chiba-u.ac.jp (and (> (- (point) (point-min)) 6) (forward-char -6)) (looking-at "\\\\[bB]igl\\\\")) (insert @@ -1223,49 +1278,93 @@ ((= (preceding-char) ?\\ ) (insert "{\\}") (forward-char -2)) ;matsu's hack ends here - ((and (> (point) (+ (point-min) 4)) - (save-excursion (backward-char 4) (looking-at "\\\\end")) - (not (YaTeX-literal-p)) + ((and (setq not-literal (not (YaTeX-literal-p))) + (equal "end" (setq macro (YaTeX-get-macro-at-point))) (setq env (YaTeX-inner-environment))) - (momentary-string-display - (concat - "{" - (cond - (YaTeX-japan - (format "今度からはちゃんと %s b を使いましょう" YaTeX-prefix)) - (t (format "You don't understand Zen of `%s b':p" YaTeX-prefix))) - "}") - (point)) - (insert (or open "{") env (or close "}"))) + (funcall begend-guide) + (insert "{" env "}")) + ((and not-literal (equal "begin" macro)) + (insert "{") + (save-excursion + (indent-to (prog1 (- (current-column) 7) (insert "}\n"))) + (insert "\\end{}") + (setq e (point))) + (setq env + (YaTeX-read-environment + (format "Begin environment(default %s): " YaTeX-env-name))) + (if (string= "" env) (setq env YaTeX-env-name)) + (setq YaTeX-env-name env) + (funcall begend-guide) + (delete-region (- (point) 7) e) + (YaTeX-insert-begin-end env nil)) (t (insert (or open "{") (or close "}")) (forward-char -1) - (if (and (eq (char-after (point)) ?\}) + (if (and (eq (char-after (point)) ?\}) ;; the case `\\{}' (eq (char-after (- (point) 2)) ?\\ )) (progn (insert "\\") (forward-char -1))) )))) (defun YaTeX-jmode () (or (and (boundp 'canna:*japanese-mode*) canna:*japanese-mode*) - (and (boundp 'egg:*mode-on*) egg:*mode-on* egg:*input-mode*))) + (and (boundp 'egg:*mode-on*) egg:*mode-on* egg:*input-mode*) + (and (boundp 'skk-mode) skk-mode (not skk-latin-mode)) + (and (boundp 'default-input-method) default-input-method + current-input-method))) (defun YaTeX-jmode-off () + (if (cond + ((and (boundp 'canna:*japanese-mode*) canna:*japanese-mode*) + (canna-toggle-japanese-mode) t) + ((and (boundp 'egg:*mode-on*) egg:*mode-on* egg:*input-mode*) + (egg:toggle-egg-mode-on-off) t) + ((and (fboundp 'skk-mode) (boundp 'skk-mode) skk-mode) + (cond + ((fboundp 'skk-latin-mode) + (or (and (boundp 'skk-henkan-mode) skk-henkan-mode) + (and (boundp 'skk-henkan-on) + (or skk-henkan-mode skk-henkan-active)) + (and (boundp 'j-henkan-on) + (or j-henkan-on j-henkan-active)) + ;; Deactivate jmode if henkan-mode is not running. + ;; Suggested by tt.tetsuo.tsukamoto. + (progn + (put 'YaTeX-jmode-on 'skkkata skk-katakana) + (skk-latin-mode t)))) + ((fboundp 'skk-mode-off) (skk-mode-off)) + (t (j-mode-off))) + t) + ((and (fboundp 'toggle-input-method) current-input-method) + (toggle-input-method) t) + ((and (fboundp 'fep-force-off) (fep-force-off)))) + (put 'YaTeX-jmode 'jmode t))) + +(defun YaTeX-jmode-on () (cond - ((and (boundp 'canna:*japanese-mode*) canna:*japanese-mode*) - (canna-toggle-japanese-mode)) - ((and (boundp 'egg:*mode-on*) egg:*mode-on* egg:*input-mode*) - (egg:toggle-egg-mode-on-off)) - ((and (fboundp 'skk-mode) (boundp 'skk-mode) skk-mode) - (cond - ((fboundp 'skk-latin-mode) (skk-latin-mode t)) - ((fboundp 'skk-mode-off) (skk-mode-off)) - (t (j-mode-off)))) - ((and (fboundp 'toggle-input-method) current-input-method) - (toggle-input-method)) - ((and (fboundp 'fep-force-off) (fep-force-off))))) + ((boundp 'canna:*japanese-mode*) + (if (not canna:*japanese-mode*) (canna-toggle-japanese-mode))) + ((boundp 'egg:*mode-on*) + (and (not egg:*mode-on*) (not egg:*input-mode*) + (egg:toggle-egg-mode-on-off))) + ((and (fboundp 'skk-mode) (boundp 'skk-mode)) + (if (get 'YaTeX-jmode-on 'skkkata) + (skk-j-mode-on t) + (skk-mode 1)) + (put 'YaTeX-jmode-on 'skkkata nil)) + ((fboundp 'toggle-input-method) + (if (not current-input-method) (toggle-input-method))) + ((and (fboundp 'fep-force-on) (fep-force-on))))) + +(defun YaTeX-jmode-back () + (if (get 'YaTeX-jmode 'jmode) + (YaTeX-jmode-on)) + (setplist 'YaTeX-jmode nil)) (defun YaTeX-self-insert (arg) (call-interactively (global-key-binding (char-to-string last-command-char)))) +(defun YaTeX-insert-inherit (&rest args) + (apply (if (fboundp 'insert-and-inherit) 'insert-and-inherit 'insert) + args)) (defun YaTeX-insert-brackets (arg) "Insert Kagi-kakko or \\ [ \\] pair or simply \[." @@ -1278,35 +1377,35 @@ ((save-excursion (and (> (- (point) (point-min)) 5) (forward-char -5)) (looking-at "\\\\left")) - (insert "[\\right]") + (YaTeX-insert-inherit "[\\right]") (forward-char -7)) - ((save-excursion ;from matsu@math.s.chiba-u.ac.jp + ((save-excursion ;from matsu<at>math.s.chiba-u.ac.jp (and (> (- (point) (point-min)) 5) (forward-char -5)) (looking-at "\\\\[bB]igl")) - (insert + (YaTeX-insert-inherit (concat "[" (buffer-substring (match-beginning 0) (- (match-end 0) 1)) "r]")) (forward-char -6)) ((save-excursion (and (> (- (point) (point-min)) 6) (forward-char -6)) (looking-at "\\\\[bB]iggl")) - (insert + (YaTeX-insert-inherit (concat "[" (buffer-substring (match-beginning 0) (- (match-end 0) 1)) "r]")) (forward-char -7)) ;matsu's hack ends here ((and (= (preceding-char) ?\\ ) (/= (char-after (- (point) 2)) ?\\ ) (not (YaTeX-in-math-mode-p))) - (insert last-command-char "\n") + (YaTeX-insert-inherit last-command-char "\n") (indent-to (max 0 col)) - (insert "\\]") + (YaTeX-insert-inherit "\\]") (beginning-of-line) (open-line 1) (delete-region (point) (progn (beginning-of-line) (point))) (indent-to (+ YaTeX-environment-indent (max 0 col))) (or YaTeX-auto-math-mode YaTeX-math-mode (YaTeX-toggle-math-mode 1))) ((YaTeX-closable-p) - (insert "[]") + (YaTeX-insert-inherit "[]") (backward-char 1)) (t (YaTeX-self-insert arg))))) @@ -1323,27 +1422,27 @@ ((save-excursion (and (> (- (point) (point-min)) 5) (forward-char -5)) (looking-at "\\\\left")) - (insert "(\\right)") + (YaTeX-insert-inherit "(\\right)") (forward-char -7)) - ((save-excursion ;from matsu@math.s.chiba-u.ac.jp + ((save-excursion ;from matsu<at>math.s.chiba-u.ac.jp (and (> (- (point) (point-min)) 5) (forward-char -5)) (looking-at "\\\\[bB]igl")) - (insert + (YaTeX-insert-inherit (concat "(" (buffer-substring (match-beginning 0) (- (match-end 0) 1)) "r)")) (forward-char -6)) ((save-excursion (and (> (- (point) (point-min)) 6) (forward-char -6)) (looking-at "\\\\[bB]iggl")) - (insert + (YaTeX-insert-inherit (concat "(" (buffer-substring (match-beginning 0) (- (match-end 0) 1)) "r)")) (forward-char -7)) ((= (preceding-char) ?\\ ) ;matsu's hack ends here - (insert "(\\)") + (YaTeX-insert-inherit "(\\)") (backward-char 2)) ((YaTeX-closable-p) - (insert "()") + (YaTeX-insert-inherit "()") (backward-char 1)) (t (YaTeX-self-insert arg)))) @@ -1360,9 +1459,9 @@ ((save-excursion (and (> (- (point) (point-min)) 5) (forward-char -5)) (looking-at "\\\\left")) - (insert "|\\right|") + (YaTeX-insert-inherit "|\\right|") (forward-char -7)) - ((save-excursion ;from matsu@math.s.chiba-u.ac.jp + ((save-excursion ;from matsu<at>math.s.chiba-u.ac.jp (and (> (- (point) (point-min)) 5) (forward-char -5)) (looking-at "\\\\[bB]igl")) (insert @@ -1376,10 +1475,10 @@ (concat "|" (buffer-substring (match-beginning 0) (- (match-end 0) 1)) "r|")) (forward-char -7)) - ((save-excursion ; added by Jin <MAF01011@nifty.ne.jp> + ((save-excursion ; added by Jin <MAF01011<at>nifty.ne.jp> (and (> (- (point) (point-min)) 6) (forward-char -6)) (looking-at "\\\\left\\\\")) - (insert "|\\right\\|") + (YaTeX-insert-inherit "|\\right\\|") (forward-char -8)) ((save-excursion (and (> (- (point) (point-min)) 6) (forward-char -6)) @@ -1396,15 +1495,63 @@ "|" (buffer-substring (match-beginning 0) (- (match-end 0) 2)) "r\\|")) (forward-char -8)) ; added by Jin up to here. ((= (preceding-char) ?\\ ) - (insert "|\\|") + (YaTeX-insert-inherit "|\\|") (backward-char 2)) ; ((and (YaTeX-closable-p) ; (/= (preceding-char) ?|) ; (/= (following-char) ?|)) -; (insert "||") +; (YaTeX-insert-inherit "||") ; (backward-char 1)) (t (YaTeX-self-insert arg)))) +(defvar YaTeX-use-jmode-hook (not (and (fboundp 'skk-mode) (boundp 'skk-mode))) + "*Non-nil means activate automatic jmode switcher within/out math mode. +Hopefully, change default to t in the next version of 1.75.") +(defun YaTeX-jmode-hook (old new) + "A hook controling jmode on/off." + ;; This function is called via point-entered/leave hook, so that + ;; codes in it is evaluated on such emacsen as having text-properties. + (let ((inhibit-point-motion-hooks t) + (oldp (plist-get (text-properties-at old) 'point-left)) + (newp (plist-get (text-properties-at new) 'point-left)) + (lnew (plist-get (text-properties-at new) 'last-new)) + (mjmode (plist-get (text-properties-at new) 'mjmode)) + (bmp (buffer-modified-p)) + (jm (YaTeX-jmode)) b e) + (unwind-protect + (cond + ((eq lnew new) nil) ;Do nothing if continuous entry + ((and (not (eq newp 'YaTeX-jmode-hook)) + (eq oldp 'YaTeX-jmode-hook) + (plist-get (text-properties-at old) 'entered)) + ;; leave + (remove-text-properties + (setq b (1+ (or (previous-single-property-change old 'point-left) + (1- (point))))) + (setq e (1- (or (next-single-property-change old 'point-left) + (1+ (point))))) + (list 'last-new nil 'entered nil)) + (add-text-properties b e (list 'mjmode jm)) + (if (boundp 'skk-katakana) + (put 'YaTeX-jmode-on 'skkkata skk-katakana)) + (if (plist-get (text-properties-at old) 'jmode) + (YaTeX-jmode-on))) + ((and (not (eq oldp 'YaTeX-jmode-hook)) + (eq newp 'YaTeX-jmode-hook) + (not (plist-get (text-properties-at new) 'entered))) + ;; enter + (add-text-properties + (1+ (or (previous-single-property-change new 'point-left) + (1- (point)))) + (1- (or (next-single-property-change new 'point-left) + (1+ (point)))) + (list 'jmode jm 'last-new new 'entered t)) + (if (boundp 'skk-katakana) ;care for skk katakana mode + (put 'YaTeX-jmode-on 'skkkata skk-katakana)) + (if mjmode (YaTeX-jmode-on) (YaTeX-jmode-off)))) + ;;unwind job + (set-buffer-modified-p bmp)))) + (defun YaTeX-insert-dollar () (interactive) (if (or (not (YaTeX-closable-p)) @@ -1414,6 +1561,16 @@ (insert "$") (insert "$$") (forward-char -1) + (and YaTeX-use-jmode-hook + (fboundp 'add-text-properties) + (add-text-properties + (1- (point)) (1+ (point)) + (list 'point-left 'YaTeX-jmode-hook + 'point-entered 'YaTeX-jmode-hook + 'front-sticky t + 'rear-nonsticky t + 'mjmode nil + 'jmode (YaTeX-jmode)))) (YaTeX-jmode-off) (or YaTeX-auto-math-mode YaTeX-math-mode (YaTeX-toggle-math-mode 1)))) @@ -1445,17 +1602,19 @@ Optional second argument CHAR is for non-interactive call from menu." (interactive "P") (message - (concat "J)latex R)egion B)ibtex mk(I)ndex " - (if (fboundp 'start-process) "K)ill-latex ") + (concat "J)latex R)egion E)nv B)ibtex mk(I)dx " + "latex+p(D)f " + (if (fboundp 'start-process) "K)ill ") "P)review " (and (boundp 'window-system) window-system "S)earch ") - "V)iewerr L)pr")) + "V)iewErr L)pr")) (let ((sw (selected-window)) (c (or char (read-char)))) (require 'yatexprc) ;for Nemacs's bug (select-window sw) (cond ((= c ?j) (YaTeX-typeset-buffer)) ((= c ?r) (YaTeX-typeset-region)) + ((= c ?e) (YaTeX-typeset-environment)) ((= c ?b) (YaTeX-call-command-on-file bibtex-command "*YaTeX-bibtex*" YaTeX-parent-file)) ((= c ?i) (YaTeX-call-command-on-file @@ -1463,6 +1622,7 @@ ((= c ?k) (YaTeX-kill-typeset-process YaTeX-typeset-process)) ((= c ?p) (call-interactively 'YaTeX-preview)) ((= c ?q) (YaTeX-system "lpq" "*Printer queue*")) + ((= c ?d) (YaTeX-typeset-buffer YaTeX-dvipdf-command)) ((= c ?v) (YaTeX-view-error)) ((= c ?l) (YaTeX-lpr arg)) ((= c ?m) (YaTeX-switch-mode-menu arg)) @@ -1488,7 +1648,8 @@ ((= c ?l) "%#LPR"))) (if (re-search-forward key nil t) (progn - (setq string (buffer-substring (point) (point-end-of-line))) + (setq string (YaTeX-buffer-substring + (point) (point-end-of-line))) (delete-region (point) (progn (end-of-line) (point)))) (open-line 1) (delete-region (point) (progn (beginning-of-line)(point)));for 19 :-< @@ -1515,6 +1676,29 @@ (set-marker e nil)) )))) +(defvar YaTeX-refcommand-def-regexp-default + "label\\|bibitem") +(defvar YaTeX-refcommand-def-regexp-private nil + "*Regexp of defining label commands") +(defvar YaTeX-refcommand-def-regexp + (concat (if YaTeX-refcommand-def-regexp-private + (concat YaTeX-refcommand-def-regexp-private "\\|")) + YaTeX-refcommand-def-regexp-default)) + +(defvar YaTeX-refcommand-ref-regexp-default + "\\(page\\|eq\\|fig\\)?ref\\|cite") +(defvar YaTeX-refcommand-ref-regexp-private nil + "*Regexp of referring label commands") +(defvar YaTeX-refcommand-ref-regexp + (concat (if YaTeX-refcommand-ref-regexp-private + (concat YaTeX-refcommand-ref-regexp-private "\\|")) + YaTeX-refcommand-ref-regexp-default)) + +(defvar YaTeX-refcommand-regexp + (concat YaTeX-refcommand-def-regexp + "\\|" YaTeX-refcommand-ref-regexp) + "Regexp of label defining/referring command name.") + (defun YaTeX-goto-corresponding-label (reverse &optional otherwin) "Jump to corresponding \\label{} and \\ref{} or \\cite and \\bibitem. The default search direction depends on the command at the cursor position. @@ -1530,7 +1714,7 @@ If optional second argument OTHERWIN is non-nil, move to other window." (let ((scmd "") label direc string blist (p (point)) (cb (current-buffer)) - (refcommands "label\\|\\(page\\|eq\\)?ref\\|cite\\|bibitem") + (refcommands YaTeX-refcommand-regexp) (foundmsg (format "Type %s %c to return to original position." (key-description (car @@ -1557,7 +1741,7 @@ "\\\\bibitem\\(\\[[^]]+\\]\\)?{%k}\\|^\\s *@[a-z]+{%k,") ("bibitem" . "\\\\cite\\(\\[[^]]+\\]\\)?"))))) (goto-char (match-end 0)) - (let ((label (buffer-substring + (let ((label (YaTeX-buffer-substring (1- (point)) (progn (backward-list 1) (1+ (point))))) (fp (make-marker))fl fn (goother (function (lambda (buffer point) @@ -1647,7 +1831,7 @@ (defun YaTeX-goto-corresponding-file (&optional other) "Visit or switch buffer of corresponding file, -looking at \\input or \\include or \includeonly on current line." +looking at \\input or \\include or \\includeonly on current line." (if (not (YaTeX-on-includes-p)) nil (let ((parent buffer-file-name) input-file b) (save-excursion @@ -1656,7 +1840,7 @@ nil (skip-chars-backward "^,{")) (setq input-file - (buffer-substring + (YaTeX-buffer-substring (point) (progn (skip-chars-forward "^ ,}") (point)))) (if (not (string-match "\\.\\(tex\\|sty\\)$" input-file)) (setq input-file (concat input-file ".tex")))) @@ -2205,7 +2389,8 @@ (defun YaTeX-read-section-with-overview () "Read sectioning command with overview. -This function refers a local variable `source-window' in YaTeX-make-section" +This function refers a local variable `source-window' in YaTeX-make-section, +because this function is called with no argument." (interactive) (require 'yatexsec) ;some case needs this (if (> (minibuffer-depth) 1) @@ -2238,9 +2423,9 @@ (interactive) (if (not (YaTeX-on-begin-end-p)) nil (save-excursion - (let (p env (m1 (match-beginning 1)) (m2 (match-beginning 2))) - (setq env (if m1 (buffer-substring m1 (match-end 1)) - (buffer-substring m2 (match-end 2)))) + (let (p env newenv (m1 (match-beginning 1)) (m2 (match-beginning 2))) + (setq env (if m1 (YaTeX-buffer-substring m1 (match-end 1)) + (YaTeX-buffer-substring m2 (match-end 2)))) (goto-char (match-beginning 0)) (set-mark-command nil) (YaTeX-goto-corresponding-environment) @@ -2265,14 +2450,15 @@ (beg (make-marker)) (end (make-marker)) old new) (if (null where) nil (unwind-protect - (progn + (let ((source-window (selected-window))) (cond ((equal where 0);;if point is on section command (set-marker beg (match-beginning 1)) (set-marker end (match-end 1)) (goto-char beg) ;beginning of the command (setq new (YaTeX-read-section - (format "Change `%s' to: " cmd) nil))) + (format "Change `%s' to: " cmd) nil) + old cmd)) ((= where -1);;if point is on a optional parameter (set-marker beg (match-beginning 2)) @@ -2283,9 +2469,10 @@ (if (fboundp (intern-soft (concat YaTeX-addin-prefix cmd))) (YaTeX-addin cmd) (concat "[" - (read-string (format "Change `%s' to: " - (buffer-substring - (1+ beg) (1- end)))) + (read-string + (format "Change `%s' to: " + (setq old (YaTeX-buffer-substring + (1+ beg) (1- end))))) "]")))) ((> where 0);;if point is in arguments' braces @@ -2295,7 +2482,7 @@ (forward-list 1) (forward-char -1) (set-marker end (point)) - (setq old (buffer-substring beg end)) + (setq old (YaTeX-buffer-substring beg end)) (goto-char p) (if (> (length old) 40) (setq old (concat (substring old 0 12) "..." @@ -2305,9 +2492,11 @@ (funcall (intern-soft (concat "YaTeX::" cmd)) where) (read-string (format "Change `%s' to: " old))))) ) ;cond - (delete-region beg end) - (goto-char beg) - (insert-before-markers new)) + (if (string= old new) + nil ;do not replace + (delete-region beg end) + (goto-char beg) + (insert-before-markers new))) (set-marker beg nil) (set-marker end nil)) ;;(goto-char (marker-position p)) @@ -2422,7 +2611,8 @@ nil (goto-char (match-end 2)) (skip-chars-forward - (concat "^" (buffer-substring (match-beginning 2) (match-end 2)))) + (concat "^" (YaTeX-buffer-substring + (match-beginning 2) (match-end 2)))) (and (< (match-beginning 2) point) (< (1- point) (point)))) (store-match-data md))))) @@ -2464,7 +2654,8 @@ (if (match-beginning 2) (setq nest (1+ nest)) (setq nest (1- nest))) - (if (< nest 0) (throw 'open t))))))) + (if (< nest 0) + (throw 'open (cons env (match-beginning 0))))))))) ((listp env) (setq p (or (YaTeX-in-environment-p (car env)) @@ -2478,21 +2669,25 @@ ENV is given in the form of environment's name or its list. This function returns correct result only if ENV is NOT nested." (save-excursion - (let ((md (match-data)) (p (point)) rc clfound) + (let ((md (match-data)) m0 (p (point)) rc clfound) (cond ((listp env) (or (YaTeX-quick-in-environment-p (car env)) (and (cdr env) (YaTeX-quick-in-environment-p (cdr env))))) (t - (if (YaTeX-search-active-backward - (YaTeX-replace-format-args YaTeX-struct-begin env "" "") - YaTeX-comment-prefix nil t) - (setq rc (not (YaTeX-search-active-forward - (YaTeX-replace-format-args - YaTeX-struct-end env) - YaTeX-comment-prefix p t nil)))) - (store-match-data md) - rc))))) + (unwind-protect + (if (prog1 + (YaTeX-search-active-backward + (YaTeX-replace-format-args YaTeX-struct-begin env "" "") + YaTeX-comment-prefix nil t) + (setq m0 (match-beginning 0))) + (if (YaTeX-search-active-forward + (YaTeX-replace-format-args + YaTeX-struct-end env) + YaTeX-comment-prefix p t nil) + nil ;if \end{env} found, return nil + (cons env m0))) ;else, return meaningful values + (store-match-data md))))))) ;; Filling \item (defun YaTeX-remove-trailing-comment (start end) @@ -2576,7 +2771,7 @@ (newline) (indent-to col) (setq fill-prefix - (buffer-substring (point-beginning-of-line)(point))) + (YaTeX-buffer-substring (point-beginning-of-line)(point))) (beginning-of-line) (delete-region (point) (progn (forward-line 1) (point))) (re-search-forward item-term nil 1) @@ -2622,7 +2817,7 @@ (setq end (point)) ;non-whitespace char (skip-chars-forward " \t") (equal (point) p)) - (setq fill-prefix (buffer-substring p end))) + (setq fill-prefix (YaTeX-buffer-substring p end))) ((and ;;(not YaTeX-emacs-19) (string-match YaTeX-itemizing-env-regexp inenv) (setq ii (YaTeX-get-item-info))) @@ -2630,7 +2825,7 @@ (beginning-of-line) (indent-to-column (car (cdr ii))) (setq fill-prefix - (buffer-substring (point) (point-beginning-of-line))) + (YaTeX-buffer-substring (point) (point-beginning-of-line))) (delete-region (point) (progn (beginning-of-line) (point)))))) (cond ((string-match "tabular" inenv)
--- a/yatex.new Mon Sep 28 12:48:28 2009 +0900 +++ b/yatex.new Thu Jan 12 12:26:35 2012 +0900 @@ -1,6 +1,25 @@ What's new in YaTeX/yahtml 野鳥/yahtml - 各バージョンの変更点について +1.75 === yatex === + [prefix] t e でポイント位置を含む環境か数式環境をタイプセット。 + M-C-SPC で環境だけでなく数式環境もマークする。 + [prefix] t d でタイプセッタ起動成功のあと dvipdfmx を起動。 + \label{}でラベル名を入れたときは \ref{NAME} を自動的にkill-ringに追加。 + [prefix] t c で\label{NAME} の NAME を変えたら \ref のNAMEも変える。 + 同上のことを \cite/\bibitem にも。 + \bibitem{}を入れたときは \cite{TAG} を自動的にkill-ringに追加。 + \end 補完のお節介検査の精度を少し上げた。 + jsarticle, jsbook をデフォルト補完辞書に入れた。 + \begin の直後の { で自動的に \end 込みで環境補完(modify-modeと連動)。 + === yahtml === + [prefix] t ブラウザメニューに「n:新規ページ作成」を追加(実験)。 + [prefix] t j のlintコマンドを <!-- #lint CmdLine --> 行で指定可。 + [prefix] } でリジョンを td 要素で括る(デフォルトは空白区切り)。 + [prefix] ] でリジョンを tr, td 要素で括る(1行1レコード)。 + 閉じ括弧のないCSSファイル解析が終われない問題を修正。 + li, dt, dd のインデント計算を環境型的に深さを変えるようにした。 + 1.74 === yatex === YaTeX-kanji-code が 4 のときは UTF-8 とした。 Previewファイルの拡張子が.dviであるという仮定を弱くした(pdf等)。
--- a/yatexadd.el Mon Sep 28 12:48:28 2009 +0900 +++ b/yatexadd.el Thu Jan 12 12:26:35 2012 +0900 @@ -1,8 +1,8 @@ ;;; -*- Emacs-Lisp -*- ;;; YaTeX add-in functions. -;;; yatexadd.el rev.18 -;;; (c)1991-2006 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Fri Sep 21 11:44:42 2007 on firestorm +;;; yatexadd.el rev.19 +;;; (c)1991-2011 by HIROSE Yuuji.[yuuji@yatex.org] +;;; Last modified Mon Mar 7 12:12:11 2011 on firestorm ;;; $Id$ ;;; @@ -198,12 +198,16 @@ (defun YaTeX:parbox () (YaTeX:read-position "tbc")) +(defun YaTeX::parbox (argp) + (cond + ((= argp 1) (read-string "Width: ")) + ((= argp 2) (read-string "Text: ")))) -(defun YaTeX:dashbox () +(defun YaTeX::dashbox () (concat "{" (read-string "Dash dimension: ") "}" (YaTeX:read-coordinates "Dimension"))) -(defun YaTeX:savebox (argp) +(defun YaTeX::savebox (argp) (cond ((= argp 1) (read-string "Saved into name: " "\\")) ((= argp 2) (read-string "Text: ")))) @@ -738,7 +742,7 @@ "Alist of labeling regexp vs. its group number points to label string. This alist is used in \\ref's argument's completion.") (defvar YaTeX::ref-labeling-regexp-alist-private nil - "*Private extesion to YaTeX::ref-labeling-regexp-alist. + "*Private extension to YaTeX::ref-labeling-regexp-alist. See the documetation of YaTeX::ref-labeling-regexp-alist.") (defvar YaTeX::ref-labeling-regexp-alist (append YaTeX::ref-labeling-regexp-alist-default @@ -1115,6 +1119,108 @@ (bury-buffer YaTeX-label-buffer))) label))))) +(defun YaTeX::label-rename-refs (old new &optional def ref) + "Rename reference tag from OLD to NEW. +Optional arguments DEF and REF specify defining command and +referring command respectively. +--------------------------------------------------------- +CONTROL KEYS - キーの説明 + y Replace 置換する + n Do not replace 置換しない + ! Replace All w/o query 残る全部を確認なしで置換 + r Enter Recursive-edit 再帰編集モードへ + q Quit from replacing ここまでで置換をやめる + +Don't forget to exit from recursive edit by typing \\[exit-recursive-edit] +再帰編集に入ったら \\[exit-recursive-edit] で抜け忘れなきよう。" + (save-window-excursion + (catch 'exit + (let*((bufs (YaTeX-yatex-buffer-list)) buf b e + (oldptn (regexp-quote old)) + (sw (selected-window)) + (ptn (concat + "\\(" YaTeX-refcommand-ref-regexp "\\)" + "\\s *{" oldptn "}")) + (repface (and (fboundp 'make-overlay) + (fboundp 'internal-find-face) + (if (internal-find-face 'isearch) 'isearch 'region))) + ov + (qmsg "Replace to `%s'? [yn!rq?]") + continue ch) + (while bufs + (set-buffer (setq buf (car bufs))) + (save-excursion + (goto-char (point-min)) + (while (re-search-forward ptn nil t) + (goto-char (match-end 1)) + (skip-chars-forward " \t\n{") + (unwind-protect + (if (and + (looking-at oldptn) + (setq b (match-beginning 0) + e (match-end 0)) + (or continue + (catch 'query + (if repface + (if ov (move-overlay ov b e) + (overlay-put + (setq ov (make-overlay b e)) + 'face repface))) + (switch-to-buffer buf) + (while t + (message qmsg new) + (setq ch (read-char)) + (cond + ((= ch ?q) (throw 'exit t)) + ((= ch ?r) + (message + "Don't forget to exit recursive-edit by `%s'" + (key-description + (where-is-internal + 'exit-recursive-edit '(keymap) t))) + (sleep-for 2) + (recursive-edit)) + ((= ch ?y) (throw 'query t)) + ((= ch ?!) (throw 'query (setq continue t))) + ((= ch ??) + (describe-function + 'YaTeX::label-rename-refs) + (select-window (get-buffer-window "*Help*")) + (search-forward "----") + (forward-line 1) + (set-window-start (selected-window) (point)) + (sit-for 0) + (select-window sw)) + ((= ch ?n) (throw 'query nil))))))) + (replace-match new)) + (and ov (delete-overlay ov))))) + (setq bufs (cdr bufs))))))) + +(defun YaTeX::label (argp &optional labname refname) + "Read label name and return it with copying \\ref{LABEL-NAME} to kill-ring." + (cond + ((= argp 1) + (let*((chmode (boundp (intern-soft "old"))) + (dlab (if chmode old ;if called via YaTeX-change-section (tricky...) + (YaTeX::ref-default-label))) + (label (read-string + (format "New %s name: " (or labname "label")) + (cons dlab 1)))) + (if (string< "" label) + (let ((refstr (format "\\%s{%s}" (or refname "ref") label)) + (key (key-description (where-is-internal 'yank nil t))) + (msg + (if YaTeX-japan + "をkill-ringに入れました。yank(%s)で取り出せます。" + " is stored into kill-ring. Paste it by yank(%s)."))) + (kill-new refstr) + (and chmode + (not (equal old label)) + (YaTeX::label-rename-refs old label)) + (message (concat "`%s'" msg) refstr key))) + label)))) + + (fset 'YaTeX::pageref 'YaTeX::ref) (defun YaTeX::tabref (argp) ; For the style file of IPSJ journal (YaTeX::ref @@ -1282,6 +1388,10 @@ (t nil))) +(defun YaTeX::bibitem (argp) + "Add-in function to insert argument of \\bibitem." + (YaTeX::label argp "label" "cite")) + ;;; for AMS-LaTeX (and YaTeX-use-AMS-LaTeX (fset 'YaTeX::eqref 'YaTeX::ref)) ;;; for Harvard citation style @@ -1292,13 +1402,6 @@ (fset 'YaTeX::citep 'YaTeX::cite) (fset 'YaTeX::citet 'YaTeX::cite) -(defun YaTeX-yatex-buffer-list () - (save-excursion - (delq nil (mapcar (function (lambda (buf) - (set-buffer buf) - (if (eq major-mode 'yatex-mode) buf))) - (buffer-list))))) - (defun YaTeX-select-other-yatex-buffer () "Select buffer from all yatex-mode's buffers interactivelly." (interactive) @@ -1587,6 +1690,7 @@ ("latterpaper") ("legalpaper") ("executivepaper") ("landscape") ("oneside") ("twoside") ("draft") ("final") ("leqno") ("fleqn") ("openbib") ("tombow") ("titlepage") ("notitlepage") ("dvips") + ("mingoth") ;for jsarticle ("clock") ;for slides class only ) "Default options list for documentclass") @@ -1624,6 +1728,7 @@ (defvar YaTeX:documentclasses-default '(("article") ("jarticle") ("report") ("jreport") ("book") ("jbook") + ("jsarticle") ("jsbook") ("j-article") ("j-report") ("j-book") ("letter") ("slides") ("ltxdoc") ("ltxguide") ("ltnews") ("proc")) "Default documentclass alist") @@ -1661,7 +1766,7 @@ ("Emerald") ("JungleGreen") ("SeaGreen") ("Green") ("ForestGreen") ("PineGreen") ("LimeGreen") ("YellowGreen") ("SpringGreen") ("OliveGreen") ("RawSienna") ("Sepia") ("Brown") ("Tan") ("Gray") ("Black") ("White")) - "Colors defined in $TEXMF/tex/plain/colordvi.tex") + "Colors defined in $TEXMF/tex/plain/dvips/colordvi.tex") (defvar YaTeX:latex2e-basic-color-alist '(("black") ("white") ("red") ("blue") ("yellow") ("green") ("cyan")
--- a/yatexhie.el Mon Sep 28 12:48:28 2009 +0900 +++ b/yatexhie.el Thu Jan 12 12:26:35 2012 +0900 @@ -1,8 +1,8 @@ ;;; -*- Emacs-Lisp -*- ;;; YaTeX hierarchy browser. ;;; yatexhie.el -;;; (c)1995 by HIROSE Yuuji [yuuji@yatex.org] -;;; Last modified Fri Jun 27 12:09:49 2003 on firestorm +;;; (c)1995-2012 by HIROSE Yuuji [yuuji@yatex.org] +;;; Last modified Mon Jan 9 20:19:06 2012 on firestorm ;;; $Id$ ;; ----- Customizable variables -----
--- a/yatexinf.el Mon Sep 28 12:48:28 2009 +0900 +++ b/yatexinf.el Thu Jan 12 12:26:35 2012 +0900 @@ -1,7 +1,7 @@ ;;; -*- Emacs-Lisp -*- ;;; YaTeX interfaces for Texinfo mode. -;;; (c)1994,1998,2001 by HIROSE, Yuuji [yuuji@yatex.org] -;;; Last modified Fri Jun 27 12:10:03 2003 on firestorm +;;; (c)1994-2012 by HIROSE, Yuuji [yuuji@yatex.org] +;;; Last modified Mon Jan 9 20:19:55 2012 on firestorm (require 'yatex) (or (boundp 'texinfo-mode-map)
--- a/yatexlib.el Mon Sep 28 12:48:28 2009 +0900 +++ b/yatexlib.el Thu Jan 12 12:26:35 2012 +0900 @@ -1,8 +1,8 @@ ;;; -*- Emacs-Lisp -*- ;;; YaTeX and yahtml common libraries, general functions and definitions ;;; yatexlib.el -;;; (c)1994-2009 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Mon Sep 28 10:46:39 2009 on firestorm +;;; (c)1994-2012 by HIROSE Yuuji.[yuuji@yatex.org] +;;; Last modified Mon Jan 9 20:20:09 2012 on firestorm ;;; $Id$ ;; General variables @@ -465,13 +465,12 @@ ;;;###autoload (defun rindex (string char) (let ((pos (1- (length string)))(index -1)) - (while (>= pos 0) - (cond - ((= (aref string pos) char) - (setq index pos) (setq pos -1)) - (t (setq pos (1- pos)))) - ) - index)) + (catch 'rindex + (while (>= pos 0) + (cond + ((= (aref string pos) char) + (throw 'rindex pos)) + (t (setq pos (1- pos)))))))) ;;;###autoload (defun point-beginning-of-line () @@ -531,11 +530,15 @@ (cond ((fboundp 'screen-height) (fset 'YaTeX-screen-height 'screen-height) - (fset 'YaTeX-screen-width 'screen-width)) + (fset 'YaTeX-screen-width 'screen-width) + (fset 'YaTeX-set-screen-height 'set-screen-height) + (fset 'YaTeX-set-screen-width 'set-screen-width)) ((fboundp 'frame-height) (fset 'YaTeX-screen-height 'frame-height) - (fset 'YaTeX-screen-width 'frame-width)) - (t (error "I don't know how to run windows.el on this Emacs..."))) + (fset 'YaTeX-screen-width 'frame-width) + (fset 'YaTeX-set-screen-height 'set-frame-height) + (fset 'YaTeX-set-screen-width 'set-frame-width)) + (t (error "I don't know how to run YaTeX on this Emacs..."))) ;;;###autoload (defun split-window-calculate-height (height) @@ -665,6 +668,13 @@ (self-insert-command 1) (YaTeX-minibuffer-complete))) +(defun YaTeX-yatex-buffer-list () + (save-excursion + (delq nil (mapcar (function (lambda (buf) + (set-buffer buf) + (if (eq major-mode 'yatex-mode) buf))) + (buffer-list))))) + (defun foreach-buffers (pattern job) "For each buffer which matches with PATTERN, do JOB." (let ((list (buffer-list))) @@ -822,6 +832,21 @@ (win-switch-to-window 1 (- last-command-char win:base-key))) ;;;###autoload +(defun YaTeX-command-to-string (cmd) + (if (fboundp 'shell-command-to-string) + (funcall 'shell-command-to-string cmd) + (let ((tbuf " *tmpout*")) + (if (get-buffer-create tbuf) (kill-buffer tbuf)) + (let ((standard-output (get-buffer-create tbuf))) + (unwind-protect + (save-excursion + (call-process + shell-file-name nil tbuf nil YaTeX-shell-command-option cmd) + (set-buffer tbuf) + (buffer-string)) + (kill-buffer tbuf)))))) + +;;;###autoload (defun YaTeX-reindent (col) "Remove current indentation and reindento to COL column." (save-excursion @@ -887,7 +912,7 @@ (goto-char m0) (put 'YaTeX-inner-environment 'indent (current-column)) (throw 'begin t))))) - (buffer-substring + (YaTeX-buffer-substring (progn (skip-chars-forward open) (1+ (point))) (progn (skip-chars-forward close) (point))))))) @@ -973,9 +998,16 @@ (let ((env (YaTeX-inner-environment))) (if (not env) (error "No premature environment") (save-excursion - (if (YaTeX-search-active-forward - (YaTeX-replace-format-args YaTeX-struct-end env "" "") - YaTeX-comment-prefix nil t) + (if (and + (YaTeX-re-search-active-forward + (concat + "\\(" (YaTeX-replace-format-args + YaTeX-struct-end env "" "") + "\\)\\|\\(" (YaTeX-replace-format-args + YaTeX-struct-begin env "" "") + "\\)") + YaTeX-comment-prefix nil t) + (match-beginning 1)) ;is closing struc. (if (y-or-n-p (concat "Environment `" env "' may be already closed. Force close?")) @@ -1015,28 +1047,31 @@ (defun YaTeX-mark-environment () "Mark current position and move point to end of environment." (interactive) + (require 'yatexmth) (let ((curp (point))) - (if (and (YaTeX-on-begin-end-p) (match-beginning 1)) ;if on \\begin - (progn (goto-char (match-end 0))) - (if (= (char-after (point)) ?\\) nil ;if on \\end - (skip-chars-backward "^\n\\\\") - (or (bolp) (forward-char -1)))) - (if (not (YaTeX-end-of-environment)) ;arg1 turns to match-beginning 1 - (progn - (goto-char curp) - (error "Cannot found the end of current environment.")) - (YaTeX-goto-corresponding-environment) - (beginning-of-line) ;for confirmation - (if (< curp (point)) + (if (YaTeX-in-math-mode-p) + (YaTeX-mark-mathenv) + (if (and (YaTeX-on-begin-end-p) (match-beginning 1)) ;if on \\begin + (progn (goto-char (match-end 0))) + (if (= (char-after (point)) ?\\) nil ;if on \\end + (skip-chars-backward "^\n\\\\") + (or (bolp) (forward-char -1)))) + (if (not (YaTeX-end-of-environment)) ;arg1 turns to match-beginning 1 (progn - (message "Mark this environment?(y or n): ") - (if (= (read-char) ?y) nil - (goto-char curp) - (error "Abort. Please call again at more proper position.")))) - (set-mark-command nil) - (YaTeX-goto-corresponding-environment) - (end-of-line) - (if (eobp) nil (forward-char 1))))) + (goto-char curp) + (error "Cannot found the end of current environment.")) + (YaTeX-goto-corresponding-environment) + (beginning-of-line) ;for confirmation + (if (< curp (point)) + (progn + (message "Mark this environment?(y or n): ") + (if (= (read-char) ?y) nil + (goto-char curp) + (error "Abort. Please call again at more proper position.")))) + (set-mark-command nil) + (YaTeX-goto-corresponding-environment) + (end-of-line) + (if (eobp) nil (forward-char 1)))))) (defun YaTeX-kill-buffer (buffer) "Make effort to show parent buffer after kill." @@ -1049,6 +1084,37 @@ (get-file-buffer pf) (switch-to-buffer (get-file-buffer pf))))) +(defun YaTeX-get-builtin (key) + "Read source built-in command of %# usage." + (catch 'builtin + (let ((bl (delq nil (list (current-buffer) + (and YaTeX-parent-file + (get-file-buffer YaTeX-parent-file))))) + (leader (or (cdr-safe (assq major-mode + '((yatex-mode . "%#") + (yahtml-mode . "<!-- #")))) + ""))) + (save-excursion + (while bl + (set-buffer (car bl)) + (save-excursion + (goto-char (point-min)) + (if (and (re-search-forward + (concat "^" (regexp-quote (concat leader key))) nil t) + (not (eolp))) + (throw 'builtin + (YaTeX-buffer-substring + (progn + (skip-chars-forward " \t" (point-end-of-line)) + (point)) + (if (string< "" comment-end) + (progn + (search-forward + comment-end (point-end-of-line) t) + (match-beginning 0)) + (point-end-of-line)))))) + (setq bl (cdr bl))))))) + ;;;VER2 (defun YaTeX-insert-struc (what env) (cond @@ -1070,6 +1136,24 @@ ((fboundp 'truncate-string) (truncate-string str width)) (t (substring str 0 width)))) +(defun YaTeX-hex (str) + "Return int expressed by hexadecimal string STR." + (if (string< "20" emacs-version) + (string-to-number str 16) + (let ((md (match-data))) + (unwind-protect + (if (string-match "[^0-9a-f]" str) + (error "Non hexadecimal character in %s" str) + (let ((i 0) d) + (setq str (downcase str)) + (while (string< "" str) + (setq d (+ 0 (string-to-char str)) ; + 0 for XEmacs + i (+ (* 16 i) (- d (if (<= d ?9) ?0 (- ?a 10)))) + str (substring str 1))) + i)) + (store-match-data md))))) + + ;;; Function for menu support (defun YaTeX-define-menu (keymap bindlist) "Define KEYMAP(symbol)'s menu-bindings according to BINDLIST.
--- a/yatexmth.el Mon Sep 28 12:48:28 2009 +0900 +++ b/yatexmth.el Thu Jan 12 12:26:35 2012 +0900 @@ -1,8 +1,8 @@ ;;; -*- Emacs-Lisp -*- ;;; YaTeX math-mode-specific functions. ;;; yatexmth.el -;;; (c)1993-2006 by HIROSE Yuuji [yuuji@yatex.org] -;;; Last modified Sun Dec 24 15:13:15 2006 on firestorm +;;; (c)1993-2012 by HIROSE Yuuji [yuuji@yatex.org] +;;; Last modified Mon Jan 9 20:14:02 2012 on firestorm ;;; $Id$ ;;; [Customization guide] @@ -152,7 +152,7 @@ ("\\\\" "setminus" "\\") (")(" "wr" " )\n(") ("<>" "diamond" "<>") - ("/\-" "bigtriangleup" ("/\\\n~~" "△")) + ("/\\-" "bigtriangleup" ("/\\\n~~" "△")) ("-\\/" "bigtriangledown" ("__\n\\/" "▽")) ("<|" "triangleleft" "<|") ("|>" "triangleright" "|>") @@ -171,8 +171,11 @@ ("II" "amalg" "II") ; : ;;relational operators - ("<" "leq" ("<\n-" "≦")) - (">" "geq" (">\n-" "≧")) + ("<" "leq" ("<\n-" "<\n-")) + ("=<" "leqq" ("<\n=" "≦")) + (">" "geq" (">\n-" ">\n-")) + (">=" "geqq" (">\n=" "≧")) + ("=:" "fallingdotseq" (".\n==\n ." "≒")) ("-=" "equiv" ("=\n-" YaTeX-image-equiv)) ("=-" "equiv" ("=\n-" YaTeX-image-equiv)) ("---" "equiv" ("=\n-" YaTeX-image-equiv)) @@ -207,7 +210,9 @@ ("-<" "prec" ("-<" "く")) ("-<=" "preceq" ("-<\n-" "く\n=")) ("<<" "ll" ("<<" "《")) + ("<<" "lll" "<<<") (">>" "gg" (">>" "》")) + (">>>" "ggg" ">>>") ; : ;;arrows ("<-" "leftarrow" ("<-" "←")) @@ -428,10 +433,12 @@ (list 'nth 1 list)) (defvar YaTeX-math-cmd-regexp (concat (regexp-quote YaTeX-ec) "[A-z|]")) -(defvar YaTeX-math-verbatim-environments - '("alltt") - "*List of environments in which LaTeX math mode is disabled. -This value is appended with YaTeX-verbatim-environments.") + +;;; alltt goes into YaTeX-verbatim-environments 2011/3/16 +;;(defvar YaTeX-math-verbatim-environments +;; '("alltt") +;; "*List of environments in which LaTeX math mode is disabled. +;;This value is appended with YaTeX-verbatim-environments.") ;;; ;;YaTeX math-mode functions @@ -506,7 +513,7 @@ ;; "alignat*" "xalignat" "xalignat*" "xxalignat" "xxalignat*" YaTeX-math-begin-list ))) - (let*((p (point)) (nest 0) me0 r + (let*((p (point)) (nest 0) me0 r firstp dollar (delim (concat YaTeX-sectioning-regexp "\\|^$\\|^\C-l")) (boundary (save-excursion @@ -530,8 +537,8 @@ (setq nest (1+ nest)) (if (= (preceding-char) ?\\ ) nil ;;\\[5pt] (setq nest (1- nest)))))) - (if (< nest 0) (throw 'open t)))) - t) + (if (< nest 0) + (throw 'open (cons (YaTeX-match-string 0) (point))))))) ((and (setq r (YaTeX-on-section-command-p YaTeX-math-section-type-regexp)) (numberp r) @@ -541,20 +548,48 @@ (while ;(search-backward "$" boundary t);little bit fast. (YaTeX-re-search-active-backward ;;;;;; Too slow??? "\\$" (concat "[^\\\\]" YaTeX-comment-prefix) boundary t) + (setq dollar "$") (cond ((equal (char-after (1- (point))) ?$) ; $$ equation $$ + (setq dollar "$$") (backward-char 1) (setq nest (1+ nest))) - ((let ((YaTeX-verbatim-environments - (append YaTeX-math-verbatim-environments - YaTeX-verbatim-environments))) - (YaTeX-literal-p)) + ((YaTeX-literal-p) nil) ((and (equal (char-after (1- (point))) ?\\ ) (not (equal (char-after (- (point) 3)) ?\\ ))) nil) ;\$ - (t (setq nest (1+ nest))))) - (if (= (% nest 2) 1) (throw 'dollar t)))))))))) + (t (setq nest (1+ nest)))) + (if (and (= nest 1) (null firstp)) + (setq firstp (cons dollar (point))))) + (if (= (% nest 2) 1) + (throw 'dollar firstp)))))))))) + +(defun YaTeX-mark-mathenv () + "Mark current mathematic environment." + (interactive) + (let ((mmp (YaTeX-in-math-mode-p)) type bpt) + (if (or (null mmp) (not (stringp (setq type (car mmp))))) + nil ;if nil or not string, do nothing + (setq bpt (cdr mmp)) + (goto-char bpt) + (cond + ((string-match "\\$" type) + (set-mark-command nil) + (skip-chars-forward "$") + (YaTeX-search-active-forward + type YaTeX-comment-prefix nil) ;if it cause error, obey it + (goto-char (match-end 0))) + ;; + ((string-match "^\\\\[\\[(]" type) + (set-mark-command nil) + (YaTeX-goto-corresponding-leftright) + (skip-chars-forward "])\\\\")) + ;; + ((string-match "^[a-z]" type) ; \begin\end type math + (set-mark-command nil) + (YaTeX-goto-corresponding-environment) + (goto-char (match-end 0))))))) (defun YaTeX-math-display-list (list cols) (goto-char (point-max)) @@ -600,7 +635,7 @@ (progn (YaTeX-math-display-list (car list) cols) (setq cols (% (1+ cols) maxcols)))) (setq list (cdr list))) - (goto-line 4) + (goto-char (point-min)) (forward-line 3) (use-local-map YaTeX-math-menu-map) (setq buffer-read-only t) (unwind-protect @@ -767,7 +802,7 @@ (setq list (cdr list))) (setq lists (cdr lists)))))) -;;; ----- for AMS LaTeX (by matsu@math.s.chiba-u.ac.jp) ----- +;;; ----- for AMS LaTeX (by matsu<at>math.s.chiba-u.ac.jp) ----- (defvar YaTeX-ams-paren-modifier '(("Biggl" . "Biggr") ("biggl" . "biggr") ("Bigl" . "Bigr") ("bigl" . "bigr")
--- a/yatexpkg.el Mon Sep 28 12:48:28 2009 +0900 +++ b/yatexpkg.el Thu Jan 12 12:26:35 2012 +0900 @@ -1,20 +1,20 @@ ;;; -*- Emacs-Lisp -*- ;;; YaTeX package manager ;;; yatexpkg.el -;;; (c)2003-2006 by HIROSE, Yuuji [yuuji@yatex.org] -;;; Last modified Sun Dec 24 15:13:29 2006 on firestorm +;;; (c)2003-2012 by HIROSE, Yuuji [yuuji@yatex.org] +;;; Last modified Mon Jan 9 20:13:53 2012 on firestorm ;;; $Id$ (defvar YaTeX-package-ams-envs (mapcar 'car YaTeX-ams-env-table)) (defvar YaTeX-package-alist-default - '(("version" (env "comment") ;by tsuchiya@pine.kuee.kyoto-u.ac.jp + '(("version" (env "comment") ;by tsuchiya<at>pine.kuee.kyoto-u.ac.jp (section "includeversion" "excludeversion")) - ("plext" (section "bou")) ;by yas.axis@ma.mni.ne.jp + ("plext" (section "bou")) ;by yas.axis<at>ma.mni.ne.jp - ("url" (section "url")) ;by fujieda@jaist.ac.jp + ("url" (section "url")) ;by fujieda<at>jaist.ac.jp ("fancybox" (section "shadowbox" "doublebox" "ovalbox" "Ovalbox")) ("slashbox" (section "slashbox" "backslashbox")) @@ -23,7 +23,7 @@ ("ascmac" (env "screen" "boxnote" "shadebox" "itembox") (maketitle "return" "Return" "yen") (section "keytop") ("mask") ("maskbox")) - ("bm" (section "bm")) ;by aoyama@le.chiba-u.ac.jp + ("bm" (section "bm")) ;by aoyama<at>le.chiba-u.ac.jp ("alltt" (env "alltt")) ("misc" (section "verbfile" "listing")) @@ -31,6 +31,9 @@ ("supertabular" (env "supertabular")) ("amsmath" (env . YaTeX-package-ams-envs) (section "tag" "tag*")) + ("amssymb" (maketitle "leqq" "geqq" "mathbb" "mathfrak" + "fallingdotseq" + "lll" "ggg")) ;very few. Please tell us! ("graphicx" (section "includegraphics" "rotatebox" "scalebox" "resizebox" "reflectbox") (option . YaTeX-package-graphics-driver-alist)) @@ -192,6 +195,7 @@ (format "%s{%s}\t%% required for `\\%s' (yatex added)\n" option pkg macro)) (funcall register)) + (funcall register) (message "Don't forget to put \\usepackage{%s} yourself later" (car (car pkglist)))) ;doing car car is negligence... ))))))
--- a/yatexprc.el Mon Sep 28 12:48:28 2009 +0900 +++ b/yatexprc.el Thu Jan 12 12:26:35 2012 +0900 @@ -1,8 +1,8 @@ ;;; -*- Emacs-Lisp -*- ;;; YaTeX process handler. ;;; yatexprc.el -;;; (c)1993-2009 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Mon Sep 28 10:47:11 2009 on firestorm +;;; (c)1993-2012 by HIROSE Yuuji.[yuuji@yatex.org] +;;; Last modified Mon Jan 9 20:20:24 2012 on firestorm ;;; $Id$ ;(require 'yatex) @@ -55,7 +55,7 @@ (modify-syntax-entry ?\[ "w" YaTeX-typeset-buffer-syntax) (modify-syntax-entry ?\] "w" YaTeX-typeset-buffer-syntax)) -(defun YaTeX-typeset (command buffer &optional prcname modename) +(defun YaTeX-typeset (command buffer &optional prcname modename ppcmd) "Execute jlatex (or other) to LaTeX typeset." (interactive) (save-excursion @@ -91,7 +91,12 @@ (start-process prcname buffer shell-file-name YaTeX-shell-command-option command)) (get-buffer buffer)) - (set-process-sentinel YaTeX-typeset-process 'YaTeX-typeset-sentinel))) + (set-process-sentinel YaTeX-typeset-process 'YaTeX-typeset-sentinel) + (let ((ppprop (get 'YaTeX-typeset-process 'ppcmd))) + (setq ppprop (delq (assq YaTeX-typeset-process ppprop) ppprop)) + (if ppcmd + (setq ppprop (cons (cons YaTeX-typeset-process ppcmd) ppprop))) + (put 'YaTeX-typeset-process 'ppcmd ppprop)))) (message (format "Calling `%s'..." command)) (setq YaTeX-current-TeX-buffer (buffer-name)) (use-local-map map) ;map may be localized @@ -150,7 +155,6 @@ (insert ?\n mode-name " " mes) (forward-char -1) (insert " at " (substring (current-time-string) 0 -5) "\n") - (forward-char 1) (setq mode-line-process (concat ": " (symbol-name (process-status proc)))) @@ -161,8 +165,27 @@ ;; is dead, we can delete it now. Otherwise it ;; will stay around until M-x list-processes. (delete-process proc) - ) - (setq YaTeX-typeset-process nil) + ;; If ppcmd is active, call it. + (let* ((ppprop (get 'YaTeX-typeset-process 'ppcmd)) + (ppcmd (cdr (assq proc ppprop)))) + (put 'YaTeX-typeset-process 'ppcmd ;erase ppcmd + (delq (assq proc ppprop) ppprop)) + (cond + ((and ppcmd (string-match "finish" mes)) + (insert (format "=======> Success! Calling %s\n" ppcmd)) + (setq mode-name ; set process name + (substring ppcmd 0 (string-match " " ppcmd))) + ; to reach here, 'start-process exists on this emacsen + (set-process-sentinel + (start-process + mode-name + pbuf ; Use this buffer twice. + shell-file-name YaTeX-shell-command-option + ppcmd) + 'YaTeX-typeset-sentinel)))) + + (forward-char 1)) + (setq YaTeX-typeset-process nil) ;; Force mode line redisplay soon (set-buffer-modified-p (buffer-modified-p)) ) @@ -236,7 +259,8 @@ "\\begin{document}"))) (goto-char opoint) ;;(set-buffer buffer) ;for clarity - (let ((hilit-auto-highlight nil)) + (let ((hilit-auto-highlight nil) (auto-mode-alist nil) + (magic-mode-alist nil)) ;Do not activate yatex-mode here (set-buffer (find-file-noselect texput))) ;;(find-file YaTeX-texput-file) (erase-buffer) @@ -256,17 +280,37 @@ (put 'dvi2-command 'file buffer) (put 'dvi2-command 'offset lineinfo)))) -(defun YaTeX-typeset-buffer () +(defun YaTeX-typeset-environment () + "Typeset current math environment" + (interactive) + (save-excursion + (YaTeX-mark-environment) + (YaTeX-typeset-region))) + +(defun YaTeX-typeset-buffer (&optional pp) "Typeset whole buffer. If %#! usage says other buffer is main text, visit main buffer to confirm if its includeonly list contains current buffer's file. And if it doesn't contain editing text, ask user which -action wants to be done, A:Add list, R:Replace list, %:comment-out list." +action wants to be done, A:Add list, R:Replace list, %:comment-out list. +If optional argument PP given as string, PP is considered as post-process +command and call it with the same command argument as typesetter without +last extension. +eg. if PP is \"dvipdfmx\", called commands as follows. + platex foo.tex + dvipdfmx foo +PP command will be called iff typeset command exit successfully" (interactive) (YaTeX-save-buffers) (let*((me (substring (buffer-name) 0 (rindex (buffer-name) ?.))) (mydir (file-name-directory (buffer-file-name))) - (cmd (YaTeX-get-latex-command t)) (cb (current-buffer))) + (cmd (YaTeX-get-latex-command t)) pparg ppcmd + (cb (current-buffer))) + (and pp + (stringp pp) + (setq pparg (substring cmd 0 (string-match "[;&]" cmd)) ;rm multistmt + pparg (substring pparg (rindex pparg ? )) ;get last arg + ppcmd (concat pp (substring pparg 0 (rindex pparg ?.)))));rm ext (if (YaTeX-main-file-p) nil (save-excursion (YaTeX-visit-main t) ;search into main buffer @@ -307,27 +351,31 @@ (basic-save-buffer)))) (exchange-point-and-mark))) (switch-to-buffer cb)) ;for 19 - (YaTeX-typeset cmd YaTeX-typeset-buffer) + (YaTeX-typeset cmd YaTeX-typeset-buffer nil nil ppcmd) (put 'dvi2-command 'region nil))) (defvar YaTeX-call-command-history nil "Holds history list of YaTeX-call-command-on-file.") (put 'YaTeX-call-command-history 'no-default t) (defun YaTeX-call-command-on-file (base-cmd buffer &optional file) - "Call external command BASE-CMD int the BUFFER. + "Call external command BASE-CMD in the BUFFER. By default, pass the basename of current file. Optional 3rd argument FILE changes the default file name." (YaTeX-save-buffers) - (YaTeX-typeset - (read-string-with-history - "Call command: " - (concat base-cmd " " - (let ((me (file-name-nondirectory (or file buffer-file-name)))) - (if (string-match "\\.tex" me) - (substring me 0 (match-beginning 0)) - me))) - 'YaTeX-call-command-history) - buffer)) + (let ((default (concat base-cmd " " + (let ((me (file-name-nondirectory + (or file buffer-file-name)))) + (if (string-match "\\.tex" me) + (substring me 0 (match-beginning 0)) + me))))) + (or YaTeX-call-command-history + (setq YaTeX-call-command-history (list default))) + (YaTeX-typeset + (read-string-with-history + "Call command: " + (car YaTeX-call-command-history) + 'YaTeX-call-command-history) + buffer))) (defun YaTeX-bibtex-buffer (cmd) "Pass the bibliography data of editing file to bibtex." @@ -668,24 +716,22 @@ (defvar YaTeX-dvi2-command-ext-alist '(("[agx]dvi\\|dviout" . ".dvi") ("ghostview\\|gv" . ".ps") - ("acroread\\|pdf\\|Preview\\|TeXShop\\|Skim" . ".pdf"))) + ("acroread\\|pdf\\|Preview\\|TeXShop\\|Skim\\|evince" . ".pdf"))) (defun YaTeX-get-preview-file-name (&optional preview-command) "Get file name to preview by inquiring YaTeX-get-latex-command" (if (null preview-command) (setq preview-command dvi2-command)) (let* ((latex-cmd (YaTeX-get-latex-command t)) (rin (rindex latex-cmd ? )) - (fname (if (> rin -1) (substring latex-cmd (1+ rin)) "")) + (fname (if rin (substring latex-cmd (1+ rin)) "")) (r (YaTeX-assoc-regexp preview-command YaTeX-dvi2-command-ext-alist)) - (ext (if r (cdr r) "")) - (period)) + (ext (if r (cdr r) ""))) (concat (if (string= fname "") - (setq fname (substring (file-name-nondirectory - (buffer-file-name)) - 0 -4)) - (setq period (rindex fname ?.)) - (setq fname (substring fname 0 (if (eq -1 period) nil period)))) + (setq fname (substring (file-name-nondirectory + (buffer-file-name)) + 0 -4)) + (setq fname (substring fname 0 (rindex fname ?.)))) ext))) (defun YaTeX-get-latex-command (&optional switch) @@ -811,7 +857,7 @@ (defun YaTeX-visit-main (&optional setbuf) "Switch buffer to main LaTeX source. -Use set-buffer instead of switch-to-buffer if the optional second argument +Use set-buffer instead of switch-to-buffer if the optional argument SETBUF is t(Use it only from Emacs-Lisp program)." (interactive "P") (if (and (interactive-p) setbuf) (setq YaTeX-parent-file nil)) @@ -874,18 +920,6 @@ (YaTeX-switch-to-buffer-other-window (concat (YaTeX-get-preview-file-name) ".tex")))) -(defun YaTeX-get-builtin (key) - "Read source built-in command of %# usage." - (save-excursion - (goto-char (point-min)) - (if (and (re-search-forward - (concat "^" (regexp-quote (concat "%#" key))) nil t) - (not (eolp))) - (YaTeX-buffer-substring - (progn (skip-chars-forward " " (point-end-of-line))(point)) - (point-end-of-line)) - nil))) - (defun YaTeX-save-buffers () "Save buffers whose major-mode is equal to current major-mode." (basic-save-buffer)
--- a/yatexsec.el Mon Sep 28 12:48:28 2009 +0900 +++ b/yatexsec.el Thu Jan 12 12:26:35 2012 +0900 @@ -1,8 +1,8 @@ ;;; -*- Emacs-Lisp -*- ;;; YaTeX sectioning browser. ;;; yatexsec.el -;;; (c) 1994,1998,1999,2003 by HIROSE Yuuji [yuuji@yatex.org] -;;; Last modified Fri Jun 27 12:10:34 2003 on firestorm +;;; (c) 1994-2012 by HIROSE Yuuji [yuuji@yatex.org] +;;; Last modified Mon Jan 9 20:20:32 2012 on firestorm ;;; $Id$ (defvar YaTeX-sectioning-level @@ -133,7 +133,8 @@ (or (and ln (string< "" ln) (progn - (goto-line (max 1 (1- (string-to-int ln)))) + (goto-char (point-min)) + (forward-line (max 0 (- (string-to-int ln) 2))) (and (search-forward ptn nil t) (goto-char (match-beginning 0)))))
