Mercurial > hgrepos > hgweb.cgi > yatex
annotate yatex19.el @ 53:5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
YaTeX-end-of-environment.
Line indentation by TAB much improved.
Functions that work at enclosing environments, YaTeX-enclose-<ENVNAME>,
introduced. Functions for enclosing verbatim and equations are supplied.
SPC, DEL, +, - in YaTeX-hierarchy buffer.
Compensate odd highlighting of hilit19.
author | yuuji |
---|---|
date | Thu, 02 Feb 1995 17:18:29 +0000 |
parents | 5d94deabb9f9 |
children | a9653fbd1c1c |
rev | line source |
---|---|
46 | 1 ;;; -*- Emacs-Lisp -*- |
2 ;;; YaTeX facilities for Emacs 19 | |
52 | 3 ;;; (c )1994-1995 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp] |
53
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
4 ;;; Last modified Thu Feb 2 23:44:30 1995 on figaro |
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 対応の方は結構本気。 |
46 | 12 |
47 | 13 (require 'yatex) |
14 | |
46 | 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))) | |
44 | |
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 ) | |
60 | |
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)) | |
67 | |
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)))) | |
78 | |
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)))) | |
90 | |
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)) | |
95 | |
52 | 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)) | |
100 | |
46 | 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 ) | |
111 | |
112 ;; =========================================================================== | |
113 (define-key YaTeX-mode-map [menu-bar yatex sepcom] | |
114 '("---" . nil)) | |
115 | |
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) | |
47 | 122 '(uncommentp "Uncomment paragraph" YaTeX-uncomment-paragraph) |
46 | 123 '(sepcom "--" nil) |
124 ) | |
125 | |
126 | |
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 ) | |
137 | |
138 ;; Menu for completions ------------------------------------------------------ | |
139 | |
140 | |
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)) | |
145 | |
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] | |
47 | 150 (cons "Section-type(long name)" |
46 | 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))) | |
181 | |
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)))))) | |
210 | |
53
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
211 ;; Other key bindings for window-system |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
212 ;(YaTeX-define-key [?\C- ] 'YaTeX-do-completion) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
213 (define-key YaTeX-mode-map [?\M-\C- ] 'YaTeX-mark-environment) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
214 |
46 | 215 ;; Highlightening |
53
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
216 ;; メニューに比べてこっちは結構本気でやってます。 |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
217 ;; だって文書構造がとっても分かり易いんだもん。 |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
218 ;; みんなも hilit19.el を使おう! |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
219 ;; |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
220 ;; さて、まずは対応する {} をピカピカ範囲とするような関数を作る。 |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
221 ;; これは hilit-LaTeX.el を参考にした。でも、ちゃんと section 型コマンドの |
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 (defun YaTeX-19-region-section-type (pattern) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
225 "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
|
226 (if (re-search-forward pattern nil t) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
227 (let ((m0 (match-beginning 0)) cmd (argc 1)) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
228 (setq cmd (substring (YaTeX-match-string 0) 1 -1) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
229 argc (or (car (cdr (YaTeX-lookup-table cmd 'section))) argc)) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
230 (cons m0 |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
231 (progn (skip-chars-backward "^{") (forward-char -2) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
232 (while (> argc 0) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
233 (skip-chars-forward "^{") |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
234 (forward-list 1) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
235 (setq argc (1- argc))) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
236 (point)))))) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
237 |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
238 (defun YaTeX-19-region-large-type (pattern) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
239 "Return list of large-type contents. |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
240 Assumes PATTERN begins with `{'." |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
241 (if (re-search-forward pattern nil t) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
242 (let ((m0 (match-beginning 0))) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
243 (goto-char m0) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
244 (skip-chars-forward "^ \t\n") |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
245 (skip-chars-forward " \t\n") |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
246 (cons (point) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
247 (progn (goto-char m0) (forward-list 1) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
248 (1- (point))))))) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
249 |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
250 ;; 些細なことだが % の前の文字もピカリとさせてしまうようで… >hilit19 |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
251 ;; ↓この関数は下の hilit-set-mode-patterns の "[^\\]\\(%\\).*$" に |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
252 ;; 依存している |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
253 (defun YaTeX-19-region-comment (pattern) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
254 "Return list of comment start and end point." |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
255 (if (re-search-forward pattern nil t) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
256 (cons (match-beginning 1) (match-end 0)))) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
257 |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
258 (defvar YaTeX-hilit-patterns-alist |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
259 '( |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
260 ;; comments |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
261 (YaTeX-19-region-comment "[^\\]\\(%\\).*$" comment) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
262 |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
263 (YaTeX-19-region-section-type "\\\\footnote\\(mark\\|text\\)?{" keyword) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
264 ("\\\\[a-z]+box" 0 keyword) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
265 (YaTeX-19-region-section-type "\\\\\\(v\\|h\\)space\\(\*\\)?{" keyword) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
266 |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
267 ;; (re-)define new commands/environments/counters |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
268 (YaTeX-19-region-section-type |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
269 "\\\\\\(re\\)?new\\(environment\\|command\\|theorem\\){" defun) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
270 (YaTeX-19-region-section-type |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
271 "\\\\\\(re\\)?new\\(length\\|counter\\){" define) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
272 |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
273 ;; various declarations/definitions |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
274 (YaTeX-19-region-section-type |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
275 "\\\\\\(set\\|setto\\|addto\\)\\(length\\|width\\|counter\\){" |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
276 define) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
277 (YaTeX-19-region-section-type |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
278 "\\\\\\(title\\|author\\|date\\|thanks\\){" define) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
279 |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
280 ("\\\\documentstyle\\(\\[.*\\]\\)?{" "}" decl) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
281 ("\\\\\\(begin\\|end\\|nofiles\\|includeonly\\){" "}" decl) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
282 ("\\\\\\(raggedright\\|makeindex\\|makeglossary\\|maketitle\\)\\b" 0 decl) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
283 ("\\\\\\(pagestyle\\|thispagestyle\\|pagenumbering\\){" "}" decl) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
284 ("\\\\\\(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
|
285 ("\\\\\\(appendix\\|tableofcontents\\|listoffigures\\|listoftables\\)\\b" |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
286 0 decl) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
287 ("\\\\\\(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
|
288 |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
289 ;; label-like things |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
290 ;;this should be customized by YaTeX-item-regexp |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
291 ("\\\\\\(sub\\)*item\\b\\(\\[[^]]*\\]\\)?" 0 label) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
292 (YaTeX-19-region-section-type |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
293 "\\\\caption\\(\\[[^]]*\\]\\)?{" label) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
294 |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
295 ;; formulas |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
296 ("[^\\]\\\\(" "\\\\)" formula) ; \( \) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
297 ("[^\\]\\\\\\[" "\\\\\\]" formula) ; \[ \] |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
298 ("\\\\begin{\\(eqn\\|equation\\)" "\\\\end{\\(eqn\\|equation\\)" formula) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
299 ("[^\\$]\\($\\($[^$]*\\$\\|[^$]*\\)\\$\\)" 1 formula) ; '$...$' or '$$...$$' |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
300 |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
301 ;; things that bring in external files |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
302 ("\\\\\\(include\\|input\\|bibliography\\){" "}" include) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
303 |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
304 ;; "wysiwyg" emphasis -- these don't work with nested expressions |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
305 ;; ("{\\\\\\(em\\|it\\|sl\\)" "}" italic) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
306 (YaTeX-19-region-large-type "{\\\\bf" bold) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
307 |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
308 ("``" "''" string) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
309 |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
310 ;; things that do some sort of cross-reference |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
311 (YaTeX-19-region-section-type |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
312 "\\\\\\(\\(no\\)?cite\\|\\(page\\)?ref\\|label\\|index\\|glossary\\){" |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
313 crossref) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
314 ) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
315 "*Hiliting pattern alist for LaTeX text.") |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
316 |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
317 ;;(defvar YaTeX-hilit-pattern-adjustment-default nil) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
318 ;; ↑いらなくなった。 |
51 | 319 (defvar YaTeX-hilit-pattern-adjustment-private nil |
53
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
320 "*Adjustment hilit-pattern-alist for default yatex-mode's pattern.") |
46 | 321 (defvar YaTeX-hilit-sectioning-face |
51 | 322 '(yellow/dodgerblue yellow/cornflowerblue) |
323 "*Hilightening face for sectioning unit. '(FaceForLight FaceForDark)") | |
52 | 324 (defvar YaTeX-sectioning-patterns-alist nil |
325 "Hilightening patterns for sectioning units.") | |
47 | 326 (defvar YaTeX-hilit-singlecmd-face |
51 | 327 '(slateblue2 aquamarine) |
328 "*Hilightening face for maketitle type. '(FaceForLight FaceForDark)") | |
52 | 329 |
330 ;;; セクションコマンドを、構造レベルの高さに応じて色の濃度を変える | |
331 ;;; 背景が黒でないと何が嬉しいのか分からないに違いない. | |
53
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
332 ;;; もしかして白地の時は構造レベルに応じて色を明るくしたほうが良いのか? |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
333 (cond |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
334 ((and (featurep 'hilit19) (fboundp 'x-color-values)) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
335 (let*((sectface |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
336 (car (if (eq hilit-background-mode 'dark) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
337 (cdr YaTeX-hilit-sectioning-face) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
338 YaTeX-hilit-sectioning-face))) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
339 (sectcol (symbol-name sectface)) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
340 sect-pat-alist) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
341 (if (string-match "/" sectcol) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
342 (let (colorvalue fR fG fB bR bG bB list pat fg bg level from face) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
343 (require 'yatexsec) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
344 (setq fg (substring sectcol 0 (string-match "/" sectcol)) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
345 bg (substring sectcol (1+ (string-match "/" sectcol))) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
346 colorvalue (x-color-values fg) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
347 fR (/ (nth 0 colorvalue) 256) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
348 fG (/ (nth 1 colorvalue) 256) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
349 fB (/ (nth 2 colorvalue) 256) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
350 colorvalue (x-color-values bg) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
351 bR (/ (nth 0 colorvalue) 256) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
352 bG (/ (nth 1 colorvalue) 256) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
353 bB (/ (nth 2 colorvalue) 256) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
354 list YaTeX-sectioning-level) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
355 (while list |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
356 (setq pat (concat YaTeX-ec-regexp (car (car list)) "\\*?{") |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
357 level (cdr (car list)) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
358 fg (format "hex-%02x%02x%02x" |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
359 (- fR (/ (* level fR) 40)) ;40 musn't be constant |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
360 (- fG (/ (* level fG) 40)) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
361 (- fB (/ (* level fB) 40))) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
362 bg (format "hex-%02x%02x%02x" |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
363 (- bR (/ (* level bR) 15)) ;20 musn't be constant |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
364 (- bG (/ (* level bG) 15)) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
365 (- bB (/ (* level bB) 15))) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
366 from (intern (format "sectioning-%d" level)) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
367 face (intern (concat fg "/" bg))) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
368 (hilit-translate from face) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
369 (setq sect-pat-alist |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
370 (cons;;(list pat "}" face) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
371 (list 'YaTeX-19-region-section-type pat face) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
372 sect-pat-alist)) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
373 (setq list (cdr list))) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
374 (setq YaTeX-sectioning-patterns-alist sect-pat-alist)))))) |
52 | 375 |
53
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
376 ;; ローカルなマクロを読み込んだ後 redraw すると |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
377 ;; ローカルマクロを keyword として光らせる(keywordじゃまずいかな…)。 |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
378 (defun YaTeX-19-collect-macros () |
46 | 379 (cond |
380 ((and (featurep 'hilit19) (fboundp 'hilit-translate)) | |
47 | 381 (let ((get-face |
382 (function | |
383 (lambda (table) | |
384 (cond | |
385 ((eq hilit-background-mode 'light) (car table)) | |
386 ((eq hilit-background-mode 'dark) (car (cdr table))) | |
387 (t nil)))))) | |
388 (hilit-translate | |
52 | 389 ;;sectioning (funcall get-face YaTeX-hilit-sectioning-face) |
47 | 390 macro (funcall get-face YaTeX-hilit-singlecmd-face))) |
391 (setq hilit-patterns-alist ;Remove at first. | |
46 | 392 (delq 'yatex-mode hilit-patterns-alist) |
393 hilit-patterns-alist | |
394 (cons | |
395 (cons 'yatex-mode | |
396 (append | |
52 | 397 YaTeX-sectioning-patterns-alist |
51 | 398 YaTeX-hilit-pattern-adjustment-private |
53
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
399 ;;YaTeX-hilit-pattern-adjustment-default |
51 | 400 YaTeX-hilit-patterns-alist |
46 | 401 (list |
402 (list | |
53
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
403 'YaTeX-19-region-section-type |
46 | 404 (concat "\\\\\\(" |
405 (mapconcat | |
406 (function (lambda (s) (regexp-quote (car s)))) | |
407 (append user-section-table tmp-section-table) | |
408 "\\|") | |
409 "\\){") | |
53
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
410 'keyword) |
47 | 411 (list |
412 (concat "\\\\\\(" | |
413 (mapconcat | |
414 (function (lambda (s) (regexp-quote (car s)))) | |
415 (append user-singlecmd-table tmp-singlecmd-table) | |
416 "\\|") | |
51 | 417 "\\)\\b") |
47 | 418 0 'macro)))) |
46 | 419 hilit-patterns-alist))))) |
53
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
420 ;;(YaTeX-19-collect-macros) ;causes an error |
46 | 421 (defun YaTeX-hilit-recenter (arg) |
422 "Collect current local macro and hilit-recenter." | |
423 (interactive "P") | |
53
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
424 (YaTeX-19-collect-macros) |
46 | 425 (hilit-recenter arg)) |
426 (if (fboundp 'hilit-recenter) ;Replace hilit-recenter with | |
427 (mapcar (function (lambda (key) ;YaTeX-hilit-recenter in yatex-mode | |
428 (define-key YaTeX-mode-map key 'YaTeX-hilit-recenter))) | |
429 (where-is-internal 'hilit-recenter))) | |
430 | |
53
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
431 (defun YaTeX-switch-to-new-window () |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
432 (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
|
433 (while (< i win:max-configs) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
434 (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
|
435 (setq i (1+ i))) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
436 (while (not (string-match (char-to-string c) free)) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
437 (message "Which window to create? [%s]: " free) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
438 (setq c (read-char))) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
439 (message "Creating window [%c]" c) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
440 (set-buffer (get-buffer-create "*scratch*")) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
441 (win:switch-window (- c win:base-key)))) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
442 |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
443 (defun YaTeX-visit-main-other-frame () |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
444 "Visit main file in other frame. |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
445 WARNING, This code is not perfect." |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
446 (interactive) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
447 (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
|
448 (let (parent) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
449 (save-excursion (YaTeX-visit-main t) (setq parent (current-buffer))) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
450 (cond |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
451 ((get-buffer-window parent t) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
452 (goto-buffer-window parent)) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
453 ((and (featurep 'windows) win:use-frame) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
454 (YaTeX-switch-to-new-window) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
455 (switch-to-buffer parent)) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
456 (t (switch-to-buffer-other-frame (buffer-name parent))))))) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
457 |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
458 (defun YaTeX-goto-corresponding-*-other-frame (arg) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
459 "Go to corresponding object in other frame." |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
460 (interactive "P") |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
461 (let (b p) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
462 (save-window-excursion |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
463 (save-excursion |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
464 (YaTeX-goto-corresponding-* arg) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
465 (setq b (current-buffer) p (point)))) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
466 (cond |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
467 ((get-buffer-window b t) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
468 (goto-buffer-window b) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
469 (goto-char p)) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
470 ((and (featurep 'windows) win:use-frame) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
471 (YaTeX-switch-to-new-window) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
472 (switch-to-buffer b) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
473 (goto-char p)) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
474 (t (switch-to-buffer-other-frame (buffer-name b)) |
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
475 (goto-char p)))) |
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 |
49 | 478 ;;; reverseVideo にして hilit-background-mode を 'dark |
479 ;;; にしている人は数式などが暗くなりすぎて見づらいかもしれない。 | |
480 ;;; 次のコードを hilit19 をロードしている場所の直後に置くとちょっ | |
481 ;;; とはまし。 | |
46 | 482 ;;; (if (eq hilit-background-mode 'dark) |
483 ;;; (hilit-translate | |
484 ;;; string 'mediumspringgreen | |
485 ;;; formula 'khaki | |
486 ;;; label 'yellow-underlined)) | |
487 | |
488 (provide 'yatex19) |