1.1 --- a/yatex19.el	Mon Oct 24 17:26:47 1994 +0000
     1.2 +++ b/yatex19.el	Fri Nov 25 08:26:13 1994 +0000
     1.3 @@ -1,13 +1,13 @@
     1.4  ;;; -*- Emacs-Lisp -*-
     1.5  ;;; YaTeX facilities for Emacs 19
     1.6  ;;; (c )1994 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
     1.7 -;;; Last modified Fri Sep 23 04:30:27 1994 on figaro
     1.8 +;;; Last modified Mon Nov 21 21:52:16 1994 on figaro
     1.9  ;;; $Id$
    1.10  
    1.11 -;;; $B$H$j$"$($:(B hilit19 $B$r;H$C$F$$$k;~$K?'$,IU$/$h$&$K$7$F(B
    1.12 -;;; $B%a%K%e!<%P!<$G$4$K$g$4$K$g$G$-$k$h$&$K$7$?$@$1!#(B
    1.13 -;;; $B$$$C$?$$C/$,%a%K%e!<%P!<;H$C$F(BLaTeX$B%=!<%9=q$/$s$@$m$&$+(B?
    1.14 -;;; $B$^$"$$$$$dN}=,N}=,!#8e$m$NJ}$K$A$g$C$H%3%a%s%H$"$j!#(B
    1.15 +;;; とりあえず hilit19 を使っている時に色が付くようにして
    1.16 +;;; メニューバーでごにょごにょできるようにしただけ。
    1.17 +;;; いったい誰がメニューバー使ってLaTeXソース書くんだろうか?
    1.18 +;;; まあいいや練習練習。後ろの方にちょっとコメントあり。
    1.19  
    1.20  (require 'yatex)
    1.21  
    1.22 @@ -203,17 +203,21 @@
    1.23  	 '(lambda (x y) (string< (car x) (car y))))))
    1.24  
    1.25  ;; Highlightening
    1.26 -;; $B%m!<%+%k$J%^%/%m$rFI$_9~$s$@8e(B redraw $B$9$k$H(B
    1.27 -;; $B%m!<%+%k%^%/%m$r(B keyword $B$H$7$F8w$i$;$k(B(keyword$B$8$c$^$:$$$+$J!D(B)$B!#(B
    1.28 +;; ローカルなマクロを読み込んだ後 redraw すると
    1.29 +;; ローカルマクロを keyword として光らせる(keywordじゃまずいかな…)。
    1.30  (defvar YaTeX-hilit-pattern-adjustment
    1.31    (list
    1.32 -   ;;\def $B$,(B define $B$J$s$@$+$i(B new* $B$b(B define $B$G$7$g$&!#(B
    1.33 +   ;;\def が define なんだから new* も define でしょう。
    1.34     '("\\\\\\(re\\)?new\\(environment\\|command\\){" "}" define)
    1.35     '("\\\\new\\(length\\|theorem\\|counter\\){" "}" define)
    1.36 -   ;;$B%;%/%7%g%s%3%^%s%I$,C1$J$k%-!<%o!<%I$C$F$3$H$O$J$$$G$7$g$&!#(B
    1.37 +   ;;セクションコマンドが単なるキーワードってことはないでしょう。
    1.38     (list
    1.39      (concat "\\\\\\(" YaTeX-sectioning-regexp "\\){") "}"
    1.40 -    'sectioning))
    1.41 +    'sectioning)
    1.42 +   ;;eqnarray などの数式環境が入ってないみたい…
    1.43 +   '("\\\\begin{\\(eqnarray\\*?\\)\\|\\(equation\\*?\\)}"
    1.44 +     "\\\\end{\\(eqnarray\\*?\\)\\|\\(equation\\*?\\)}"
    1.45 +     formula))
    1.46    "Adjustment for hilit19's LaTeX hilit pattern.")
    1.47  (defvar YaTeX-hilit-sectioning-face
    1.48    '(yellow/dodgerblue yellow/cornflowerblue))
    1.49 @@ -269,10 +273,10 @@
    1.50  			(define-key YaTeX-mode-map key 'YaTeX-hilit-recenter)))
    1.51  	    (where-is-internal 'hilit-recenter)))
    1.52  
    1.53 -;;; reverseVideo $B$K$7$F(B hilit-background-mode $B$r(B 'dark
    1.54 -;;; $B$K$7$F$$$k?M$O?t<0$J$I$,0E$/$J$j$9$.$F8+$E$i$$$+$b$7$l$J$$!#(B
    1.55 -;;; $B<!$N%3!<%I$r(B hilit19 $B$r%m!<%I$7$F$$$k>l=j$ND>8e$KCV$/$H$A$g$C(B
    1.56 -;;; $B$H$O$^$7!#(B
    1.57 +;;; reverseVideo にして hilit-background-mode を 'dark
    1.58 +;;; にしている人は数式などが暗くなりすぎて見づらいかもしれない。
    1.59 +;;; 次のコードを hilit19 をロードしている場所の直後に置くとちょっ
    1.60 +;;; とはまし。
    1.61  ;;;  (if (eq hilit-background-mode 'dark)
    1.62  ;;;      (hilit-translate
    1.63  ;;;       string 'mediumspringgreen