|
100
|
1 ;;; tex-jp.el - Support for Japanese TeX.
|
|
|
2
|
|
|
3 ;;; Code:
|
|
|
4
|
|
|
5 (require 'latex)
|
|
|
6
|
|
|
7 ;;; Customization
|
|
|
8
|
|
|
9 (setq TeX-format-list
|
|
|
10 (append '(("JLATEX" japanese-latex-mode
|
|
|
11 "\\\\\\(\\\\documentstyle[^%\n]*{j\\|\\\\documentclass[^%\n]*{j\\)")
|
|
|
12 ("JTEX" japanese-plain-tex-mode
|
|
|
13 "-- string likely in Japanese TeX --"))
|
|
|
14 TeX-format-list))
|
|
|
15
|
|
|
16 (setq TeX-command-list
|
|
|
17 (append (list (list "jTeX" "jtex '\\nonstopmode\\input %t'"
|
|
|
18 'TeX-run-TeX nil t)
|
|
|
19 (list "pTeX" "ptex '\\nonstopmode\\input %t'"
|
|
|
20 'TeX-run-TeX nil t)
|
|
|
21 (list "jBibTeX" "jbibtex %s" 'TeX-run-BibTeX nil nil))
|
|
|
22 TeX-command-list))
|
|
|
23
|
|
|
24 (setq LaTeX-command-style
|
|
|
25 (append (if (string-equal LaTeX-version "2")
|
|
|
26 '(("^ams" "amsjlatex")
|
|
|
27 ("^jslides$" "jslitex")
|
|
|
28 ("^j-?\\(article\\|report\\|book\\)$" "jlatex"))
|
|
|
29 '(("^j-\\(article\\|report\\|book\\)$" "jlatex")
|
|
|
30 ("^j\\(article\\|report\\|book\\)$" "platex")
|
|
|
31 ("." "jlatex")))
|
|
|
32 LaTeX-command-style))
|
|
|
33
|
|
|
34 (setcdr (assoc "%l" TeX-expand-list)
|
|
|
35 (list 'TeX-style-check LaTeX-command-style))
|
|
|
36
|
|
|
37 (defvar japanese-TeX-error-messages t
|
|
|
38 "If non-nil, explain TeX error messages in Japanese.")
|
|
|
39
|
|
|
40 (if (or (boundp 'MULE)
|
|
|
41 (featurep 'mule))
|
|
|
42 (if (string-match "XEmacs" emacs-version)
|
|
|
43 (progn
|
|
|
44 (defvar TeX-japanese-process-input-coding-system
|
|
|
45 (find-coding-system 'euc-japan)
|
|
|
46 "TeX-process' coding system with standard input.")
|
|
|
47 (defvar TeX-japanese-process-output-coding-system
|
|
|
48 (find-coding-system 'junet)
|
|
|
49 "TeX-process' coding system with standard output."))
|
|
|
50 (progn
|
|
|
51 (defvar TeX-japanese-process-input-coding-system *euc-japan*
|
|
|
52 "TeX-process' coding system with standard input.")
|
|
|
53 (defvar TeX-japanese-process-output-coding-system *junet*
|
|
|
54 "TeX-process' coding system with standard output."))))
|
|
|
55
|
|
|
56 (if (boundp 'NEMACS)
|
|
|
57 (defvar TeX-process-kanji-code 2
|
|
|
58 "TeX-process' kanji code with standard I/O.
|
|
|
59 0:No-conversion 1:Shift-JIS 2:JIS 3:EUC/AT&T/DEC"))
|
|
|
60
|
|
|
61 (defvar japanese-LaTeX-default-style "j-article"
|
|
|
62 "*Default when creating new Japanese documents.")
|
|
|
63 (make-variable-buffer-local 'japanese-LaTeX-default-style)
|
|
|
64
|
|
|
65 (defvar japanese-LaTeX-style-list
|
|
|
66 '(("book")
|
|
|
67 ("article")
|
|
|
68 ("letter")
|
|
|
69 ("slides")
|
|
|
70 ("report")
|
|
|
71 ("jbook")
|
|
|
72 ("j-book")
|
|
|
73 ("jarticle")
|
|
|
74 ("j-article")
|
|
|
75 ("jslides")
|
|
|
76 ("jreport")
|
|
|
77 ("j-report"))
|
|
|
78 "*List of Japanese document styles.")
|
|
|
79 (make-variable-buffer-local 'japanese-LaTeX-style-list)
|
|
|
80
|
|
|
81 ;;; Coding system
|
|
|
82
|
|
|
83 (if (boundp 'MULE)
|
|
|
84 (setq TeX-after-start-process-function
|
|
|
85 (function (lambda (process)
|
|
|
86 (set-process-coding-system
|
|
|
87 process
|
|
|
88 TeX-japanese-process-input-coding-system
|
|
|
89 TeX-japanese-process-output-coding-system)))))
|
|
|
90 (if (boundp 'NEMACS)
|
|
|
91 (setq TeX-after-start-process-function
|
|
|
92 (function
|
|
|
93 (lambda (process)
|
|
|
94 (set-process-kanji-code process TeX-process-kanji-code)))))
|
|
|
95
|
|
|
96 (if (and (string-match "XEmacs" emacs-version)
|
|
|
97 (featurep 'mule))
|
|
|
98 (setq TeX-after-start-process-function
|
|
|
99 (function (lambda (process)
|
|
|
100 (set-process-input-coding-system
|
|
|
101 process
|
|
|
102 TeX-japanese-process-input-coding-system)
|
|
|
103 (set-process-output-coding-system
|
|
|
104 process
|
|
|
105 TeX-japanese-process-output-coding-system)))))
|
|
|
106
|
|
|
107 ;;; Japanese Parsing
|
|
|
108
|
|
|
109 (if (or (boundp 'MULE)
|
|
|
110 (featurep 'mule))
|
|
|
111 (progn
|
|
|
112
|
|
|
113 (defconst LaTeX-auto-regexp-list
|
|
|
114 (append
|
|
|
115 '(("\\\\newcommand{?\\\\\\(\\([a-zA-Z]\\|\\cj\\)+\\)}?\\[\\([0-9]+\\)\\]\
|
|
|
116 \\[\\([^\]\\\\\n\r]+\\)\\]"
|
|
|
117 (1 3 4) LaTeX-auto-optional)
|
|
|
118 ("\\\\newcommand{?\\\\\\(\\([a-zA-Z]\\|\\cj\\)+\\)}?\\[\\([0-9]+\\)\\]"
|
|
|
119 (1 3) LaTeX-auto-arguments)
|
|
|
120 ("\\\\newcommand{?\\\\\\(\\([a-zA-Z]\\|\\cj\\)+\\)}?" 1 TeX-auto-symbol)
|
|
|
121 ("\\\\newenvironment{?\\(\\([a-zA-Z]\\|\\cj\\)+\\)}?\\[\\([0-9]+\\)\\]"
|
|
|
122 (1 3) LaTeX-auto-env-args)
|
|
|
123 ("\\\\newenvironment{?\\(\\([a-zA-Z]\\|\\cj\\)+\\)}?" 1 LaTeX-auto-environment)
|
|
|
124 ("\\\\newtheorem{\\(\\([a-zA-Z]\\|\\cj\\)+\\)}" 1 LaTeX-auto-environment)
|
|
|
125 ("\\\\input{\\(\\.*[^#}%\\\\\\.\n\r]+\\)\\(\\.[^#}%\\\\\\.\n\r]+\\)?}"
|
|
|
126 1 TeX-auto-file)
|
|
|
127 ("\\\\include{\\(\\.*[^#}%\\\\\\.\n\r]+\\)\\(\\.[^#}%\\\\\\.\n\r]+\\)?}"
|
|
|
128 1 TeX-auto-file)
|
|
|
129 ("\\\\usepackage\\(\\[[^\]\\\\]*\\]\\)?\
|
|
|
130 {\\(\\([^#}\\\\\\.%]\\|%[^\n\r]*[\n\r]\\)+\\)}"
|
|
|
131 (2) LaTeX-auto-style)
|
|
|
132 ("\\\\bibitem{\\(\\([a-zA-Z]\\|\\cj\\)[^, \n\r\t%\"#'()={}]*\\)}" 1 LaTeX-auto-bibitem)
|
|
|
133 ("\\\\bibitem\\[[^][\n\r]+\\]{\\(\\([a-zA-Z]\\|\\cj\\)[^, \n\r\t%\"#'()={}]*\\)}"
|
|
|
134 1 LaTeX-auto-bibitem)
|
|
|
135 ("\\\\bibliography{\\([^#}\\\\\n\r]+\\)}" 1 LaTeX-auto-bibliography))
|
|
|
136 LaTeX-auto-label-regexp-list
|
|
|
137 LaTeX-auto-minimal-regexp-list)
|
|
|
138 "List of regular expression matching common LaTeX macro definitions.")
|
|
|
139
|
|
|
140 (defconst plain-TeX-auto-regexp-list
|
|
|
141 '(("\\\\def\\\\\\(\\([a-zA-Z]\\|\\cj\\)+\\)[^a-zA-Z@]" 1
|
|
|
142 TeX-auto-symbol-check)
|
|
|
143 ("\\\\let\\\\\\(\\([a-zA-Z]\\|\\cj\\)+\\)[^a-zA-Z@]" 1
|
|
|
144 TeX-auto-symbol-check)
|
|
|
145 ("\\\\font\\\\\\(\\([a-zA-Z]\\|\\cj\\)+\\)[^a-zA-Z@]" 1 TeX-auto-symbol)
|
|
|
146 ("\\\\chardef\\\\\\(\\([a-zA-Z]\\|\\cj\\)+\\)[^a-zA-Z@]" 1 TeX-auto-symbol)
|
|
|
147 ("\\\\new\\(count|dimen|muskip|skip\\)\\\\\\(\\([a-z]\\|\\cj\\)+\\)[^a-zA-Z@]"
|
|
|
148 2 TeX-auto-symbol)
|
|
|
149 ("\\\\newfont{?\\\\\\(\\([a-zA-Z]\\|\\cj\\)+\\)}?" 1 TeX-auto-symbol)
|
|
|
150 ("\\\\typein\\[\\\\\\(\\([a-zA-Z]\\|\\cj\\)+\\)\\]" 1 TeX-auto-symbol)
|
|
|
151 ("\\\\input +\\(\\.*[^#%\\\\\\.\n\r]+\\)\\(\\.[^#%\\\\\\.\n\r]+\\)?"
|
|
|
152 1 TeX-auto-file)
|
|
|
153 ("\\\\mathchardef\\\\\\(\\([a-zA-Z]\\|\\cj\\)+\\)[^a-zA-Z@]" 1
|
|
|
154 TeX-auto-symbol))
|
|
|
155 "List of regular expression matching common LaTeX macro definitions.")
|
|
|
156
|
|
|
157 (defconst BibTeX-auto-regexp-list
|
|
|
158 '(("@[Ss][Tt][Rr][Ii][Nn][Gg]" 1 ignore)
|
|
|
159 ("@[a-zA-Z]+[{(][ \t]*\\(\\([a-zA-Z]\\|\\cj\\)[^, \n\r\t%\"#'()={}]*\\)"
|
|
|
160 1 LaTeX-auto-bibitem))
|
|
|
161 "List of regexp-list expressions matching BibTeX items.")
|
|
|
162
|
|
|
163 ))
|
|
|
164
|
|
|
165 (if (boundp 'NEMACS)
|
|
|
166 (progn
|
|
|
167
|
|
|
168 (defconst LaTeX-auto-regexp-list
|
|
|
169 (append
|
|
|
170 '(("\\\\newcommand{?\\\\\\(\\([a-zA-Z]\\|\\z\\)+\\)}?\\[\\([0-9]+\\)\\]\
|
|
|
171 \\[\\([^\]\\\\\n\r]+\\)\\]"
|
|
|
172 (1 3 4) LaTeX-auto-optional)
|
|
|
173 ("\\\\newcommand{?\\\\\\(\\([a-zA-Z]\\|\\z\\)+\\)}?\\[\\([0-9]+\\)\\]"
|
|
|
174 (1 3) LaTeX-auto-arguments)
|
|
|
175 ("\\\\newcommand{?\\\\\\(\\([a-zA-Z]\\|\\z\\)+\\)}?" 1 TeX-auto-symbol)
|
|
|
176 ("\\\\newenvironment{?\\(\\([a-zA-Z]\\|\\z\\)+\\)}?\\[\\([0-9]+\\)\\]"
|
|
|
177 (1 3) LaTeX-auto-env-args)
|
|
|
178 ("\\\\newenvironment{?\\(\\([a-zA-Z]\\|\\z\\)+\\)}?" 1 LaTeX-auto-environment)
|
|
|
179 ("\\\\newtheorem{\\(\\([a-zA-Z]\\|\\z\\)+\\)}" 1 LaTeX-auto-environment)
|
|
|
180 ("\\\\input{\\(\\.*[^#}%\\\\\\.\n\r]+\\)\\(\\.[^#}%\\\\\\.\n\r]+\\)?}"
|
|
|
181 1 TeX-auto-file)
|
|
|
182 ("\\\\include{\\(\\.*[^#}%\\\\\\.\n\r]+\\)\\(\\.[^#}%\\\\\\.\n\r]+\\)?}"
|
|
|
183 1 TeX-auto-file)
|
|
|
184 ("\\\\usepackage\\(\\[[^\]\\\\]*\\]\\)?\
|
|
|
185 {\\(\\([^#}\\\\\\.%]\\|%[^\n\r]*[\n\r]\\)+\\)}"
|
|
|
186 (2) LaTeX-auto-style)
|
|
|
187 ("\\\\bibitem{\\(\\([a-zA-Z]\\|\\z\\)[^, \n\r\t%\"#'()={}]*\\)}" 1 LaTeX-auto-bibitem)
|
|
|
188 ("\\\\bibitem\\[[^][\n\r]+\\]{\\(\\([a-zA-Z]\\|\\z\\)[^, \n\r\t%\"#'()={}]*\\)}"
|
|
|
189 1 LaTeX-auto-bibitem)
|
|
|
190 ("\\\\bibliography{\\([^#}\\\\\n\r]+\\)}" 1 LaTeX-auto-bibliography))
|
|
|
191 LaTeX-auto-label-regexp-list
|
|
|
192 LaTeX-auto-minimal-regexp-list)
|
|
|
193 "List of regular expression matching common LaTeX macro definitions.")
|
|
|
194
|
|
|
195 (defconst plain-TeX-auto-regexp-list
|
|
|
196 '(("\\\\def\\\\\\(\\([a-zA-Z]\\|\\z\\)+\\)[^a-zA-Z@]" 1
|
|
|
197 TeX-auto-symbol-check)
|
|
|
198 ("\\\\let\\\\\\(\\([a-zA-Z]\\|\\z\\)+\\)[^a-zA-Z@]" 1
|
|
|
199 TeX-auto-symbol-check)
|
|
|
200 ("\\\\font\\\\\\(\\([a-zA-Z]\\|\\z\\)+\\)[^a-zA-Z@]" 1 TeX-auto-symbol)
|
|
|
201 ("\\\\chardef\\\\\\(\\([a-zA-Z]\\|\\z\\)+\\)[^a-zA-Z@]" 1 TeX-auto-symbol)
|
|
|
202 ("\\\\new\\(count|dimen|muskip|skip\\)\\\\\\(\\([a-z]\\|\\z\\)+\\)[^a-zA-Z@]"
|
|
|
203 2 TeX-auto-symbol)
|
|
|
204 ("\\\\newfont{?\\\\\\(\\([a-zA-Z]\\|\\z\\)+\\)}?" 1 TeX-auto-symbol)
|
|
|
205 ("\\\\typein\\[\\\\\\(\\([a-zA-Z]\\|\\z\\)+\\)\\]" 1 TeX-auto-symbol)
|
|
|
206 ("\\\\input +\\(\\.*[^#%\\\\\\.\n\r]+\\)\\(\\.[^#%\\\\\\.\n\r]+\\)?"
|
|
|
207 1 TeX-auto-file)
|
|
|
208 ("\\\\mathchardef\\\\\\(\\([a-zA-Z]\\|\\z\\)+\\)[^a-zA-Z@]" 1
|
|
|
209 TeX-auto-symbol))
|
|
|
210 "List of regular expression matching common LaTeX macro definitions.")
|
|
|
211
|
|
|
212 (defconst BibTeX-auto-regexp-list
|
|
|
213 '(("@[Ss][Tt][Rr][Ii][Nn][Gg]" 1 ignore)
|
|
|
214 ("@[a-zA-Z]+[{(][ \t]*\\(\\([a-zA-Z]\\|\\z\\)[^, \n\r\t%\"#'()={}]*\\)"
|
|
|
215 1 LaTeX-auto-bibitem))
|
|
|
216 "List of regexp-list expressions matching BibTeX items.")
|
|
|
217
|
|
|
218 ))
|
|
|
219
|
|
|
220 (defconst TeX-auto-full-regexp-list
|
|
|
221 (append LaTeX-auto-regexp-list plain-TeX-auto-regexp-list)
|
|
|
222 "Full list of regular expression matching TeX macro definitions.")
|
|
|
223
|
|
|
224 ;;; Japanese TeX modes
|
|
|
225
|
|
|
226 (defvar japanese-TeX-mode nil
|
|
|
227 "Flag to determine if Japanese initialization is needed.")
|
|
|
228
|
|
|
229 (add-hook 'plain-TeX-mode-hook 'japanese-plain-tex-mode-initialization)
|
|
|
230
|
|
|
231 ;;;###autoload
|
|
|
232 (defun japanese-plain-tex-mode ()
|
|
|
233 "Major mode for editing files of input for Japanese plain TeX.
|
|
|
234 Set japanese-TeX-mode to t, and enters plain-tex-mode."
|
|
|
235 (interactive)
|
|
|
236 (setq japanese-TeX-mode t)
|
|
|
237 (plain-tex-mode))
|
|
|
238
|
|
|
239 (defun japanese-plain-tex-mode-initialization ()
|
|
|
240 "Japanese plain-TeX specific initializations."
|
|
|
241 (if japanese-TeX-mode
|
|
|
242 (setq TeX-command-default "jTeX")))
|
|
|
243
|
|
|
244 (add-hook 'LaTeX-mode-hook 'japanese-latex-mode-initialization)
|
|
|
245
|
|
|
246 ;;;###autoload
|
|
|
247 (defun japanese-latex-mode ()
|
|
|
248 "Major mode for editing files of input for Japanese plain TeX.
|
|
|
249 Set japanese-TeX-mode to t, and enters latex-mode."
|
|
|
250 (interactive)
|
|
|
251 (setq japanese-TeX-mode t)
|
|
|
252 (latex-mode))
|
|
|
253
|
|
|
254 (defun japanese-latex-mode-initialization ()
|
|
|
255 "Japanese LaTeX specific initializations."
|
|
|
256 (if japanese-TeX-mode
|
|
|
257 (progn
|
|
|
258 (setq LaTeX-default-style japanese-LaTeX-default-style)
|
|
|
259 (setq LaTeX-style-list japanese-LaTeX-style-list)
|
|
|
260 (setq TeX-command-BibTeX "jBibTeX")
|
|
|
261 (setq japanese-TeX-mode nil))))
|
|
|
262
|
|
|
263 ;;; MULE and NEMACS paragraph filling.
|
|
|
264
|
|
|
265 (if (boundp 'MULE)
|
|
|
266 (if (string-lessp emacs-version "19")
|
|
|
267 (defun LaTeX-fill-region-as-paragraph (from to &optional justify-flag)
|
|
|
268 "Fill region as one paragraph: break lines to fit fill-column.
|
|
|
269 Prefix arg means justify too.
|
|
|
270 From program, pass args FROM, TO and JUSTIFY-FLAG."
|
|
|
271 (interactive "*r\nP")
|
|
|
272 (save-restriction
|
|
|
273 (goto-char from)
|
|
|
274 (skip-chars-forward "\n")
|
|
|
275 (LaTeX-indent-line)
|
|
|
276 (beginning-of-line)
|
|
|
277 (narrow-to-region (point) to)
|
|
|
278 (setq from (point))
|
|
|
279
|
|
|
280 ;; Delete whitespace at beginning of line from every line,
|
|
|
281 ;; except the first line.
|
|
|
282 (goto-char (point-min))
|
|
|
283 (forward-line 1)
|
|
|
284 (while (not (eobp))
|
|
|
285 (delete-horizontal-space)
|
|
|
286 (forward-line 1))
|
|
|
287
|
|
|
288 ;; Ignore the handling routine related with `fill-prefix'.
|
|
|
289
|
|
|
290 ;; from is now before the text to fill,
|
|
|
291 ;; but after any fill prefix on the first line.
|
|
|
292
|
|
|
293 ;; Make sure sentences ending at end of line get an extra space.
|
|
|
294 (goto-char from)
|
|
|
295 ;;; patch by S.Tomura 88-Jun-30
|
|
|
296 ;;$B!cE}9g!d(B
|
|
|
297 ;; . + CR ==> . + SPC + SPC
|
|
|
298 ;; . + SPC + CR + ==> . + SPC +
|
|
|
299 ;;(while (re-search-forward "[.?!][])""']*$" nil t)
|
|
|
300 ;; (insert ? ))
|
|
|
301 (while (re-search-forward "[.?!][])\"']*$" nil t)
|
|
|
302 (if (eobp)
|
|
|
303 nil
|
|
|
304 ;; replace CR by two spaces.
|
|
|
305 (delete-char 1) ; delete newline
|
|
|
306 (insert " ")))
|
|
|
307 ;; end of patch
|
|
|
308 ;; The change all newlines to spaces.
|
|
|
309 ;; patched by S.Tomura 87-Dec-7
|
|
|
310 ;; bug fixed by S.Tomura 88-May-25
|
|
|
311 ;; modified by S.Tomura 88-Jun-21
|
|
|
312 ;;(subst-char-in-region from (point-max) ?\n ?\ )
|
|
|
313 ;; modified by K.Handa 92-Mar-2
|
|
108
|
314 ;; Spacing is not necessary for characters of no word-separator.
|
|
100
|
315 ;; The regexp word-across-newline is used for this check.
|
|
|
316 (if (not (stringp word-across-newline))
|
|
|
317 (subst-char-in-region from (point-max) ?\n ?\ )
|
|
|
318 (goto-char from)
|
|
|
319 (end-of-line)
|
|
|
320 (while (not (eobp))
|
|
|
321 (delete-char 1)
|
|
|
322 (if (eobp) nil ; 92.6.30 by K.Handa
|
|
|
323 (if (not (looking-at word-across-newline))
|
|
|
324 (progn
|
|
|
325 (forward-char -1)
|
|
|
326 (if (and (not (eq (following-char) ? ))
|
|
|
327 (not (looking-at word-across-newline)))
|
|
|
328 (progn
|
|
|
329 (forward-char 1)
|
|
|
330 (insert ? ))
|
|
|
331 (forward-char 1))))
|
|
|
332 (end-of-line))))
|
|
|
333 ;; After the following processing, there's two spaces at end of sentence
|
|
|
334 ;; and single space at end of line within sentence.
|
|
|
335 ;; end of patch
|
|
|
336 ;; Flush excess spaces, except in the paragraph indentation.
|
|
|
337 (goto-char from)
|
|
|
338 (skip-chars-forward " \t")
|
|
|
339 (while (re-search-forward " *" nil t)
|
|
|
340 (delete-region
|
|
|
341 (+ (match-beginning 0)
|
|
|
342 (if (save-excursion
|
|
|
343 (skip-chars-backward " ])\"'")
|
|
|
344 (memq (preceding-char) '(?. ?? ?!)))
|
|
|
345 2 1))
|
|
|
346 (match-end 0)))
|
|
|
347 (goto-char (point-max))
|
|
|
348 (delete-horizontal-space)
|
|
|
349 (insert " ")
|
|
|
350 (goto-char (point-min))
|
|
|
351 (let ((prefixcol 0)
|
|
|
352 ;; patch by K.Handa 92-Mar-2
|
|
|
353 (re-break-point (concat "[ \t\n]\\|" word-across-newline))
|
|
|
354 ;; end of patch
|
|
|
355 )
|
|
|
356 (while (not (eobp))
|
|
|
357 (move-to-column (1+ fill-column))
|
|
|
358 (if (eobp)
|
|
|
359 nil
|
|
|
360 ;; patched by S.Tomura 87-Jun-2
|
|
|
361 ;; Big change by K.Handa 92-Mar-2
|
|
|
362 ;; Move back to start of word.
|
|
|
363 ;; (skip-chars-backward "^ \n")
|
|
|
364 ;; (if (if (zerop prefixcol) (bolp) (>= prefixcol (current-column)))
|
|
|
365 ;; ;; Move back over whitespace before the word.
|
|
|
366 ;; (skip-chars-forward "^ \n")
|
|
|
367 ;; ;; Normally, move back over the single space between the words.
|
|
|
368 ;; (forward-char -1))
|
|
|
369
|
|
|
370 ;; At first, find breaking point at the left of fill-column,
|
|
|
371 ;; but after kinsoku-shori, the point may be right of fill-column.
|
|
|
372 ;; 92.4.15 by K.Handa -- re-search-backward will back to prev line.
|
|
|
373 ;; 92.4.27 by T.Enami -- We might have gone back too much...
|
|
|
374 (let ((p (point)) ch)
|
|
|
375 (re-search-backward re-break-point nil 'mv)
|
|
|
376 (setq ch (following-char))
|
|
|
377 (if (or (= ch ? ) (= ch ?\t))
|
|
|
378 (skip-chars-backward " \t")
|
|
|
379 (forward-char 1)
|
|
|
380 (if (<= p (point))
|
|
|
381 (forward-char -1))))
|
|
|
382 (kinsoku-shori)
|
|
|
383 ;; Check if current column is at the right of prefixcol.
|
|
|
384 ;; If not, find break-point at the right of fill-column.
|
|
|
385 ;; This time, force kinsoku-shori-nobashi.
|
|
|
386 (if (>= prefixcol (current-column))
|
|
|
387 (progn
|
|
|
388 (move-to-column (1+ fill-column))
|
|
|
389 ;; 92.4.15 by K.Handa -- suppress error in re-search-forward
|
|
|
390 (re-search-forward re-break-point nil t)
|
|
|
391 (forward-char -1)
|
|
|
392 (kinsoku-shori-nobashi))))
|
|
|
393 ;; end of patch S.Tomura
|
|
|
394
|
|
|
395 ;; Replace all whitespace here with one newline.
|
|
|
396 ;; Insert before deleting, so we don't forget which side of
|
|
|
397 ;; the whitespace point or markers used to be on.
|
|
|
398 ;; patch by S. Tomura 88-Jun-20
|
|
|
399 ;; 92.4.27 by K.Handa
|
|
|
400 (skip-chars-backward " \t")
|
|
|
401 (if mc-flag
|
|
|
402 ;; $B!cJ,3d!d(B WAN means chars which match word-across-newline.
|
|
|
403 ;; (0) | SPC + SPC* <EOB> --> NL
|
|
|
404 ;; (1) WAN | SPC + SPC* --> WAN + SPC + NL
|
|
|
405 ;; (2) | SPC + SPC* + WAN --> SPC + NL + WAN
|
|
|
406 ;; (3) '.' | SPC + nonSPC --> '.' + SPC + NL + nonSPC
|
|
|
407 ;; (4) '.' | SPC + SPC --> '.' + NL
|
|
|
408 ;; (5) | SPC* --> NL
|
|
|
409 (let ((start (point)) ; 92.6.30 by K.Handa
|
|
|
410 (ch (following-char)))
|
|
|
411 (if (and (= ch ? )
|
|
|
412 (progn ; not case (0) -- 92.6.30 by K.Handa
|
|
|
413 (skip-chars-forward " \t")
|
|
|
414 (not (eobp)))
|
|
|
415 (or
|
|
|
416 (progn ; case (1)
|
|
|
417 (goto-char start)
|
|
|
418 (forward-char -1)
|
|
|
419 (looking-at word-across-newline))
|
|
|
420 (progn ; case (2)
|
|
|
421 (goto-char start)
|
|
|
422 (skip-chars-forward " \t")
|
|
|
423 (and (not (eobp))
|
|
|
424 (looking-at word-across-newline)))
|
|
|
425 (progn ; case (3)
|
|
|
426 (goto-char (1+ start))
|
|
|
427 (and (not (eobp))
|
|
|
428 (/= (following-char) ? )
|
|
|
429 (progn
|
|
|
430 (skip-chars-backward " ])\"'")
|
|
|
431 (memq (preceding-char) '(?. ?? ?!)))))))
|
|
|
432 ;; We should keep one SPACE before NEWLINE. (1),(2),(3)
|
|
|
433 (goto-char (1+ start))
|
|
|
434 ;; We should delete all SPACES around break point. (4),(5)
|
|
|
435 (goto-char start))))
|
|
|
436 ;; end of patch
|
|
|
437 (if (equal (preceding-char) ?\\)
|
|
|
438 (insert ? ))
|
|
|
439 (insert ?\n)
|
|
|
440 (delete-horizontal-space)
|
|
|
441
|
|
|
442 ;; Ignore the handling routine related with `fill-prefix'.
|
|
|
443
|
|
|
444 (LaTeX-indent-line)
|
|
|
445 (setq prefixcol (current-column))
|
|
|
446 ;; Justify the line just ended, if desired.
|
|
|
447 (and justify-flag (not (eobp))
|
|
|
448 (progn
|
|
|
449 (forward-line -1)
|
|
|
450 (justify-current-line)
|
|
|
451 (forward-line 1)))
|
|
|
452 )
|
|
|
453 (goto-char (point-max))
|
|
|
454 (delete-horizontal-space))))
|
|
|
455 (defun LaTeX-fill-region-as-paragraph (from to &optional justify-flag)
|
|
|
456 "Fill region as one paragraph: break lines to fit fill-column.\n\
|
|
|
457 Prefix arg means justify too.\n\
|
|
|
458 From program, pass args FROM, TO and JUSTIFY-FLAG."
|
|
|
459 (interactive "*r\nP")
|
|
|
460 (save-restriction
|
|
|
461 (goto-char from)
|
|
|
462 (skip-chars-forward " \n")
|
|
|
463 (LaTeX-indent-line)
|
|
|
464 (beginning-of-line)
|
|
|
465 (narrow-to-region (point) to)
|
|
|
466 (setq from (point))
|
|
|
467
|
|
|
468 ;; Delete whitespace at beginning of line from every line,
|
|
|
469 ;; except the first line.
|
|
|
470 (goto-char (point-min))
|
|
|
471 (forward-line 1)
|
|
|
472 (while (not (eobp))
|
|
|
473 (delete-horizontal-space)
|
|
|
474 (forward-line 1))
|
|
|
475
|
|
|
476 ;; from is now before the text to fill,
|
|
|
477 ;; but after any fill prefix on the first line.
|
|
|
478
|
|
|
479 ;; Make sure sentences ending at end of line get an extra space.
|
|
|
480 (goto-char from)
|
|
|
481 ;; patch by S.Tomura 88-Jun-30
|
|
|
482 ;;$B!cE}9g!d(B
|
|
|
483 ;; . + CR ==> . + SPC + SPC
|
|
|
484 ;; . + SPC + CR + ==> . + SPC +
|
|
|
485 ;; (while (re-search-forward "[.?!][])\"']*$" nil t)
|
|
|
486 ;; (insert ? ))
|
|
|
487 (while (re-search-forward "[.?!][])}\"']*$" nil t)
|
|
|
488 (if (eobp)
|
|
|
489 nil
|
|
|
490 ;; replace CR by two spaces.
|
|
|
491 ;; insert before delete to preserve marker.
|
|
|
492 (insert " ")
|
|
|
493 ;; delete newline
|
|
|
494 (delete-char 1)))
|
|
|
495 ;; end of patch
|
|
|
496 ;; The change all newlines to spaces.
|
|
|
497 ;; (subst-char-in-region from (point-max) ?\n ?\ )
|
|
|
498 ;; patched by S.Tomura 87-Dec-7
|
|
|
499 ;; bug fixed by S.Tomura 88-May-25
|
|
|
500 ;; modified by S.Tomura 88-Jun-21
|
|
|
501 ;; modified by K.Handa 92-Mar-2
|
|
108
|
502 ;; Spacing is not necessary for characters of no word-separator.
|
|
100
|
503 ;; The regexp word-across-newline is used for this check.
|
|
|
504 (if (not (stringp word-across-newline))
|
|
|
505 (subst-char-in-region from (point-max) ?\n ?\ )
|
|
|
506 ;;
|
|
|
507 ;; WAN +NL+WAN --> WAN + WAN
|
|
|
508 ;; not(WAN)+NL+WAN --> not(WAN) + WAN
|
|
|
509 ;; WAN +NL+not(WAN) --> WAN + not(WAN)
|
|
|
510 ;; SPC +NL+not(WAN) --> SPC + not(WAN)
|
|
|
511 ;; not(WAN)+NL+not(WAN) --> not(WAN) + SPC + not(WAN)
|
|
|
512 ;;
|
|
|
513 (goto-char from)
|
|
|
514 (end-of-line)
|
|
|
515 (while (not (eobp))
|
|
|
516 ;; 92.8.26 , 92.8.30 by S. Tomura
|
|
|
517
|
|
|
518 ;; Insert SPC only when point is between nonWAN. Insert
|
|
|
519 ;; before deleting to preserve marker if possible.
|
|
|
520 (if (or (prog2 ; check following char.
|
|
|
521 (forward-char) ; skip newline
|
|
|
522 (or (eobp)
|
|
|
523 (looking-at word-across-newline))
|
|
|
524 (forward-char -1))
|
|
|
525 (prog2 ; check previous char.
|
|
|
526 (forward-char -1)
|
|
|
527 (or (eq (following-char) ?\ )
|
|
|
528 (looking-at word-across-newline))
|
|
|
529 (forward-char)))
|
|
|
530 nil
|
|
|
531 (insert ?\ ))
|
|
|
532 (delete-char 1) ; delete newline
|
|
|
533 (end-of-line)))
|
|
|
534 ;; Flush excess spaces, except in the paragraph indentation.
|
|
|
535 (goto-char from)
|
|
|
536 (skip-chars-forward " \t")
|
|
|
537 (while (re-search-forward " *" nil t)
|
|
|
538 (delete-region
|
|
|
539 (+ (match-beginning 0)
|
|
|
540 (if (save-excursion
|
|
|
541 (skip-chars-backward " ])\"'")
|
|
|
542 (memq (preceding-char) '(?. ?? ?!)))
|
|
|
543 2 1))
|
|
|
544 (match-end 0)))
|
|
|
545 (goto-char (point-max))
|
|
|
546 (delete-horizontal-space)
|
|
|
547 (insert " ")
|
|
|
548 (goto-char (point-min))
|
|
|
549 (let ((prefixcol 0) linebeg
|
|
|
550 ;; patch by K.Handa 92-Mar-2
|
|
|
551 (re-break-point (concat "[ \n]\\|" word-across-newline))
|
|
|
552 ;; end of patch
|
|
|
553 )
|
|
|
554 (while (not (eobp))
|
|
|
555 (setq linebeg (point))
|
|
|
556 (move-to-column (1+ fill-column))
|
|
|
557 (if (eobp)
|
|
|
558 nil
|
|
|
559 ;;(skip-chars-backward "^ \n")
|
|
|
560 (fill-move-backward-to-break-point re-break-point)
|
|
|
561 (if sentence-end-double-space
|
|
|
562 (while (and (> (point) (+ linebeg 2))
|
|
|
563 (eq (preceding-char) ?\ )
|
|
|
564 (not (eq (following-char) ?\ ))
|
|
|
565 (eq (char-after (- (point) 2)) ?\.))
|
|
|
566 (forward-char -2)
|
|
|
567 (fill-move-backward-to-break-point re-break-point linebeg)))
|
|
|
568 (kinsoku-shori)
|
|
|
569 (if (if (zerop prefixcol)
|
|
|
570 (save-excursion
|
|
|
571 (skip-chars-backward " " linebeg)
|
|
|
572 (bolp))
|
|
|
573 (>= prefixcol (current-column)))
|
|
|
574 ;; Keep at least one word even if fill prefix exceeds margin.
|
|
|
575 ;; This handles all but the first line of the paragraph.
|
|
|
576 ;; Meanwhile, don't stop at a period followed by one space.
|
|
|
577 (let ((first t))
|
|
|
578 (move-to-column prefixcol)
|
|
|
579 (while (and (not (eobp))
|
|
|
580 (or first
|
|
|
581 (and (not (bobp))
|
|
|
582 sentence-end-double-space
|
|
|
583 (save-excursion (forward-char -1)
|
|
|
584 (and (looking-at "\\. ")
|
|
|
585 (not (looking-at "\\. ")))))))
|
|
|
586 (skip-chars-forward " ")
|
|
|
587 ;; (skip-chars-forward "^ \n")
|
|
|
588 (fill-move-forward-to-break-point re-break-point)
|
|
|
589 (setq first nil)))
|
|
|
590 ;; Normally, move back over the single space between the words.
|
|
|
591 (if (eq (preceding-char) ? )
|
|
|
592 (forward-char -1))))
|
|
|
593 (if mc-flag
|
|
|
594 ;; $B!cJ,3d!d(B WAN means chars which match word-across-newline.
|
|
|
595 ;; (0) | SPC + SPC* <EOB> --> NL
|
|
|
596 ;; (1) WAN | SPC + SPC* --> WAN + SPC + NL
|
|
|
597 ;; (2) | SPC + SPC* + WAN --> SPC + NL + WAN
|
|
|
598 ;; (3) '.' | SPC + nonSPC --> '.' + SPC + NL + nonSPC
|
|
|
599 ;; (4) '.' | SPC + SPC --> '.' + NL
|
|
|
600 ;; (5) | SPC* --> NL
|
|
|
601 (let ((start (point)) ; 92.6.30 by K.Handa
|
|
|
602 (ch (following-char)))
|
|
|
603 (if (and (= ch ? )
|
|
|
604 (progn ; not case (0) -- 92.6.30 by K.Handa
|
|
|
605 (skip-chars-forward " \t")
|
|
|
606 (not (eobp)))
|
|
|
607 (or
|
|
|
608 (progn ; case (1)
|
|
|
609 (goto-char start)
|
|
|
610 (forward-char -1)
|
|
|
611 (looking-at word-across-newline))
|
|
|
612 (progn ; case (2)
|
|
|
613 (goto-char start)
|
|
|
614 (skip-chars-forward " \t")
|
|
|
615 (and (not (eobp))
|
|
|
616 (looking-at word-across-newline)
|
|
|
617 ;; never leave space after the end of sentence
|
|
|
618 (not (fill-end-of-sentence-p))))
|
|
|
619 (progn ; case (3)
|
|
|
620 (goto-char (1+ start))
|
|
|
621 (and (not (eobp))
|
|
|
622 (/= (following-char) ? )
|
|
|
623 (fill-end-of-sentence-p)))))
|
|
|
624 ;; We should keep one SPACE before NEWLINE. (1),(2),(3)
|
|
|
625 (goto-char (1+ start))
|
|
|
626 ;; We should delete all SPACES around break point. (4),(5)
|
|
|
627 (goto-char start))))
|
|
|
628 ;; end of patch
|
|
|
629 (delete-horizontal-space)
|
|
|
630 (if (equal (preceding-char) ?\\)
|
|
|
631 (insert ? ))
|
|
|
632 (insert ?\n)
|
|
|
633 (LaTeX-indent-line)
|
|
|
634 (setq prefixcol (current-column))
|
|
|
635 (and justify-flag (not (eobp))
|
|
|
636 (progn
|
|
|
637 (forward-line -1)
|
|
|
638 (justify-current-line)
|
|
|
639 (forward-line 1)))
|
|
|
640 )
|
|
|
641 (goto-char (point-max))
|
|
|
642 (delete-horizontal-space))))))
|
|
|
643
|
|
|
644 (if (boundp 'NEMACS)
|
|
|
645 (defun LaTeX-fill-region-as-paragraph (from to &optional justify-flag)
|
|
|
646 "Fill region as one paragraph: break lines to fit fill-column.
|
|
|
647 Prefix arg means justify too.
|
|
|
648 From program, pass args FROM, TO and JUSTIFY-FLAG."
|
|
|
649 (interactive "r\nP")
|
|
|
650 (save-restriction
|
|
|
651 (goto-char from)
|
|
|
652 (skip-chars-forward " \n")
|
|
|
653 (LaTeX-indent-line)
|
|
|
654 (beginning-of-line)
|
|
|
655 (narrow-to-region (point) to)
|
|
|
656 (setq from (point))
|
|
|
657
|
|
|
658 ;; Delete whitespace at beginning of line from every line,
|
|
|
659 ;; except the first line.
|
|
|
660 (goto-char (point-min))
|
|
|
661 (forward-line 1)
|
|
|
662 (while (not (eobp))
|
|
|
663 (delete-horizontal-space)
|
|
|
664 (forward-line 1))
|
|
|
665
|
|
|
666 ;; from is now before the text to fill,
|
|
|
667 ;; but after any fill prefix on the first line.
|
|
|
668
|
|
|
669 ;; Make sure sentences ending at end of line get an extra space.
|
|
|
670 (goto-char from)
|
|
|
671 ;;; patch by S.Tomura 88-Jun-30
|
|
|
672 ;;$B!cE}9g!d(B
|
|
|
673 ;; . + CR ==> . + SPC + SPC
|
|
|
674 ;; . + SPC + CR + ==> . + SPC +
|
|
|
675 ;;(while (re-search-forward "[.?!][])""']*$" nil t)
|
|
|
676 ;; (insert ? ))
|
|
|
677 (while (re-search-forward "[.?!][])""']*$" nil t)
|
|
|
678 (if (eobp)
|
|
|
679 nil
|
|
|
680 (delete-char 1)
|
|
|
681 (insert " "))) ;; replace CR by two spaces.
|
|
|
682 ;; end of patch
|
|
|
683 ;; The change all newlines to spaces.
|
|
|
684 ;; patched by S.Tomura 87-Dec-7
|
|
|
685 ;; bug fixed by S.Tomura 88-May-25
|
|
|
686 ;; modified by S.Tomura 88-Jun-21
|
|
|
687 ;;(subst-char-in-region from (point-max) ?\n ?\ )
|
|
|
688 ;;$BF|K\8l$N8l$N8e$K$O6uGr$O$J$$!#(B
|
|
|
689 (goto-char from)
|
|
|
690 (end-of-line)
|
|
|
691 (while (not (eobp))
|
|
|
692 (delete-char 1)
|
|
|
693 (if (and (< ? (preceding-char)) ;; + SPC + CR + X ==> + SPC + X
|
|
|
694 (< (preceding-char) 128)
|
|
|
695 (<= ? (following-char))
|
|
|
696 (< (following-char) 128))
|
|
|
697 (insert ?\ ))
|
|
|
698 (end-of-line))
|
|
|
699 ;; $B<!$N=hM}$GJ8Kv$K$O(Btwo spaces$B$,$"$j!"$=$l0J30$O(Bsingle space$B$K$J$C$F$$$k!#(B
|
|
|
700 ;; end of patch
|
|
|
701 ;; Flush excess spaces, except in the paragraph indentation.
|
|
|
702 (goto-char from)
|
|
|
703 (skip-chars-forward " \t")
|
|
|
704 (while (re-search-forward " *" nil t)
|
|
|
705 (delete-region
|
|
|
706 (+ (match-beginning 0)
|
|
|
707 (if (save-excursion
|
|
|
708 (skip-chars-backward " ])\"'")
|
|
|
709 (memq (preceding-char) '(?. ?? ?!)))
|
|
|
710 2 1))
|
|
|
711 (match-end 0)))
|
|
|
712 (goto-char from)
|
|
|
713 (skip-chars-forward " \t")
|
|
|
714 (while (re-search-forward " " nil t)
|
|
|
715 (if (<= 128 (following-char))
|
|
|
716 (let ((dummy 0))
|
|
|
717 (backward-char 1)
|
|
|
718 (if (<= 128 (preceding-char))
|
|
|
719 (delete-char 1))
|
|
|
720 (forward-char 1))))
|
|
|
721 (goto-char (point-max))
|
|
|
722 (delete-horizontal-space)
|
|
|
723 (insert " ")
|
|
|
724 (goto-char (point-min))
|
|
|
725 (let ((prefixcol 0))
|
|
|
726 (while (not (eobp))
|
|
|
727 ;; patched by S.Tomura 88-Jun-2
|
|
|
728 ;;(move-to-column (1+ fill-column))
|
|
|
729 (move-to-column fill-column)
|
|
|
730 ;; end of patch
|
|
|
731 ;; patched by S.Tomura 88-Jun-16, 89-Oct-2, 89-Oct-19
|
|
|
732 ;; $B4A;z%3!<%I$N>l9g$K$O(Bfill-column$B$h$jBg$-$/$J$k$3$H$,$"$k!#(B
|
|
|
733 (or (>= fill-column (current-column)) (backward-char 1))
|
|
|
734 ;; end of patch
|
|
|
735 (if (eobp)
|
|
|
736 nil
|
|
|
737 ;; patched by S.Tomura 87-Jun-2
|
|
|
738 ;;(skip-chars-backward "^ \n")
|
|
|
739 ;;(if (if (zerop prefixcol) (bolp) (>= prefixcol (current-column)))
|
|
|
740 ;; (skip-chars-forward "^ \n")
|
|
|
741 ;; (forward-char -1)))
|
|
|
742 ;; $B86B'$H$7$F(Bfill-column$B$h$j:8B&$KJ,3dE@$rC5$9!#(B
|
|
|
743 ;; Find a point to break lines
|
|
|
744 (skip-chars-backward " \t") ;; skip SPC and TAB
|
|
|
745 (if (or (<= 128 (preceding-char))
|
|
|
746 (<= 128 (following-char)) ;; 88-Aug-25
|
|
|
747 (= (following-char) ? )
|
|
|
748 (= (following-char) ?\t))
|
|
|
749 (kinsoku-shori)
|
|
|
750 (if(re-search-backward "[ \t\n]\\|\\z" ;; 89-Nov-17
|
|
|
751 (point-min) (point-min))
|
|
|
752 (forward-char 1))
|
|
|
753 (skip-chars-backward " \t")
|
|
|
754 (kinsoku-shori))
|
|
|
755 ;; prifixcol$B$h$j1&B&$KJ,3dE@$rC5$9!#(B
|
|
|
756 ;; $B$3$N>l9g$OJ,3dE@$O(Bfill-column$B$h$j1&B&$K$J$k!#(B
|
|
|
757 (if (>= prefixcol (current-column))
|
|
|
758 (progn
|
|
|
759 (move-to-column prefixcol)
|
|
|
760 (if (re-search-forward "[ \t]\\|\\z" ;; 89-Nov-17
|
|
|
761 (point-max) (point-max))
|
|
|
762 (backward-char 1))
|
|
|
763 (skip-chars-backward " \t")
|
|
|
764 (kinsoku-shori)
|
|
|
765 ;; $B$=$l$bBLL\$J$iJ,3d$rD|$a$k!#(B
|
|
|
766 (if (>= prefixcol (current-column)) (goto-char (point-max))))))
|
|
|
767 ;; end of patch S.Tomura
|
|
|
768 ;; patch by S. Tomura 88-Jun-20
|
|
|
769 ;;(delete-horizontal-space)
|
|
|
770 ;;$B!cJ,3d!d(B
|
|
|
771 ;; $BA43Q(B | SPC + SPC$B!v(B --> $BA43Q(B + SPC + CR
|
|
|
772 ;; | SPC + SPC* + $BA43Q(B --> SPC + CR + $BA43Q(B
|
|
|
773 ;; . | SPC + SPC + --> . + CR
|
|
|
774 ;; . | SPC + nonSPC --> . + SPC + CR + nonSPC
|
|
|
775 ;;
|
|
|
776 ;; . | $BH>3Q(B --> $BJ,3d$7$J$$(B
|
|
|
777 ;; . | $BA43Q(B --> $BJ,3d$7$J$$(B
|
|
|
778 (if (not kanji-flag) (delete-horizontal-space)
|
|
|
779 (let ((start) (end))
|
|
|
780 (skip-chars-backward " \t")
|
|
|
781 (setq start (point))
|
|
|
782 (skip-chars-forward " \t")
|
|
|
783 (setq end (point))
|
|
|
784 (delete-region start end)
|
|
|
785 (if (and (not
|
|
|
786 (and (save-excursion
|
|
|
787 (skip-chars-backward " ])\"'")
|
|
|
788 (memq (preceding-char) '(?. ?? ?!)))
|
|
|
789 (= end (+ start 2))))
|
|
|
790 (or (and (or (<= 128 (preceding-char))
|
|
|
791 (<= 128 (following-char)))
|
|
|
792 (< start end)
|
|
|
793 (not (eobp)))
|
|
|
794 (and (memq (preceding-char) '(?. ?? ?!))
|
|
|
795 (= (1+ start) end)
|
|
|
796 (not (eobp)))))
|
|
|
797 (insert ? ))))
|
|
|
798 ;; end of patch
|
|
|
799 (if (equal (preceding-char) ?\\)
|
|
|
800 (insert ? ))
|
|
|
801 (insert ?\n)
|
|
|
802 (LaTeX-indent-line)
|
|
|
803 (setq prefixcol (current-column))
|
|
|
804 (and justify-flag (not (eobp))
|
|
|
805 (progn
|
|
|
806 (forward-line -1)
|
|
|
807 (justify-current-line)
|
|
|
808 (forward-line 1)))
|
|
|
809 )
|
|
|
810 (goto-char (point-max))
|
|
|
811 (delete-horizontal-space)))))
|
|
|
812
|
|
|
813 ;;; Support for various self-insert-command
|
|
|
814
|
|
|
815 (cond ((fboundp 'can-n-egg-self-insert-command)
|
|
|
816 (fset 'tex-jp-self-insert-command 'can-n-egg-self-insert-command))
|
|
|
817 ((fboundp 'egg-self-insert-command)
|
|
|
818 (fset 'tex-jp-self-insert-command 'egg-self-insert-command))
|
|
|
819 ((fboundp 'canna-self-insert-command)
|
|
|
820 (fset 'tex-jp-self-insert-command 'canna-self-insert-command))
|
|
|
821 (t
|
|
|
822 (fset 'tex-jp-self-insert-command 'self-insert-command)))
|
|
|
823
|
|
|
824 (defun TeX-insert-punctuation ()
|
|
|
825 "Insert point or comma, cleaning up preceding space."
|
|
|
826 (interactive)
|
|
|
827 (if (TeX-looking-at-backward "\\\\/\\(}+\\)" 50)
|
|
|
828 (replace-match "\\1" t))
|
|
|
829 (call-interactively 'tex-jp-self-insert-command))
|
|
|
830
|
|
|
831 ;;; Error Messages
|
|
|
832
|
|
|
833 (if japanese-TeX-error-messages
|
|
|
834 (setq TeX-error-description-list
|
|
|
835 '(("Bad \\\\line or \\\\vector argument.*" .
|
|
|
836 "$B@~$N79$-$r;XDj$9$k!$(B\\line$B$^$?$O(B\\vector$B$N:G=i$N0z?t$,IT@5$G$9!%(B")
|
|
|
837
|
|
|
838 ("Bad math environment delimiter.*" .
|
|
|
839 "$B?t<0%b!<%ICf$G?t<0%b!<%I3+;O%3%^%s%I(B\\[$B$^$?$O(B\\($B!$$^$?$O!$?t<0%b!<%I30$G(B
|
|
|
840 $B?t<0%b!<%I=*N;%3%^%s%I(B\\[$B$^$?$O(B\\($B$r(BTeX$B$,8+$D$1$^$7$?!%$3$NLdBj$O!$?t<0%b!<(B
|
|
|
841 $B%I$N%G%j%_%?$,%^%C%A$7$F$$$J$+$C$?$j!$3g8L$N%P%i%s%9$,$H$l$F$$$J$+$C$?$j$9(B
|
|
|
842 $B$k$?$a$K@8$8$^$9!%(B")
|
|
|
843
|
|
|
844 ("Bad use of \\\\\\\\.*" .
|
|
|
845 "\\\\$B%3%^%s%I$,%Q%i%0%i%UCf$K$"$j$^$7$?!%$3$N;H$$$+$?$OL50UL#$G$9!%(B
|
|
|
846 $B$3$N%(%i!<%a%C%;!<%8$O(B\\\\$B$,(Bcentering$B4D6-$d(Bflushing$B4D6-$G;H$o$l$?(B
|
|
|
847 $B;~!$$"$k$$$O(Bcentering/flushing$B@k8@$,M-8z$J$H$3$m$G;H$o$l$?;~$K@8$8$^$9!%(B")
|
|
|
848
|
|
|
849 ("\\\\begin{[^ ]*} ended by \\\\end{[^ ]*}." .
|
|
|
850 "$BBP1~$9$k(B\\begin$BL?Na$N$J$$(B\\end$BL?Na$r(BLaTeX$B$,8+$D$1$^$7$?!%(B\\end$BL?Na$N4D(B
|
|
|
851 $B6-L>$r4V0c$($?$+!$M>J,$J(B\\begin$BL?Na$,$"$k$+!$(B\\end$BL?Na$r$o$9$l$?$+$N$$$:(B
|
|
|
852 $B$l$+$G$7$g$&!%(B")
|
|
|
853
|
|
|
854 ("Can be used only in preamble." .
|
|
|
855 "$B%W%j%"%s%V%k$G$7$+;H$($J$$(B\\documentstyle$B!&(B\\nofiles$B!&(B\\includeonly
|
|
|
856 \\makeindex$B!&(B\\makeglossary$B$N$&$A$N$$$:$l$+$,(B\\begin{document}$B$h$j$b(B
|
|
|
857 $B8e$G;H$o$l$F$$$k$N$r(BLaTeX$B$,8!=P$7$^$7$?!%$3$N%(%i!<$O(B\\begin{document}
|
|
|
858 $B$,M>J,$K$"$C$?;~$K$b@8$8$^$9!%(B")
|
|
|
859
|
|
|
860 ("Command name [^ ]* already used.*" .
|
|
|
861 "$B$9$G$KDj5A$5$l$F$$$kL?NaL>$^$?$O4D6-L>$KBP$7$F(B\\newcommand$B!&(B
|
|
|
862 \\newenvironment$B!&(B\\newlength$B!&(B\\newsavebox$B!&(B\\newtheorem$B$N$&$A$N$$$:(B
|
|
|
863 $B$l$+$r<B9T$7$h$&$H$7$F$$$^$9(B($B$"$k4D6-$rDj5A$9$k$HF1$8L>A0$NL?Na$,<+F0(B
|
|
|
864 $BE*$KDj5A$5$l$k$N$G!$4{$KB8:_$9$k4D6-$HF1L>$NL?Na$ODj5A$G$-$^$;$s(B)$B!%?7(B
|
|
|
865 $B$7$$L>A0$r9M$($k$+!$(B\\newcommand$B$+(B\\newenvironment$B$N>l9g$J$iBP1~$9$k(B
|
|
|
866 \\renew...$BL?Na$r;H$o$J$1$l$P$J$j$^$;$s!%(B")
|
|
|
867
|
|
|
868 ("Counter too large." .
|
|
|
869 "$BJ8;z$G=g=xIU$1$5$l$?$b$N!$$?$V$sHV9fIU$1$5$l$?%j%9%H4D6-$N%i%Y%k$,!$(B
|
|
|
870 26$B$h$j$bBg$-$$HV9f$r<u$1<h$j$^$7$?!%Hs>o$KD9$$%j%9%H$r;H$C$F$$$k$+!$(B
|
|
|
871 $B%+%&%s%?$r:F@_Dj$7$F$7$^$C$?$+$N$$$:$l$+$G$7$g$&!%(B")
|
|
|
872
|
|
|
873 ("Environment [^ ]* undefined." .
|
|
|
874 "$BDj5A$5$l$F$$$J$$4D6-$KBP$9$k(B\\begin$BL?Na$r(BLaTeX$B$,8+$D$1$^$7$?!%$*$=$i$/(B
|
|
|
875 $B4D6-L>$r4V0c$($?$N$G$7$g$&!%(B")
|
|
|
876
|
|
|
877 ("Float(s) lost." .
|
|
|
878 "parbox$B$N$J$+$K(Bfigure$B4D6-!&(Btable$B4D6-$^$?$O(B\\marginpar$BL?Na$,$"$j$^$7$?(B
|
|
|
879 \($B$J$*!$(Bparbox$B$O(Bminipage$B4D6-$+(B\\parbox$BL?Na$K$h$C$F:n$i$l$k$+!$5SCm$d?^(B
|
|
|
880 $B$J$I$KBP$7$F(BLaTeX$B$,@8@.$9$k$b$N$G$9(B\)$B!%$3$l$O=PNO;~$N%(%i!<$J$N$G!$860x(B
|
|
|
881 $B$H$J$C$F$$$k4D6-$"$k$$$OL?Na$O!$(BLaTeX$B$,LdBj$rH/8+$7$?>l=j$h$j$b$@$$$V(B
|
|
|
882 $B$sA0$K$"$k2DG=@-$,$"$j$^$9!%=PNO$5$l$F$$$J$$?^!&I=!&K5Cm$J$I$,$$$/$D$+(B
|
|
|
883 $B$"$k$+$b$7$l$^$;$s$,!$$=$l$i$,860x$G$"$k$H$O8B$j$^$;$s!%(B")
|
|
|
884
|
|
|
885 ("Illegal character in array arg." .
|
|
|
886 "array$B4D6-$^$?$O(Btabular$B4D6-$N0z?t!$$^$?$O(B\\multicolumn$BL?Na$NBh(B2$B0z?t(B
|
|
|
887 $B$NCf$KIT@5$JJ8;z$,$"$j$^$7$?!%(B")
|
|
|
888
|
|
|
889 ("Missing \\\\begin{document}." .
|
|
|
890 "\\begin{document}$BL?Na$h$jA0$K(BLaTeX$B$,=PNO$r9T$J$C$F$7$^$$$^$7$?!%(B
|
|
|
891 \\begin{document}$BL?Na$rK:$l$?$+!$%W%j%"%s%V%k$K2?$+4V0c$$$,$"$k$N$G$7$g$&!%(B
|
|
|
892 $BBG$A4V0c$$$K$h$kJ8;z$d!$@k8@$N8m$j$K$h$k2DG=@-$b$"$j$^$9!%Nc$($P!$0z?t$r(B
|
|
|
893 $B0O$`3g8L$rH4$+$7$?$H$+!$L?NaL>$N(B\\$B$rK:$l$?>l9g$J$I$G$9!%(B")
|
|
|
894
|
|
|
895 ("Missing p-arg in array arg.*" .
|
|
|
896 "array$B4D6-!&(Btabular$B4D6-$N0z?t!$$"$k$$$O(B\\multicolumn$BL?Na$NBh(B2$B0z?t$NCf$K!$(B
|
|
|
897 $B3g8L$K0O$^$l$?I=8=$N$D$$$F$$$J$$(Bp$B$,$"$j$^$7$?!%(B")
|
|
|
898
|
|
|
899 ("Missing @-exp in array arg." .
|
|
|
900 "array$B4D6-!&(Btabular$B4D6-$N0z?t!$$"$k$$$O(B\\multicolumn$BL?Na$NBh(B2$B0z?t$NCf$K!$(B
|
|
|
901 @$BI=8=$N$D$$$F$$$J$$(B@$B$,$"$j$^$7$?!%(B")
|
|
|
902
|
|
|
903 ("No such counter." .
|
|
|
904 "\\setcounter$BL?Na$^$?$O(B\\addtocounter$BL?Na$G!$B8:_$7$J$$%+%&%s%?$,;XDj$5$l(B
|
|
|
905 $B$^$7$?!%$*$=$i$/$?$@$N%?%$%W%_%9$G$7$g$&!%$?$@$7!$%(%i!<$,(Baux$B%U%!%$%k$NCf(B
|
|
|
906 $B$G@8$8$?>l9g$O!$(B\\newcounter$BL?Na$r%W%j%"%s%V%k$N30$G;H$C$?$N$@$H;W$o$l$^$9!%(B")
|
|
|
907
|
|
|
908 ("Not in outer par mode." .
|
|
|
909 "figure$B4D6-!&(Btable$B4D6-$"$k$$$O(B\\marginpar$BL?Na$,?t<0%b!<%I$^$?$O(Bparbox$B$NCf(B
|
|
|
910 $B$G;H$o$l$^$7$?!%(B")
|
|
|
911
|
|
|
912 ("\\\\pushtabs and \\\\poptabs don't match." .
|
|
|
913 "\\pushtabs$B$HBP1~$7$J$$(B\\poptabs$B$,$_$D$+$C$?$+!$$^$?$O!$BP1~$9$k(B\\poptabs
|
|
|
914 $B$r$b$?$J$$(B\\pushtabs$B$,$"$k$N$K(B\\end{tabbing}$B$,8=$l$F$7$^$$$^$7$?!%(B")
|
|
|
915
|
|
|
916 ("Something's wrong--perhaps a missing \\\\item." .
|
|
|
917 "$B%j%9%H4D6-$NCf$K(B\\item$BL?Na$,$J$$$N$,:G$b$"$j$=$&$J%1!<%9$G$9!%(B
|
|
|
918 thebibliography$B4D6-$G0z?t$rK:$l$?>l9g$K$b@8$8$^$9!%(B")
|
|
|
919
|
|
|
920 ("Tab overflow." .
|
|
|
921 "\\=$B$,!$(BLaTeX$B$G5v$5$l$k%?%V%9%H%C%W$N:GBg?t$rD6$($F$$$^$9!%(B")
|
|
|
922
|
|
|
923 ("There's no line here to end." .
|
|
|
924 "\\newline$BL?Na$^$?$O(B\\\\$BL?Na$,%Q%i%0%i%U4V$K$"$j$^$9!%$3$N;H$$$+$?$O(B
|
|
|
925 $BL50UL#$G$9!%$b$76u9T$r$"$1$?$$$N$G$7$?$i!$(B\\vspace$B$r;H$C$F$/$@$5$$!%(B")
|
|
|
926
|
|
|
927 ("This may be a LaTeX bug." .
|
|
|
928 "$B$^$C$?$/$o$1$,$o$+$i$J$/$J$C$F$7$^$$$^$7$?!%$?$V$s$3$l0JA0$K8!=P$5$l$?(B
|
|
|
929 $B%(%i!<$N$;$$$@$H;W$o$l$^$9!%$7$+$7!$(BLaTeX$B<+BN$N%P%0$G$"$k2DG=@-$b$"$j$^$9!%(B
|
|
|
930 $B$b$7$3$N%(%i!<$,F~NO%U%!%$%k$KBP$9$k:G=i$N%(%i!<$G$"$j!$2?$b4V0c$$$,8+$D(B
|
|
|
931 $B$+$i$J$$>l9g$O!$$=$N%U%!%$%k$rJ]B8$7$F!$%m!<%+%k%,%$%I$K=q$+$l$F$$$k@UG$(B
|
|
|
932 $B<T$KO"Mm$7$F$/$@$5$$!%(B")
|
|
|
933
|
|
|
934 ("Too deeply nested." .
|
|
|
935 "$B%j%9%H4D6-$NF~$l;R$,?<$9$.$^$9!%2?CJ3,$NF~$l;R$,5v$5$l$k$+$O;H$C$F$$$k(B
|
|
|
936 $B%3%s%T%e!<%?$K0MB8$7$^$9$,!$>/$J$/$H$b(B4$BCJ3,$^$G$O5v$5$l$F$$$^$9(B($BIaDL$O(B
|
|
|
937 $B$=$l$G==J,$G$7$g$&(B)$B!%(B")
|
|
|
938
|
|
|
939 ("Too many unprocessed floats." .
|
|
|
940 "$B$3$N%(%i!<$O(B1$B%Z!<%8Cf$N(B\\marginpar$BL?Na$,B?$9$.$k$?$a$K@8$8$k>l9g$b$"(B
|
|
|
941 $B$j$^$9$,!$$b$C$H$"$j$=$&$J$N$O!$8B3&$rD6$($F?^$dI=$rJ]B8$7$h$&$H$7$?>l(B
|
|
|
942 $B9g$G$9!%D9$$J8=q$rAHHG$7$F$$$/$H$-!$(BLaTeX$B$O?^$dI=$r8D!9$KJ]B8$7!$%Z!<(B
|
|
|
943 $B%8$NJ,3d$r9T$J$&;~$K$=$l$i$rA^F~$7$^$9!%$3$N%(%i!<$O!$%Z!<%8$X$NJ,3d$,(B
|
|
|
944 $B9T$J$o$l$kA0$K!$$"$^$j$K$bB?$/$N(Bfigure$B4D6-$d(Btable$B4D6-$,8+$D$+$C$?>l9g(B
|
|
|
945 $B$K@8$8$^$9!%$3$NLdBj$O4D6-$N$&$A$N$$$/$D$+$rJ8=q$N=*$o$j$NJ}$K0\F0$9$l(B
|
|
|
946 $B$P2r7h$G$-$^$9!%$^$?!$$3$N%(%i!<$O(B``logjam''$B$K$h$C$F@8$8$k$3$H$b$"$j$^(B
|
|
|
947 $B$9!%(B``logjam''$B$H$O!$(BLaTeX$B$,=P8==g=xDL$j$K$7$+?^I=$r=PNO$G$-$J$$$;$$$G!$(B
|
|
|
948 $B$D$^$C$F$$$k8e$m$N?^I=$N$?$a$KA0$N?^I=$r=PNO$G$-$J$/$J$k$3$H$r$$$$$^$9!%(B
|
|
|
949 $B$3$N%8%c%`$N860x$O!$Bg$-$9$.$F(B1$B%Z!<%8$J$$$7$O;XDj$5$l$?NN0h$K<}$^$i$J(B
|
|
|
950 $B$$$h$&$J?^$dI=$G$"$k2DG=@-$,$"$j$^$9!%$3$l$O!$0z?t$K(Bp$B%*%W%7%g%s$,;XDj(B
|
|
|
951 $B$5$l$F$$$J$$$H5/$-$d$9$/$J$j$^$9!%(B")
|
|
|
952
|
|
|
953 ("Undefined tab position." .
|
|
|
954 "\\>$B!&(B\\+$B!&(B\\-$B$^$?$O(B\\<$BL?Na$G!$B8:_$7$J$$%?%V0LCV!$$9$J$o$A(B\\=$BL?Na$GDj(B
|
|
|
955 $B5A$5$l$F$$$J$$%?%V0LCV$r;XDj$7$h$&$H$7$F$$$^$9!%(B")
|
|
|
956
|
|
|
957 ("\\\\< in mid line." .
|
|
|
958 "\\<$BL?Na$,(Btabbing$B4D6-$N9T$NESCf$K8=$l$^$7$?!%$3$NL?Na$O9T$N@hF,$K$J$1$l$P(B
|
|
|
959 $B$J$j$^$;$s!%(B")
|
|
|
960
|
|
|
961 ("Counter too large." .
|
|
|
962 "$B5SCm$,J8;z$^$?$O5SCm5-9f$G=g=x$E$1$5$l$F$$$^$9$,!$J8;z$^$?$O5-9f$r;H$$(B
|
|
|
963 $B@Z$C$F$7$^$$$^$7$?!%$*$=$i$/(B\\thanks$BL?Na$N;H$$$9$.$G$9!%(B")
|
|
|
964
|
|
|
965 ("Double subscript." .
|
|
|
966 "$B?t<0Cf$N(B1$B$D$NNs$K(B2$B$D$N2<IU$-J8;z$,$D$$$F$$$^$9!%Nc$($P(Bx_{2}_{3}$B$N$h$&$K!%(B
|
|
|
967 $B$3$N$h$&$JI=8=$OL50UL#$G$9!%(B")
|
|
|
968
|
|
|
969 ("Double superscript." .
|
|
|
970 "$B?t<0Cf$N(B1$B$D$NNs$K(B2$B$D$N>eIU$-J8;z$,$D$$$F$$$^$9!%Nc$($P(Bx^{2}^{3}$B$N$h$&$K!%(B
|
|
|
971 $B$3$N$h$&$JI=8=$OL50UL#$G$9!%(B")
|
|
|
972
|
|
|
973 ("Extra alignment tab has been changed to \\\\cr." .
|
|
|
974 "array$B4D6-$^$?$O(Btabular$B4D6-$N(B1$BNsCf$K$"$k9`L\$,B?$9$.$^$9!%8@$$49$($k$H!$(B
|
|
|
975 $BNs$N=*$o$j$^$G$K$"$k(B&$B$N?t$,B?$9$.$^$9!%$*$=$i$/A0$NNs$N:G8e$K(B\\\\$B$r$D$1(B
|
|
|
976 $B$k$N$rK:$l$?$N$G$7$g$&!%(B")
|
|
|
977
|
|
|
978 ("Extra \\}, or forgotten \\$." .
|
|
|
979 "$B3g8L$^$?$O?t<0%b!<%I$N%G%j%_%?$,@5$7$/BP1~$7$F$$$^$;$s!%$*$=$i$/(B{$B!&(B\\[$B!&(B
|
|
|
980 \\($B$"$k$$$O(B$$B$N$&$A$N$$$:$l$+$r=q$-K:$l$?$N$G$7$g$&!%(B")
|
|
|
981
|
|
|
982 ("Font [^ ]* not loaded: Not enough room left." .
|
|
|
983 "$B$3$NJ8=q$O8B3&$h$j$bB?$/$N%U%)%s%H$r;H$C$F$$$^$9!%$b$7J8=q$NItJ,$4$H$K(B
|
|
|
984 $BJL!9$N%U%)%s%H$,;H$o$l$F$$$k$N$J$i!$J,3d$7$F=hM}$9$l$PLdBj$O2r7h$5$l$^$9!%(B")
|
|
|
985
|
|
|
986 ("I can't find file `.*'." .
|
|
|
987 "$BI,MW$J%U%!%$%k$,8+$D$+$j$^$;$s$G$7$?!%$b$78+$D$+$i$J$$%U%!%$%k$N3HD%;R(B
|
|
|
988 $B$,(Btex$B$N>l9g!$$"$J$?$,;XDj$7$?%U%!%$%k!$$9$J$o$A%a%$%s%U%!%$%k$^$?$O(B
|
|
|
989 \\input$BL?Na!&(B\\include$BL?Na$GA^F~$5$l$k%U%!%$%k$,8+$D$+$i$J$$$N$G$9!%(B
|
|
|
990 $B3HD%;R$,(Bsty$B$G$"$l$P!$B8:_$7$J$$J8=q%9%?%$%k$^$?$O%9%?%$%k%*%W%7%g%s$r(B
|
|
|
991 $B;XDj$7$h$&$H$7$F$$$^$9!%(B")
|
|
|
992
|
|
|
993 ("Illegal parameter number in definition of .*" .
|
|
|
994 "$B$3$l$O$*$=$i$/!$(B\\newcommand$B!&(B\\renewcommand$B!&(B\\newenvironment$B$^$?$O(B
|
|
|
995 \\renewenvironment$BL?Na$N$J$+$G(B#$B$,@5$7$/;H$o$l$J$+$C$?$?$a$K@8$8$?%(%i!<(B
|
|
|
996 $B$G$9!%(B\\#$BL?Na$H$7$F;H$o$l$k>l9g$r=|$1$P!$(B#$B$H$$$&J8;z$O!$Nc$($P(B2$BHVL\$N(B
|
|
|
997 $B0z?t$r;XDj$9$k(B#2$B$N$h$&$K!$0z?t%Q%i%a!<%?$H$7$F$7$+;H$($^$;$s!%$^$?!$(B
|
|
|
998 $B$3$N%(%i!<$O!$>e$K$"$2$?(B4$B$D$N%3%^%s%I$,$*8_$$$KF~$l;R$K$J$C$F$$$k>l9g(B
|
|
|
999 $B$d!$(B\\newenvironment$BL?Na!&(B\\renewenvironment$BL?Na$G(B#2$B$N$h$&$J%Q%i%a!<%?(B
|
|
|
1000 $B$,:G8e$N0z?t$NCf$G;H$o$l$F$$$k>l9g$K$b@8$8$^$9!%(B")
|
|
|
1001
|
|
|
1002 ("Illegal unit of measure ([^ ]* inserted)." .
|
|
|
1003 "$B$b$7(B
|
|
|
1004 ! Missing number, treated as zero.
|
|
|
1005 $B$H$$$&%(%i!<$,5/$-$?D>8e$G$"$l$P!$$3$N%(%i!<$N860x$b$=$l$HF1$8$G$9!%(B
|
|
|
1006 $B$=$&$G$J$$>l9g$O!$(BLaTeX$B$,0z?t$H$7$F(Blength$B$r4|BT$7$F$$$k$N$K(Bnumber$B$,(B
|
|
|
1007 $B8=$l$?$3$H$r0UL#$7$F$$$^$9!%$3$N%(%i!<$N:G$b$"$j$,$A$J860x$OD9$5(B0$B$r(B
|
|
|
1008 $BI=$o$9(B0in$B$N$h$&$JI=8=$NBe$o$j$K(B0$B$H$+$$$F$7$^$&$3$H$K$"$j$^$9!%$?$@$7!$(B
|
|
|
1009 $BL?Na$N0z?t$r=q$-K:$l$?>l9g$K$b$3$N%(%i!<$,@8$8$k$3$H$,$"$j$^$9!%(B")
|
|
|
1010
|
|
|
1011 ("Misplaced alignment tab character \\&." .
|
|
|
1012 "array$B$^$?$O(Btabular$B4D6-$G$N9`L\6h@Z$j$K$N$_;H$o$l$k$Y$-J8;z(B&$B$,IaDL$NJ8(B
|
|
|
1013 $B$NCf$K$"$j$^$7$?!%$?$V$s(B\\&$B$HF~NO$7$?$+$C$?$N$G$7$g$&!%(B")
|
|
|
1014
|
|
|
1015 ("Missing control sequence inserted." .
|
|
|
1016 "$B$3$N%(%i!<$O!$$*$=$i$/L?NaL>$G$J$$$b$N$r(B\\newcommand$B!&(B\\renewcommand$B!&(B
|
|
|
1017 \\newlength$B$^$?$O(B\\newsavebox$B$NBh(B1$B0z?t$H$7$F;H$C$?$?$a$K@8$8$?$N$G$7$g$&!%(B")
|
|
|
1018
|
|
|
1019 ("Missing number, treated as zero." .
|
|
|
1020 "$B$3$N%(%i!<$O$?$$$F$$!$0z?t$H$7$F(Bnumber$B$^$?$O(Blength$B$rI,MW$H$7$F$$$kL?Na$K(B
|
|
|
1021 $BBP$7$F0z?t$,M?$($i$l$J$+$C$?$?$a$K@8$8$^$9!%0z?t$r=q$-K:$l$?$N$+!$%F%-%9%H(B
|
|
|
1022 $B$NCf$NBg3g8L(B([])$B$,%*%W%7%g%s0z?t$N;XDj$H4V0c$($i$l$F$7$^$C$?$+$N$I$A$i$+$G(B
|
|
|
1023 $B$7$g$&!%$^$?!$?t$r@8@.$9$k(B\\value$B$N$h$&$JL?Na$d(Blength$BL?Na$NA0$K(B\\protect$B$r(B
|
|
|
1024 $BCV$$$?>l9g$K$b$3$N%(%i!<$O@8$8$^$9!%(B")
|
|
|
1025
|
|
|
1026 ("Missing [{}] inserted." .
|
|
|
1027 "TeX$B$O4{$K$o$1$,$o$+$i$J$/$J$C$F$$$^$9!%%(%i!<%a%C%;!<%8$K$h$C$F<($5$l$F(B
|
|
|
1028 $B$$$k>l=j$O$?$V$sF~NO$K4V0c$$$,$"$C$?$H$3$m$h$j$b8e$m$K$J$C$F$7$^$C$F$$$k(B
|
|
|
1029 $B$G$7$g$&!%(B")
|
|
|
1030
|
|
|
1031 ("Missing \\$ inserted." .
|
|
|
1032 "$B$*$=$i$/!$?t<0%b!<%ICf$G$7$+;H$($J$$L?Na$r(BTeX$B$,?t<0%b!<%I30$G8!=P$7$?(B
|
|
|
1033 $B$N$@$H;W$o$l$^$9!%FC$K5-=R$5$l$F$$$J$$8B$j!$(BLaTeX Book(Lamport$BCx(B,$BLu=q(B
|
|
|
1034 $B$O%"%9%-!<=PHG(B)$B$N(B3.3$B@a$K$"$kE:;z!&J,?t!&?t3X5-9f$J$I$N%3%^%s%I$O$9$Y$F(B
|
|
|
1035 $B?t<0%b!<%I$G$7$+;H$($J$$$N$@$H$$$&$3$H$KCm0U$7$F$/$@$5$$!%$?$H$(L?Na$,(B
|
|
|
1036 $B?t<04D6-$NCf$K$"$C$?$H$7$F$b!$(Bbox$B$r@8@.$9$kL?Na$N0z?t$r=hM}$7$O$8$a$?(B
|
|
|
1037 $B;~E@$G$O!$(BTeX$B$O$^$@?t<0%b!<%I$KF~$C$F$$$J$$$N$G$9!%$^$?!$$3$N%(%i!<$O!$(B
|
|
|
1038 $B?t<0%b!<%ICf$G(BTeX$B$,6u9T$r8!=P$7$?>l9g$K$b@8$8$^$9!%(B")
|
|
|
1039
|
|
|
1040 ("Not a letter." .
|
|
|
1041 "\\hyphenation$BL?Na$N0z?t$NCf$K$J$K$+@5$7$/$J$$$b$N$,$"$j$^$9!%(B")
|
|
|
1042
|
|
|
1043 ("Paragraph ended before [^ ]* was complete." .
|
|
|
1044 "$BL?Na$N0z?t$NCf$KIT@5$J6u9T$,F~$C$F$7$^$C$F$$$^$9!%$*$=$i$/0z?t$N=*$o$j(B
|
|
|
1045 $B$KJD$83g8L$r$D$1$k$N$rK:$l$?$N$G$7$g$&!%(B")
|
|
|
1046
|
|
|
1047 ("\\\\[^ ]*font [^ ]* is undefined .*" .
|
|
|
1048 "$B$3$N%(%i!<$O$"$^$j0lHLE*$G$J$$%U%)%s%H$,?t<0%b!<%I$G;H$o$l$?;~$K@8$8(B
|
|
|
1049 $B$^$9!%Nc$($P!$5SCm$NCf$N?t<0$G(B\\sc$BL?Na$,;H$o$l$k$H!$(Bfootnotesize$B$N(B
|
|
|
1050 small caps$B%U%)%s%H$,8F$S$@$5$l$k$3$H$K$J$j$^$9!%$3$NLdBj$O(B\\load$BL?Na$r(B
|
|
|
1051 $B;H$($P2r7h$G$-$^$9!%(B")
|
|
|
1052
|
|
|
1053 ("Font .* not found." .
|
|
|
1054 "$BL$CN$N(Bfamily/series/shape/size$B$NAH$_9g$o$;$N%U%)%s%H$,;XDj$5$l$^$7$?!%(B
|
|
|
1055 $B$3$N%(%i!<$,5/$-$k%1!<%9$O(B2$B$D9M$($i$l$^$9!%(B
|
|
|
1056 1) \\size$B%^%/%m$G;H$($J$$%5%$%:$rA*Br$7$h$&$H$7$?!%(B
|
|
|
1057 2) $B$=$&$G$J$1$l$P!$4IM}<T$N$H$3$m$K9T$C$F!$%U%)%s%HA*Br%F!<%V%k$,(B
|
|
|
1058 $BIe$C$F$$$k$HJ86g$r$D$1$F$d$j$^$7$g$&(B!")
|
|
|
1059
|
|
|
1060 ("TeX capacity exceeded, sorry .*" .
|
|
|
1061 "TeX$B$,%a%b%j$r;H$$$-$C$F$7$^$$!$<B9T$rCfCG$7$^$7$?!%$7$+$7!$92$F$J$$$G(B
|
|
|
1062 $B$/$@$5$$!%$3$N%(%i!<$,@8$8$?860x$O!$$?$V$s!$(BTeX$B$K$"$J$?$NJ8=q$r=hM}$G(B
|
|
|
1063 $B$-$k$@$1$NG=NO$,$J$$$+$i$G$O$"$j$^$;$s!%(BTeX$B$K%a%b%j$r;H$$$-$i$;$?860x(B
|
|
|
1064 $B$O!$$*$=$i$/F~NO$7$?%U%!%$%k$NA0$NJ}$G@8$8$?%(%i!<$G$9!%$"$J$?$,K\Ev$K(B
|
|
|
1065 TeX$B$NMFNL$rD6$($?$3$H$r$7$h$&$H$7$?$N$+$I$&$+!$$=$7$F$=$N>l9g$I$&$9$l(B
|
|
|
1066 $B$P$$$$$N$+$rH=CG$9$kJ}K!$r0J2<$K@bL@$7$^$9!%$b$7LdBj$,F~NO%U%!%$%kCf$N(B
|
|
|
1067 $B%(%i!<$K$"$k>l9g$O!$8D!9$N%(%i!<$r2r7h$7$F$$$/J}K!$r$H$k$N$,$h$$$G$7$g(B
|
|
|
1068 $B$&!%(BLaTeX$B$,C;$$%U%!%$%k$G%a%b%j$r;H$$$-$k$3$H$O$a$C$?$K$"$j$^$;$s$+$i!$(B
|
|
|
1069 $B%(%i!<$N5/$-$?0LCV$h$jA0$K=hM}$7$?%Z!<%8$,?t%Z!<%8$7$+$J$1$l$P!$$^$:4V(B
|
|
|
1070 $B0c$$$J$/F~NO%U%!%$%k$KLdBj$,$"$k$O$:$G$9!%(B
|
|
|
1071
|
|
|
1072 $B%(%i!<%a%C%;!<%8$N:G8e$K!$(BTeX$B$,;H$$$-$C$F$7$^$C$?%a%b%j$N<oN`$,<($5$l(B
|
|
|
1073 $B$F$$$^$9!%$=$l$i$N$&$A0lHLE*$J$b$N$K$D$$$F!$9M$($i$l$k860x$r0J2<$K5s$2(B
|
|
|
1074 $B$^$9!%(B
|
|
|
1075
|
|
|
1076 buffer size
|
|
|
1077 ===========
|
|
|
1078 $B>O@a!&(B\\caption$B!&(B\\addcontentsline$B$"$k$$$O(B\\addtocontents$BL?Na$N0z?t$H(B
|
|
|
1079 $B$7$FM?$($?%F%-%9%H$,D9$9$.$k>l9g$K@8$8$k$3$H$,$"$j$^$9!%$3$N%(%i!<$O(B
|
|
|
1080 $B$?$$$F$$(B\\end{document}$B$r=hM}$7$F$$$k;~$K@8$8$^$9$,!$(B\\tableofcontents$B!&(B
|
|
|
1081 \\listoffigures$B$"$k$$$O(B\\listoftables$BL?Na$r<B9T$7$F$$$k>l9g$K$b5/$-$k(B
|
|
|
1082 $B$3$H$,$"$j$^$9!%$3$NLdBj$r2r7h$9$k$K$O!$$b$C$HC;$$%F%-%9%H$r%*%W%7%g%s(B
|
|
|
1083 $B0z?t$H$7$FM?$($F$/$@$5$$!%L\<!$d?^I=0lMw$r:n@.$7$F$b!$8+=P$7$,D9$9$.$k(B
|
|
|
1084 $B$HFI$_$K$/$/$J$k$O$:$G$9!%(B
|
|
|
1085
|
|
|
1086 exception dictionary
|
|
|
1087 ====================
|
|
|
1088 TeX$B$,;}$C$F$$$kNN0h0J>e$K%O%$%U%M!<%7%g%s>pJs$rM?$($h$&$H$7$F$$$^$9!%(B
|
|
|
1089 $B$"$^$j;H$o$J$$C18l$N(B\\hyphenation$BL?Na$r<h$j=|$$$F!$Be$o$j$K(B\\-$BL?Na$r;H$C(B
|
|
|
1090 $B$F$/$@$5$$!%(B
|
|
|
1091
|
|
|
1092 hash size
|
|
|
1093 =========
|
|
|
1094 $BL?NaL>$NDj5A$^$?$OAj8_;2>H%i%Y%k$NDj5A$,B?$9$.$^$9!%(B
|
|
|
1095
|
|
|
1096 input stack size
|
|
|
1097 ================
|
|
|
1098 $B$3$N%(%i!<$O$*$=$i$/L?NaDj5ACf$N8m$j$K$h$k$b$N$G$9!%Nc$($P!$<!$NL?Na$O(B
|
|
|
1099 $B:F5"E*Dj5A$H$J$C$F$*$j!$<+J,<+?H$r;H$C$F(B\\gnu$B$rDj5A$7$F$$$^$9!%(B
|
|
|
1100
|
|
|
1101 \\newcommand{\\gnu}{a \\gnu} % $B$3$l$O$@$a(B
|
|
|
1102
|
|
|
1103 $B$3$N(B\\gnu$BL?Na$r8+$D$1$k$H(BTeX$B$O(B\\gnu$B$,2?$r$&$_$@$9$N$+$r7hDj$7$h$&$H$7(B
|
|
|
1104 $B$F$=$NKvHx$r$$$D$^$G$bDI$$$D$E$1!$$d$,$F(B``input stack''$B$r;H$$$-$C$F$7(B
|
|
|
1105 $B$^$$$^$9!%(B
|
|
|
1106
|
|
|
1107 main memory size
|
|
|
1108 ================
|
|
|
1109 $B$3$l$O!$(BTeX$B$,C;$$%U%!%$%k$r=hM}$7$F$$$k;~$K;H$$$-$k2DG=@-$N$"$k%a%b%j(B
|
|
|
1110 $B$N$R$H$D$G$9!%(Bmain memory$B$r;H$$$-$k$N$O<!$N(B3$B$D$N>l9g$N$$$:$l$+$G$9!%(B
|
|
|
1111 \(1\)$BHs>o$KD9$/J#;($JL?Na$r?tB?$/Dj5A$7$?!%(B(2)index$B$^$?$O(Bglossary$B$r:n$C(B
|
|
|
1112 $B$F$$$k$H$-!$(B1$B%Z!<%8Cf$K$"$^$j$K$bB?$/$N(B\\index$B$^$?$O(B\\glossary$BL?Na$,$"(B
|
|
|
1113 $B$k!%(B(3)$B@8@.$N$?$a$N>pJs$r(BTeX$B$,J];}$7$-$l$J$$$h$&$J!$$"$^$j$K$bJ#;($J%Z!<(B
|
|
|
1114 $B%8$r@8@.$7$h$&$H$7$?!%:G=i$N(B2$B$D$NLdBj$N2r7hJ}K!$OL@$i$+$G$9!%L?NaDj5A(B
|
|
|
1115 $B$N?t$"$k$$$O(B\\index$B!&(B\\glossary$BL?Na$N?t$r8:$i$9$3$H$G$9!%(B3$BHVL\$NLdBj$O(B
|
|
|
1116 $B$A$g$C$HLq2p$G$9!%$3$l$O!$Bg$-$J(Btabbin$B!&(Btabular$B!&(Barray$B!&(Bpicture$B4D6-$N(B
|
|
|
1117 $B$;$$$G@8$8$k$3$H$,$"$j$^$9!%=PNO0LCV$,7hDj$5$l$k$N$rBT$C$F$$$k?^$dI=$G(B
|
|
|
1118 TeX$B$N%a%b%j$,$$$C$Q$$$K$J$C$F$$$k$N$+$b$7$l$^$;$s!%K\Ev$K(BTeX$B$NMFNL$rD6(B
|
|
|
1119 $B$($F$7$^$C$?$N$+$I$&$+D4$Y$k$?$a$K$O!$%(%i!<$N5/$3$C$?>l=j$ND>A0$K(B
|
|
|
1120 \\clearpage$BL?Na$rF~$l$F$b$&0lEY%3%s%Q%$%k$r<B9T$7$F$_$F$/$@$5$$!%$b$7(B
|
|
|
1121 $B$=$l$G$b%a%b%j$,B-$j$J$/$J$k$h$&$J$i!$$J$s$i$+$N<jCJ$r9V$8$kI,MW$,$"$j(B
|
|
|
1122 $B$^$9!%(BTeX$B$,%Z!<%8$r@ZCG$9$k$+$I$&$+7hDj$9$k$?$a$K$OCJMnA4BN$r=hM}$7$J(B
|
|
|
1123 $B$1$l$P$J$i$J$$$H$$$&$3$H$r;W$$$@$7$F$/$@$5$$!%CJMn$NESCf$K(B\\newpage$BL?(B
|
|
|
1124 $BNa$rF~$l$l$P!$CJMn$N;D$j$r=hM}$9$kA0$K:#$N%Z!<%8$r(BTeX$B$K=PNO$5$;$k$3$H(B
|
|
|
1125 $B$GM>M5$,$G$-$k$+$b$7$l$^$;$s(B(\\pagebreak$BL?Na$G$O$@$a$G$9(B)$B!%$b$7?^$dI=(B
|
|
|
1126 $B$,N/$^$C$F$$$k$3$H$,LdBj$J$N$J$i$P!$?^I=$r$b$C$H8e$m$NJ}$K0\F0$9$k$H$+!$(B
|
|
|
1127 $B$"$k$$$O$b$C$HA0$N;~E@$G=PNO$5$l$k$h$&$K$9$l$P2sHr$G$-$^$9!%$b$7$^$@J8(B
|
|
|
1128 $B=q$r:n@.$7$F$$$kESCf$J$i!$$H$j$"$($:(B\\clearpage$BL?Na$rF~$l$F$*$$$F!$:G(B
|
|
|
1129 $B=*HG$r:n$k;~$^$G$3$NLdBj$OC*>e$2$7$F$*$-$^$7$g$&!%F~NO%U%!%$%k$,JQ$o$k(B
|
|
|
1130 $B$HLdBj$,2r>C$5$l$k>l9g$b$"$k$N$G$9!%(B
|
|
|
1131
|
|
|
1132 pool size
|
|
|
1133 =========
|
|
|
1134 $BAj8_;2>H$N(B\\label$B$,B?$9$.$k$+!$L?Na$NDj5A$,B?$9$.$k$+$N$I$A$i$+$G$9!%(B
|
|
|
1135 $B@53N$K$$$($P!$Dj5A$7$?%i%Y%kL>$*$h$SL?NaL>$K;H$C$?J8;z?t$,B?$9$.$k$H$$(B
|
|
|
1136 $B$&$3$H$G$9!%$G$9$+$i!$$b$C$HC;$$L>A0$r;H$($P$3$NLdBj$O2r7h$7$^$9!%$?$@(B
|
|
|
1137 $B$7!$$3$N%(%i!<$O!$(B\\setcounter$B$J$I$N%+%&%s%?L?Na$d(B\\newenvironment$B!&(B
|
|
|
1138 \\newtheorem$BL?Na$N0z?t$N=*$o$j$r<($91&3g8L$rK:$l$?>l9g$K$b@8$8$^$9!%(B
|
|
|
1139
|
|
|
1140 save size
|
|
|
1141 =========
|
|
|
1142 $B$3$N%(%i!<$O!$@k8@$NM-8zHO0O$dL?Na!&4D6-$,$"$^$j$K$b?<$/F~$l;R$K$J$C$F(B
|
|
|
1143 $B$$$k>l9g$K@8$8$^$9!%$?$H$($P!$(B\\multiput$BL?Na$N0z?t$K(Bpicture$B4D6-$,$"$j!$(B
|
|
|
1144 $B$=$N$J$+$K(B\\footnotesize$B@k8@$,$"$j!$$=$N@k8@$NM-8zHO0O$K(B\\multiput$BL?Na(B
|
|
|
1145 $B$,$"$C$F!$$=$N0z?t$K(B... $B$H$$$&$h$&$J>l9g$G$9!%(B")
|
|
|
1146
|
|
|
1147 ("Text line contains an invalid character." .
|
|
|
1148 "$BF~NOCf$KIT@5$JJ8;z$,4^$^$l$F$$$^$9!%%U%!%$%k:n@.$N8m$j$K$h$C$F%F%-%9%H(B
|
|
|
1149 $B%(%G%#%?$,$3$NJ8;z$rA^F~$7$F$7$^$C$?$N$G$7$g$&!%<B:]$K2?$,5/$-$?$N$+$O(B
|
|
|
1150 $B%(%G%#%?$K$h$j$^$9!%F~NO%U%!%$%k$rD4$Y$F$_$F!$;XE&$5$l$?J8;z$,8+$D$+$i(B
|
|
|
1151 $B$J$$>l9g$K$O%m!<%+%k%,%$%I$r8+$F$/$@$5$$!%(B")
|
|
|
1152
|
|
|
1153 ("Undefined control sequence." .
|
|
|
1154 "TeX$B$,L$Dj5A$NL?NaL>$rH/8+$7$^$7$?!%$*$=$i$/F~NO$N8m$j$G$7$g$&!%$b$7$3(B
|
|
|
1155 $B$N%(%i!<$,(BLaTeX$BL?Na$N=hM}Cf$K@8$8$?>l9g$O!$$=$NL?Na$O4V0c$C$?0LCV$KCV$+(B
|
|
|
1156 $B$l$F$$$^$9!%Nc$($P!$%j%9%H4D6-$NCf$G$J$$$N$K(B\\item$BL?Na$,;H$o$l$?>l9g$J$I(B
|
|
|
1157 $B$G$9!%$^$?!$(B\\documentstyle$BL?Na$,$J$$>l9g$K$b$3$N%(%i!<$,@8$8$^$9!%(B")
|
|
|
1158
|
|
|
1159 ("Use of [^ ]* doesn't match its definition." .
|
|
|
1160 "$B$*$=$i$/IA2h$N$?$a$NL?Na$@$H;W$o$l$^$9$,!$0z?t$N;H$$$+$?$,4V0c$C$F$$(B
|
|
|
1161 $B$^$9!%4V0c$C$F$$$k$N$,(B\\@array$BL?Na$N>l9g$O!$(Barray$B4D6-$+(Btabular$B4D6-$G$N(B
|
|
|
1162 @$BI=8=$N0z?t$K$J$K$+8m$j$,$"$k$N$G$7$g$&!%(Bfragile$B$JL?Na$,(B\\protect$B$5$l$F(B
|
|
|
1163 $B$$$J$$$N$+$b$7$l$^$;$s!%(B")
|
|
|
1164
|
|
|
1165 ("You can't use `macro parameter character \\#' in [^ ]* mode." .
|
|
|
1166 "$BFC<lJ8;z(B#$B$,IaDL$N%F%-%9%H$NCf$K8=$l$^$7$?!%$*$=$i$/(B\\#$B$H=q$-$?$+$C$?(B
|
|
|
1167 $B$N$G$7$g$&!%(B")
|
|
|
1168
|
|
|
1169 ("Overfull \\\\hbox .*" .
|
|
|
1170 "$B9TJ,3d$N$?$a$NE,@Z$J>l=j$,8+$D$+$i$J$+$C$?$N$G!$(B1$B9T$K<}$^$k$Y$-J,NL0J>e(B
|
|
|
1171 $B$N=PNO$,9T$J$o$l$F$7$^$$$^$7$?!%(B")
|
|
|
1172
|
|
|
1173 ("Overfull \\\\vbox .*" .
|
|
|
1174 "$B%Z!<%8J,3d$N$?$a$NE,@Z$J>l=j$,8+$D$+$i$J$+$C$?$N$G!$(B1$B%Z!<%8$K<}$^$k$Y$-(B
|
|
|
1175 $BJ,NL0J>e$N=PNO$,9T$J$o$l$F$7$^$$$^$7$?!%(B")
|
|
|
1176
|
|
|
1177 ("Underfull \\\\hbox .*" .
|
|
|
1178 "$BM>J,$J?bD>%9%Z!<%9$,$J$$$+$I$&$+=PNO$r3N$+$a$F$/$@$5$$!%$b$7$"$l$P!$$=(B
|
|
|
1179 $B$l$O(B\\\\$BL?Na$^$?$O(B\\newline$BL?Na$K4X78$9$kLdBj$N$?$a$K@8$8$?$b$N$G$9!%Nc(B
|
|
|
1180 $B$($P(B2$B$D$N(B\\\\$BL?Na$,B3$$$F$$$k>l9g$J$I$G$9!%$3$N7Y9p$O(Bsloppypar$B4D6-$d(B
|
|
|
1181 \\sloppy$B@k8@$N;HMQ!$$"$k$$$O(B\\linebreak$BL?Na$NA^F~$J$I$K$h$k>l9g$b$"$j$^$9!%(B")
|
|
|
1182
|
|
|
1183 ("Underfull \\\\vbox .*" .
|
|
|
1184 "$B%Z!<%8$rJ,3d$9$k$?$a$NE,@Z$J>l=j$,8+$D$1$i$l$:!$==J,$J%F%-%9%H$N$J$$(B
|
|
|
1185 $B%Z!<%8$,$G$-$F$7$^$$$^$7$?!%(B")
|
|
|
1186
|
|
|
1187 ;; New list items should be placed here
|
|
|
1188 ;;
|
|
|
1189 ;; ("err-regexp" . "context")
|
|
|
1190 ;;
|
|
|
1191 ;; the err-regexp item should match anything
|
|
|
1192
|
|
|
1193 (".*" . "$B$4$a$s$J$5$$!%3:Ev$9$k%X%k%W%a%C%;!<%8$,$"$j$^$;$s!%(B"))))
|
|
|
1194
|
|
|
1195 (provide 'tex-jp)
|
|
|
1196
|
|
|
1197 ;;; tex-jp.el ends here
|
