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