yatex
view yatex19.el @ 58:3a7c0c2bf16d
Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
| author | yuuji |
|---|---|
| date | Thu, 01 Feb 1996 18:55:47 +0000 |
| parents | 18f4939986e6 |
| children | 48ac97a6b6ce |
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 Wed Dec 20 22:32:21 1995 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 ("\\\\documentstyle\\(\\[.*\\]\\)?{" "}" 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 level (cdr (car list))
373 fg (format "hex-%02x%02x%02x"
374 (- fR (/ (* level fR fmin) lm 100))
375 (- fG (/ (* level fG fmin) lm 100))
376 (- fB (/ (* level fB fmin) lm 100)))
377 bg (format "hex-%02x%02x%02x"
378 (- bR (/ (* level bR bmin) lm 100))
379 (- bG (/ (* level bG bmin) lm 100))
380 (- bB (/ (* level bB bmin) lm 100)))
381 from (intern (format "sectioning-%d" level))
382 face (intern (concat fg "/" bg)))
383 (hilit-translate from face)
384 (setq sect-pat-alist
385 (cons;;(list pat "}" face)
386 (list 'YaTeX-19-region-section-type pat face)
387 sect-pat-alist))
388 (setq list (cdr list)))
389 (setq YaTeX-sectioning-patterns-alist sect-pat-alist))))))
391 ;; ローカルなマクロを読み込んだ後 redraw すると
392 ;; ローカルマクロを keyword として光らせる(keywordじゃまずいかな…)。
393 (defun YaTeX-19-collect-macros ()
394 (cond
395 ((and (featurep 'hilit19) (fboundp 'hilit-translate))
396 (let ((get-face
397 (function
398 (lambda (table)
399 (cond
400 ((eq hilit-background-mode 'light) (car table))
401 ((eq hilit-background-mode 'dark) (car (cdr table)))
402 (t nil)))))
403 sect single)
404 (hilit-translate
405 ;;sectioning (funcall get-face YaTeX-hilit-sectioning-face)
406 macro (funcall get-face YaTeX-hilit-singlecmd-face))
407 (if (setq sect (append user-section-table tmp-section-table))
408 (setq sect (concat "\\\\\\("
409 (mapconcat
410 (function
411 (lambda (s) (regexp-quote (car s))))
412 sect
413 "\\|")
414 "\\){")))
415 (if (setq single (append user-singlecmd-table tmp-singlecmd-table))
416 (setq single (concat "\\\\\\("
417 (mapconcat
418 (function (lambda (s) (regexp-quote (car s))))
419 single
420 "\\|")
421 "\\)\\b")))
422 (setq hilit-patterns-alist ;Remove at first.
423 (delq (assq 'yatex-mode hilit-patterns-alist) hilit-patterns-alist)
424 hilit-patterns-alist
425 (cons
426 (cons 'yatex-mode
427 (append
428 (list nil)
429 YaTeX-sectioning-patterns-alist
430 YaTeX-hilit-pattern-adjustment-private
431 ;;YaTeX-hilit-pattern-adjustment-default
432 YaTeX-hilit-patterns-alist
433 (delq nil
434 (list
435 (if sect (list
436 'YaTeX-19-region-section-type
437 sect
438 'keyword))
439 (if single (list single 0 'macro))))))
440 hilit-patterns-alist))))))
441 ;;(YaTeX-19-collect-macros) ;causes an error
442 (defun YaTeX-hilit-recenter (arg)
443 "Collect current local macro and hilit-recenter."
444 (interactive "P")
445 (YaTeX-19-collect-macros)
446 (hilit-recenter arg))
447 (if (fboundp 'hilit-recenter) ;Replace hilit-recenter with
448 (mapcar (function (lambda (key) ;YaTeX-hilit-recenter in yatex-mode
449 (define-key YaTeX-mode-map key 'YaTeX-hilit-recenter)))
450 (where-is-internal 'hilit-recenter)))
452 (defun YaTeX-switch-to-new-window ()
453 (let ((c 0) (i 1) (free (make-string win:max-configs ? )))
454 (while (< i win:max-configs)
455 (or (aref win:configs i) (aset free i (+ i win:base-key)))
456 (setq i (1+ i)))
457 (while (not (string-match (char-to-string c) free))
458 (message "Which window to create? [%s]: " free)
459 (setq c (read-char)))
460 (message "Creating window [%c]" c)
461 (set-buffer (get-buffer-create "*scratch*"))
462 (win:switch-window (- c win:base-key))))
464 (defun YaTeX-visit-main-other-frame ()
465 "Visit main file in other frame.
466 WARNING, This code is not perfect."
467 (interactive)
468 (if (YaTeX-main-file-p) (message "I think this is main LaTeX source.")
469 (let (parent)
470 (save-excursion (YaTeX-visit-main t) (setq parent (current-buffer)))
471 (cond
472 ((get-buffer-window parent t)
473 (goto-buffer-window parent))
474 ((and (featurep 'windows) win:use-frame)
475 (YaTeX-switch-to-new-window)
476 (switch-to-buffer parent))
477 (t (switch-to-buffer-other-frame (buffer-name parent)))))))
479 (defun YaTeX-goto-corresponding-*-other-frame (arg)
480 "Go to corresponding object in other frame."
481 (interactive "P")
482 (let (b p)
483 (save-window-excursion
484 (save-excursion
485 (YaTeX-goto-corresponding-* arg)
486 (setq b (current-buffer) p (point))))
487 (cond
488 ((get-buffer-window b t)
489 (goto-buffer-window b)
490 (goto-char p))
491 ((and (featurep 'windows) win:use-frame)
492 (YaTeX-switch-to-new-window)
493 (switch-to-buffer b)
494 (goto-char p))
495 (t (switch-to-buffer-other-frame (buffer-name b))
496 (goto-char p))))
497 )
499 ;;; reverseVideo にして hilit-background-mode を 'dark
500 ;;; にしている人は数式などが暗くなりすぎて見づらいかもしれない。
501 ;;; 次のコードを hilit19 をロードしている場所の直後に置くとちょっ
502 ;;; とはまし。
503 ;;; (if (eq hilit-background-mode 'dark)
504 ;;; (hilit-translate
505 ;;; string 'mediumspringgreen
506 ;;; formula 'khaki
507 ;;; label 'yellow-underlined))
508 (and YaTeX-emacs-19
509 (boundp 'byte-compile-current-file)
510 (if (and (boundp 'window-system) window-system)
511 (require 'hilit19)
512 (error "Byte compile this file on window system! Not `-nw'!")))
514 (provide 'yatex19)