yatex
view yatex19.el @ 59:48ac97a6b6ce
Call drawing tools
ID completion (yahtml)
| author | yuuji |
|---|---|
| date | Wed, 01 May 1996 15:35:40 +0000 |
| parents | 3a7c0c2bf16d |
| children | 9e08ed569d80 |
line source
1 ;;; -*- Emacs-Lisp -*-
2 ;;; YaTeX facilities for Emacs 19
3 ;;; (c )1994-1995 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
4 ;;; Last modified Thu Mar 14 10:51:00 1996 on supra
5 ;;; $Id$
7 ;;; とりあえず hilit19 を使っている時に色が付くようにして
8 ;;; メニューバーでごにょごにょできるようにしただけ。
9 ;;; いったい誰がメニューバー使ってLaTeXソース書くんだろうか?
10 ;;; まあいいや練習練習。後ろの方にちょっとコメントあり。
11 ;;; 真中辺にあるけど、hilit19.el 対応の方は結構本気。
13 (require 'yatex)
15 (defun YaTeX-19-define-sub-menu (map vec &rest bindings)
16 "Define sub-menu-item in MAP at vector VEC as BINDINGS.
17 BINDINGS is a form with optional length: (symbol title binding).
18 When you defined menu-bar keymap such like:
19 (define-key foo-map [menu-bar foo] (make-sparse-keymap \"foo menu\"))
20 and you want to define sub menu for `foo menu' as followings.
21 foo -> menu1 (calling function `func1')
22 menu2 (doing interactive call `(func2 ...)'
23 Call this function like this:
24 (YaTeX-19-define-sub-menu foo-map [menu-bar foo]
25 '(m1 \"Function 1\" func1)
26 '(m2 \"Function 2\" (lambda () (interactive) (func2 ...))))
27 where
28 `m1' and `m2' are the keymap symbol for sub-menu of `[menu-bar foo].
29 `Funtion 1' and `Function 2' are the title strings for sub-menu.
30 "
31 (let ((i 0) (vec2 (make-vector (1+ (length vec)) nil)))
32 (while (< i (length vec))
33 (aset vec2 i (aref vec i))
34 (setq i (1+ i)))
35 (setq bindings (reverse bindings))
36 (mapcar
37 (function
38 (lambda (bind)
39 (aset vec2 (1- (length vec2)) (car bind)) ;set menu-symbol
40 (define-key map vec2
41 (cons (car (cdr bind))
42 (car (cdr (cdr bind)))))))
43 bindings)))
45 ;; Menu for Typeset relating processes ----------------------------------------
46 (define-key YaTeX-mode-map [menu-bar yatex]
47 (cons "YaTeX" (make-sparse-keymap "YaTeX")))
48 (define-key YaTeX-mode-map [menu-bar yatex process]
49 (cons "Process" (make-sparse-keymap "Process")))
50 (YaTeX-19-define-sub-menu
51 YaTeX-mode-map [menu-bar yatex process]
52 '(buffer "LaTeX" (lambda () (interactive) (YaTeX-typeset-menu nil ?j)))
53 '(kill "Kill LaTeX" (lambda () (interactive) (YaTeX-typeset-menu nil ?k)))
54 '(bibtex "BibTeX" (lambda () (interactive) (YaTeX-typeset-menu nil ?b)))
55 '(makeindex "makeindex" (lambda () (interactive) (YaTeX-typeset-menu nil ?i)))
56 '(preview "Preview" (lambda () (interactive) (YaTeX-typeset-menu nil ?p)))
57 '(lpr "lpr" (lambda () (interactive) (YaTeX-typeset-menu nil ?l)))
58 '(lpq "lpq" (lambda () (interactive) (YaTeX-typeset-menu nil ?q)))
59 )
61 ;; Help for LaTeX ------------------------------------------------------------
62 (YaTeX-19-define-sub-menu
63 YaTeX-mode-map [menu-bar yatex]
64 '(sephelp "--")
65 '(help "Help on LaTeX commands" YaTeX-help)
66 '(apropos "Apropos on LaTeX commands" YaTeX-apropos))
68 ;; Switch modes --------------------------------------------------------------
69 (define-key YaTeX-mode-map [menu-bar yatex switch]
70 (cons "Switching YaTeX's modes" (make-sparse-keymap "modes")))
71 (or YaTeX-auto-math-mode
72 (define-key YaTeX-mode-map [menu-bar yatex switch math]
73 '("Toggle math mode" . (lambda () (interactive)
74 (YaTeX-switch-mode-menu nil ?t)))))
75 (define-key YaTeX-mode-map [menu-bar yatex switch mod]
76 '("Toggle modify mode" . (lambda () (interactive)
77 (YaTeX-switch-mode-menu nil ?m))))
79 ;; % menu --------------------------------------------------------------------
80 (define-key YaTeX-mode-map [menu-bar yatex percent]
81 (cons "Edit %# notation" (make-sparse-keymap "Edit %# notation")))
82 (YaTeX-19-define-sub-menu
83 YaTeX-mode-map [menu-bar yatex percent]
84 '(! "Change LaTeX typesetter(%#!)"
85 (lambda () (interactive) (YaTeX-%-menu nil nil ?!)))
86 '(begend "Set %#BEGIN-%#END on region"
87 (lambda () (interactive) (YaTeX-%-menu nil nil ?b)))
88 '(lpr "Change LPR format"
89 (lambda () (interactive) (YaTeX-%-menu nil nil ?l))))
91 ;; What position -------------------------------------------------------------
92 (YaTeX-19-define-sub-menu
93 YaTeX-mode-map [menu-bar yatex]
94 '(what "What column in tabular" YaTeX-what-column))
96 ;; Document hierarchy ------------------------------------------------------
97 (YaTeX-19-define-sub-menu
98 YaTeX-mode-map [menu-bar yatex]
99 '(hier "Display document hierarchy" YaTeX-display-hierarchy-directly))
101 ;; Jump cursor ---------------------------------------------------------------
102 (define-key YaTeX-mode-map [menu-bar yatex jump]
103 (cons "Jump cursor"
104 (make-sparse-keymap "Jump cursor")))
105 (YaTeX-19-define-sub-menu
106 YaTeX-mode-map [menu-bar yatex jump]
107 '(corres "Goto corersponding position" YaTeX-goto-corresponding-*)
108 '(main "Visit main source" (lambda () (interactive) (YaTeX-visit-main)))
109 '(main-other "Visit main source other window" YaTeX-visit-main-other-window)
110 )
112 ;; ===========================================================================
113 (define-key YaTeX-mode-map [menu-bar yatex sepcom]
114 '("---" . nil))
116 ;; Comment/Uncomment ---------------------------------------------------------
117 (YaTeX-19-define-sub-menu
118 YaTeX-mode-map [menu-bar yatex]
119 '(comment "Comment region or environment" YaTeX-comment-region)
120 '(uncomment "Unomment region or environment" YaTeX-uncomment-region)
121 '(commentp "Comment paragraph" YaTeX-comment-paragraph)
122 '(uncommentp "Uncomment paragraph" YaTeX-uncomment-paragraph)
123 '(sepcom "--" nil)
124 )
127 ;; ===========================================================================
128 ;; Change/Kill/Fill
129 (YaTeX-19-define-sub-menu
130 YaTeX-mode-map [menu-bar yatex]
131 '(change "Change macros" YaTeX-change-*)
132 '(kill "Kill macros" YaTeX-kill-*)
133 '(fillitem "Fill \\item" YaTeX-fill-item)
134 '(newline "Newline" YaTeX-intelligent-newline)
135 '(sepchg "--" nil)
136 )
138 ;; Menu for completions ------------------------------------------------------
141 ;;;(YaTeX-19-define-sub-menu
142 ;;; YaTeX-mode-map [menu-bar yatex]
143 ;;; '(secr "Section-type command on region" YaTeX-make-section-region)
144 ;;; '(sec "Section-type command" YaTeX-make-section))
146 (define-key YaTeX-mode-map [menu-bar yatex sectionr]
147 (cons "Section-type region(long name)"
148 (make-sparse-keymap "Enclose region with section-type macro")))
149 (define-key YaTeX-mode-map [menu-bar yatex section]
150 (cons "Section-type(long name)"
151 (make-sparse-keymap "Section-type macro")))
152 (let ((sorted-section
153 (sort
154 (delq nil
155 (mapcar (function (lambda (s)
156 (if (> (length (car s)) 5)
157 (car s))))
158 (append section-table user-section-table)))
159 'string<)))
160 (apply 'YaTeX-19-define-sub-menu
161 YaTeX-mode-map [menu-bar yatex section]
162 (mapcar (function (lambda (secname)
163 (list (intern secname) secname
164 (list 'lambda ()
165 (list 'interactive)
166 (list 'YaTeX-make-section
167 nil nil nil secname)))))
168 sorted-section))
169 (apply 'YaTeX-19-define-sub-menu
170 YaTeX-mode-map [menu-bar yatex sectionr]
171 (mapcar (function (lambda (secname)
172 (list (intern secname) secname
173 (list 'lambda ()
174 (list 'interactive)
175 (list 'YaTeX-make-section
176 nil
177 (list 'region-beginning)
178 (list 'region-end)
179 secname)))))
180 sorted-section)))
182 (define-key YaTeX-mode-map [menu-bar yatex envr]
183 (cons "Environment region" (make-sparse-keymap "Environment region")))
184 (define-key YaTeX-mode-map [menu-bar yatex env]
185 (cons "Environment" (make-sparse-keymap "Environment")))
186 (let (prev envname)
187 (mapcar
188 (function
189 (lambda (envalist)
190 (setq envname (car envalist))
191 (define-key-after
192 (lookup-key YaTeX-mode-map [menu-bar yatex env])
193 (vector (intern envname))
194 (cons envname
195 (list 'lambda () (list 'interactive)
196 (list 'YaTeX-insert-begin-end
197 envname nil)))
198 prev)
199 (define-key-after
200 (lookup-key YaTeX-mode-map [menu-bar yatex envr])
201 (vector (intern envname))
202 (cons envname
203 (list 'lambda () (list 'interactive)
204 (list 'YaTeX-insert-begin-end
205 envname t)))
206 prev)
207 (setq prev (intern envname))))
208 (sort (append env-table user-env-table)
209 '(lambda (x y) (string< (car x) (car y))))))
211 ;; Other key bindings for window-system
212 ;(YaTeX-define-key [?\C- ] 'YaTeX-do-completion)
213 (define-key YaTeX-mode-map [?\M-\C- ] 'YaTeX-mark-environment)
215 ;; Highlightening
216 ;; メニューに比べてこっちは結構本気でやってます。
217 ;; だって文書構造がとっても分かり易いんだもん。
218 ;; みんなも hilit19.el を使おう!
219 ;;
220 ;; さて、まずは対応する {} をピカピカ範囲とするような関数を作る。
221 ;; これは hilit-LaTeX.el を参考にした。でも、ちゃんと section 型コマンドの
222 ;; 引数を数えて正しい位置までピカピカさせるよ〜ん!
224 (defun YaTeX-19-region-section-type (pattern)
225 "Return list of starting and end point of section-type commands of PATTERN."
226 (if (re-search-forward pattern nil t)
227 (let ((m0 (match-beginning 0)) cmd (argc 1))
228 (setq cmd (substring (YaTeX-match-string 0) 1 -1)
229 argc (or (car (cdr (YaTeX-lookup-table cmd 'section))) argc))
230 (cons m0
231 (progn (skip-chars-backward "^{") (forward-char -2)
232 (while (> argc 0)
233 (skip-chars-forward "^{")
234 (forward-list 1)
235 (setq argc (1- argc)))
236 (point))))))
238 (defun YaTeX-19-region-large-type (pattern)
239 "Return list of large-type contents.
240 Assumes PATTERN begins with `{'."
241 (if (re-search-forward pattern nil t)
242 (let ((m0 (match-beginning 0)))
243 (goto-char m0)
244 (skip-chars-forward "^ \t\n")
245 (skip-chars-forward " \t\n")
246 (cons (point)
247 (progn (goto-char m0) (forward-list 1)
248 (1- (point)))))))
250 ;; 些細なことだが % の前の文字もピカリとさせてしまうようで… >hilit19
251 ;; ↓この関数は下の hilit-set-mode-patterns の "[^\\]\\(%\\).*$" に
252 ;; 依存している
253 (defun YaTeX-19-region-comment (pattern)
254 "Return list of comment start and end point."
255 (if (re-search-forward pattern nil t)
256 (cons (match-beginning 2) (match-end 0))))
258 ;;(make-face 'tt)
259 ;;(set-face-font 'tt "-schumacher-clean-medium-r-normal--*-*-*-*-*-*-*-*")
260 ;;(hilit-translate 'tt "white")
262 (defvar YaTeX-hilit-patterns-alist
263 '(
264 ;; comments
265 (YaTeX-19-region-comment "\\([^\\]\\|^\\)\\(%\\).*$" comment)
267 (YaTeX-19-region-section-type "\\\\footnote\\(mark\\|text\\)?{" keyword)
268 ("\\\\[a-z]+box" 0 keyword)
269 (YaTeX-19-region-section-type "\\\\\\(v\\|h\\)space\\(\*\\)?{" keyword)
271 ;; (re-)define new commands/environments/counters
272 (YaTeX-19-region-section-type
273 "\\\\\\(re\\)?new\\(environment\\|command\\|theorem\\){" defun)
274 (YaTeX-19-region-section-type
275 "\\\\\\(re\\)?new\\(length\\|counter\\){" define)
277 ;; various declarations/definitions
278 (YaTeX-19-region-section-type
279 "\\\\\\(set\\|setto\\|addto\\)\\(length\\|width\\|counter\\){"
280 define)
281 (YaTeX-19-region-section-type
282 "\\\\\\(title\\|author\\|date\\|thanks\\){" define)
284 ("\\\\document\\(style\\|class\\)\\(\\[.*\\]\\)?{" "}" decl)
285 ("\\\\\\(begin\\|end\\|nofiles\\|includeonly\\){" "}" decl)
286 ("\\\\\\(raggedright\\|makeindex\\|makeglossary\\|maketitle\\)\\b" 0 decl)
287 ("\\\\\\(pagestyle\\|thispagestyle\\|pagenumbering\\){" "}" decl)
288 ("\\\\\\(normalsize\\|small\\|footnotesize\\|scriptsize\\|tiny\\|large\\|Large\\|LARGE\\|huge\\|Huge\\)\\b" 0 decl)
289 ("\\\\\\(appendix\\|tableofcontents\\|listoffigures\\|listoftables\\)\\b"
290 0 decl)
291 ("\\\\\\(bf\\|em\\|it\\|rm\\|sf\\|sl\\|ss\\|tt\\)\\b" 0 decl)
293 ;; label-like things
294 ;;this should be customized by YaTeX-item-regexp
295 ("\\\\\\(sub\\)*item\\b\\(\\[[^]]*\\]\\)?" 0 label)
296 (YaTeX-19-region-section-type
297 "\\\\caption\\(\\[[^]]*\\]\\)?{" label)
299 ;; formulas
300 ("[^\\]\\\\(" "\\\\)" formula) ; \( \)
301 ("[^\\]\\\\\\[" "\\\\\\]" formula) ; \[ \]
302 ("\\\\begin{\\(eqn\\|equation\\|x?x?align\\|split\\|multiline\\|gather\\)"
303 "\\\\end{\\(eqn\\|equation\\|x?x?align\\|split\\|multiline\\|gather\\).*}"
304 formula)
305 ("[^\\$]\\($\\($[^$]*\\$\\|[^$]*\\)\\$\\)" 1 formula); '$...$' or '$$...$$'
307 ;; things that bring in external files
308 ("\\\\\\(include\\|input\\|bibliography\\){" "}" include)
310 ;; "wysiwyg" emphasis -- these don't work with nested expressions
311 (YaTeX-19-region-large-type "{\\\\\\(em\\|it\\|sl\\)" italic)
312 (YaTeX-19-region-large-type "{\\\\bf" bold)
313 ;;;(YaTeX-19-region-large-type "{\\\\tt" tt)
314 ;;;("\\\\begin{verbatim" "\\\\end{verbatim" tt)
316 ("``" "''" string)
318 ;; things that do some sort of cross-reference
319 (YaTeX-19-region-section-type
320 "\\\\\\(\\(no\\)?cite\\|\\(page\\)?ref\\|label\\|index\\|glossary\\){"
321 crossref))
322 "*Hiliting pattern alist for LaTeX text.")
324 ;;(defvar YaTeX-hilit-pattern-adjustment-default nil)
325 ;; ↑いらなくなった。
326 (defvar YaTeX-hilit-pattern-adjustment-private nil
327 "*Adjustment hilit-pattern-alist for default yatex-mode's pattern.")
328 (defvar YaTeX-hilit-sectioning-face
329 '(yellow/dodgerblue yellow/slateblue)
330 "*Hilightening face for sectioning unit. '(FaceForLight FaceForDark)")
331 (defvar YaTeX-hilit-sectioning-attenuation-rate
332 '(15 40)
333 "*Maximum attenuation rate of sectioning face. '(ForeRate BackRate)
334 Each rate specifies how much portion of RGB value should be attenuated
335 towards to lowest sectioning unit. Numbers should be written in percentage.")
336 (defvar YaTeX-sectioning-patterns-alist nil
337 "Hilightening patterns for sectioning units.")
338 (defvar YaTeX-hilit-singlecmd-face
339 '(slateblue2 aquamarine)
340 "*Hilightening face for maketitle type. '(FaceForLight FaceForDark)")
342 ;;; セクションコマンドを、構造レベルの高さに応じて色の濃度を変える
343 ;;; 背景が黒でないと何が嬉しいのか分からないに違いない.
344 ;;; もしかして白地の時は構造レベルに応じて色を明るくしたほうが良いのか?
345 (cond
346 ((and (featurep 'hilit19) (fboundp 'x-color-values))
347 (let*((sectface
348 (car (if (eq hilit-background-mode 'dark)
349 (cdr YaTeX-hilit-sectioning-face)
350 YaTeX-hilit-sectioning-face)))
351 (sectcol (symbol-name sectface))
352 sect-pat-alist)
353 (if (string-match "/" sectcol)
354 (let ((fmin (nth 0 YaTeX-hilit-sectioning-attenuation-rate))
355 (bmin (nth 1 YaTeX-hilit-sectioning-attenuation-rate))
356 colorvalue fR fG fB bR bG bB pat fg bg level from face list lm)
357 (require 'yatexsec)
358 (setq fg (substring sectcol 0 (string-match "/" sectcol))
359 bg (substring sectcol (1+ (string-match "/" sectcol)))
360 colorvalue (x-color-values fg)
361 fR (/ (nth 0 colorvalue) 256)
362 fG (/ (nth 1 colorvalue) 256)
363 fB (/ (nth 2 colorvalue) 256)
364 colorvalue (x-color-values bg)
365 bR (/ (nth 0 colorvalue) 256)
366 bG (/ (nth 1 colorvalue) 256)
367 bB (/ (nth 2 colorvalue) 256)
368 lm YaTeX-sectioning-max-level
369 list YaTeX-sectioning-level)
370 (while list
371 (setq pat (concat YaTeX-ec-regexp (car (car list))
372 "\\*?\\(\\[[^]]*\\]\\)?{")
373 level (cdr (car list))
374 fg (format "hex-%02x%02x%02x"
375 (- fR (/ (* level fR fmin) lm 100))
376 (- fG (/ (* level fG fmin) lm 100))
377 (- fB (/ (* level fB fmin) lm 100)))
378 bg (format "hex-%02x%02x%02x"
379 (- bR (/ (* level bR bmin) lm 100))
380 (- bG (/ (* level bG bmin) lm 100))
381 (- bB (/ (* level bB bmin) lm 100)))
382 from (intern (format "sectioning-%d" level))
383 face (intern (concat fg "/" bg)))
384 (hilit-translate from face)
385 (setq sect-pat-alist
386 (cons;;(list pat "}" face)
387 (list 'YaTeX-19-region-section-type pat face)
388 sect-pat-alist))
389 (setq list (cdr list)))
390 (setq YaTeX-sectioning-patterns-alist sect-pat-alist))))))
392 ;; ローカルなマクロを読み込んだ後 redraw すると
393 ;; ローカルマクロを keyword として光らせる(keywordじゃまずいかな…)。
394 (defun YaTeX-19-collect-macros ()
395 (cond
396 ((and (featurep 'hilit19) (fboundp 'hilit-translate))
397 (let ((get-face
398 (function
399 (lambda (table)
400 (cond
401 ((eq hilit-background-mode 'light) (car table))
402 ((eq hilit-background-mode 'dark) (car (cdr table)))
403 (t nil)))))
404 sect single)
405 (hilit-translate
406 ;;sectioning (funcall get-face YaTeX-hilit-sectioning-face)
407 macro (funcall get-face YaTeX-hilit-singlecmd-face))
408 (if (setq sect (append user-section-table tmp-section-table))
409 (setq sect (concat "\\\\\\("
410 (mapconcat
411 (function
412 (lambda (s) (regexp-quote (car s))))
413 sect
414 "\\|")
415 "\\){")))
416 (if (setq single (append user-singlecmd-table tmp-singlecmd-table))
417 (setq single (concat "\\\\\\("
418 (mapconcat
419 (function (lambda (s) (regexp-quote (car s))))
420 single
421 "\\|")
422 "\\)\\b")))
423 (setq hilit-patterns-alist ;Remove at first.
424 (delq (assq 'yatex-mode hilit-patterns-alist) hilit-patterns-alist)
425 hilit-patterns-alist
426 (cons
427 (cons 'yatex-mode
428 (append
429 (list nil)
430 YaTeX-sectioning-patterns-alist
431 YaTeX-hilit-pattern-adjustment-private
432 ;;YaTeX-hilit-pattern-adjustment-default
433 YaTeX-hilit-patterns-alist
434 (delq nil
435 (list
436 (if sect (list
437 'YaTeX-19-region-section-type
438 sect
439 'keyword))
440 (if single (list single 0 'macro))))))
441 hilit-patterns-alist))))))
442 ;;(YaTeX-19-collect-macros) ;causes an error
443 (defun YaTeX-hilit-recenter (arg)
444 "Collect current local macro and hilit-recenter."
445 (interactive "P")
446 (YaTeX-19-collect-macros)
447 (hilit-recenter arg))
448 (if (fboundp 'hilit-recenter) ;Replace hilit-recenter with
449 (mapcar (function (lambda (key) ;YaTeX-hilit-recenter in yatex-mode
450 (define-key YaTeX-mode-map key 'YaTeX-hilit-recenter)))
451 (where-is-internal 'hilit-recenter)))
453 (defun YaTeX-switch-to-new-window ()
454 (let ((c 0) (i 1) (free (make-string win:max-configs ? )))
455 (while (< i win:max-configs)
456 (or (aref win:configs i) (aset free i (+ i win:base-key)))
457 (setq i (1+ i)))
458 (while (not (string-match (char-to-string c) free))
459 (message "Which window to create? [%s]: " free)
460 (setq c (read-char)))
461 (message "Creating window [%c]" c)
462 (set-buffer (get-buffer-create "*scratch*"))
463 (win:switch-window (- c win:base-key))))
465 (defun YaTeX-visit-main-other-frame ()
466 "Visit main file in other frame.
467 WARNING, This code is not perfect."
468 (interactive)
469 (if (YaTeX-main-file-p) (message "I think this is main LaTeX source.")
470 (let (parent)
471 (save-excursion (YaTeX-visit-main t) (setq parent (current-buffer)))
472 (cond
473 ((get-buffer-window parent t)
474 (goto-buffer-window parent))
475 ((and (featurep 'windows) win:use-frame)
476 (YaTeX-switch-to-new-window)
477 (switch-to-buffer parent))
478 (t (switch-to-buffer-other-frame (buffer-name parent)))))))
480 (defun YaTeX-goto-corresponding-*-other-frame (arg)
481 "Go to corresponding object in other frame."
482 (interactive "P")
483 (let (b p)
484 (save-window-excursion
485 (save-excursion
486 (YaTeX-goto-corresponding-* arg)
487 (setq b (current-buffer) p (point))))
488 (cond
489 ((get-buffer-window b t)
490 (goto-buffer-window b)
491 (goto-char p))
492 ((and (featurep 'windows) win:use-frame)
493 (YaTeX-switch-to-new-window)
494 (switch-to-buffer b)
495 (goto-char p))
496 (t (switch-to-buffer-other-frame (buffer-name b))
497 (goto-char p))))
498 )
500 ;;; reverseVideo にして hilit-background-mode を 'dark
501 ;;; にしている人は数式などが暗くなりすぎて見づらいかもしれない。
502 ;;; 次のコードを hilit19 をロードしている場所の直後に置くとちょっ
503 ;;; とはまし。
504 ;;; (if (eq hilit-background-mode 'dark)
505 ;;; (hilit-translate
506 ;;; string 'mediumspringgreen
507 ;;; formula 'khaki
508 ;;; label 'yellow-underlined))
509 (and YaTeX-emacs-19
510 (boundp 'byte-compile-current-file)
511 (if (and (boundp 'window-system) window-system)
512 (require 'hilit19)
513 (error "Byte compile this file on window system! Not `-nw'!")))
515 (provide 'yatex19)