yatex: 7fb74de5a4e8 yatex.el

yatex

view yatex.el @ 62:7fb74de5a4e8

*** empty log message ***

author	yuuji
date	Wed, 03 Dec 1997 10:37:48 +0000
parents	9e08ed569d80
children	36a48185b95a

line source

1 ;;; -*- Emacs-Lisp -*-

2 ;;; Yet Another tex-mode for emacs.

3 ;;; yatex.el rev. 1.64

4 ;;; (c )1991-1997 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]

5 ;;; Last modified Tue Apr 8 05:07:31 1997 on crx

6 ;;; $Id$

8 ;; This program is free software; you can redistribute it and/or modify

9 ;; it under the terms of the GNU General Public License as published by

10 ;; the Free Software Foundation; either version 2, or (at your option)

11 ;; any later version.

13 ;; This program is distributed in the hope that it will be useful,

14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of

15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

16 ;; GNU General Public License for more details.

18 ;; You should have received a copy of the GNU General Public License

19 ;; along with this program; see the file COPYING. If not, write to

20 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.

22 (require 'comment)

23 (defconst YaTeX-revision-number "1.64"

24 "Revision number of running yatex.el"

25 )

27 ;---------- Local variables ----------

28 ;;;

29 ;; Initialize local variable for yatex-mode.

30 ;; Preserving user preferred definitions.

31 ;; ** Check all of these defvar-ed values **

32 ;; ** and setq other values more suitable **

33 ;; ** for your site, if needed. **

34 ;;;

35 (defvar YaTeX-prefix "\C-c"

36 "*Prefix key to call YaTeX functions.

37 You can select favorite prefix key by setq in your ~/.emacs."

38 )

39 (defvar YaTeX-environment-indent 1

40 "*Indentation depth at column width in LaTeX environments."

41 )

42 (defvar YaTeX-fill-prefix ""

43 "*fill-prefix used for auto-fill-mode.

44 The default value is null string."

45 )

46 (defvar YaTeX-fill-column 72

47 "*fill-column used for auto-fill-mode."

48 )

49 (defvar YaTeX-comment-prefix "%"

50 "TeX comment prefix."

51 )

52 (defvar YaTeX-current-position-register ?3

53 "*Position register to keep where the last completion was done.

54 All of YaTeX completing input store the current position into

55 the register YaTeX-current-position-register. So every time you

56 make a trip to any other part of text other than you are writing, you can

57 return to the editing paragraph by calling register-to-point with argument

58 YaTeX-current-position-register."

59 )

60 (defvar YaTeX-dos (eq system-type 'ms-dos))

61 (defvar YaTeX-emacs-19 (string= "19" (substring emacs-version 0 2)))

62 (defvar YaTeX-user-completion-table

63 (if YaTeX-dos "~/_yatexrc" "~/.yatexrc")

64 "*Default filename in which user completion table is saved."

65 )

66 ;;(defvar YaTeX-tmp-dic-unit 'main-file

67 ;; "*Default switching unit of temporary dictionary.

68 ;;There are two switching unit:

69 ;;'main-file : switch tmp-dic according to main-file directory.

70 ;;'directory : switch tmp-dic dir by dir."

71 ;;)

72 (defvar YaTeX-japan (or (boundp 'NEMACS) (boundp 'MULE))

73 "Whether yatex mode is running on Japanese environment or not."

74 )

75 (defvar tex-command (if YaTeX-japan "jlatex" "latex")

76 "*Default command for typesetting LaTeX text."

77 )

78 (defvar bibtex-command (if YaTeX-japan "jbibtex" "bibtex")

79 "*Default command of BibTeX."

80 )

81 (defvar dvi2-command ;previewer command for your site

82 (if YaTeX-dos "dviout -wait=0"

83 "xdvi -geo +0+0 -s 4")

84 "*Default previewer command including its option.

85 This default value is for X window system."

86 )

87 (defvar makeindex-command (if YaTeX-dos "makeind" "makeindex")

88 "*Default makeindex command."

89 )

90 (defvar dviprint-command-format

91 (if YaTeX-dos "dviprt %s %f%t"

92 "dvi2ps %f %t %s | lpr")

93 "*Command line string to print out current file.

94 Format string %s will be replaced by the filename. Do not forget to

95 specify the `from usage' and `to usage' with their option by format string

96 %f and %t.

97 See also documentation of dviprint-from-format and dviprint-to-format."

98 )

99 (defvar dviprint-from-format

100 (if YaTeX-dos "%b-" "-f %b")

101 "*`From' page format of dvi filter. %b will turn to beginning page number."

102 )

103 (defvar dviprint-to-format

104 (if YaTeX-dos "%e" "-t %e")

105 "*`To' page format of dvi filter. %e will turn to end page number."

106 )

107 (defvar YaTeX-default-document-style

108 (concat (if YaTeX-japan "j") "article")

109 "*Default LaTeX Documentstyle for YaTeX-typeset-region."

110 )

111 (defvar YaTeX-need-nonstop nil

112 "*T for adding `\\nonstopmode{}' to text before invoking latex command."

113 )

114 (defvar latex-warning-regexp "line.* [0-9]*"

115 "*Regular expression of line number of warning message by latex command."

116 )

117 (defvar latex-error-regexp "l\\.[1-9][0-9]*"

118 "*Regular expression of line number of latex error.

119 Perhaps your latex command stops at this error message with line number of

120 LaTeX source text."

121 )

122 (defvar latex-dos-emergency-message

123 "Emergency stop" ;<- for Micro tex, ASCII-pTeX 1.6

124 "Message pattern of emergency stop of typesetting.

125 Because Demacs (GNU Emacs on DOS) cannot have concurrent process, the

126 latex command which is stopping on a LaTeX error, is terminated by Demacs.

127 Many latex command on DOS display some messages when it is terminated by

128 other process, user or OS. Define to this variable a message string of your

129 latex command on DOS shown at abnormal termination.

130 Remember Demacs's call-process function is not oriented for interactive

131 process."

132 )

133 (defvar latex-message-kanji-code 2

134 "*Kanji coding system latex command types out.

135 1 = Shift JIS, 2 = JIS, 3 = EUC."

136 )

137 (defvar YaTeX-inhibit-prefix-letter nil

138 "*T for changing key definitions from [prefix] Letter to [prefix] C-Letter."

139 )

140 (defvar NTT-jTeX nil

141 "*Use NTT-jTeX for latex command."

142 )

143 (defvar YaTeX-item-regexp (concat (regexp-quote "\\") "\$sub\$*item")

144 "*Regular expression of item command."

145 )

146 (defvar YaTeX-nervous t

147 "*If you are nervous about maintenance of yatexrc, set this value to T.

148 And you will have the local dictionary."

149 )

150 (defvar YaTeX-sectioning-regexp

151 "\$part\\|chapter\\*?\\|\\(sub\$*\$section\\|paragraph\$\\*?\\)\\b"

152 "*LaTeX sectioning commands regexp."

153 )

154 (defvar YaTeX-paragraph-start

155 (concat "^[ \t]*%\\|^[ \t]*$\\|\\'\\|^\C-l\\|\\\\\\\\$\\|^[ \t]*\\\\\\("

156 YaTeX-sectioning-regexp ;sectioning commands

157 "\\|[A-z]*item\\|begin{\\|end{" ;special declaration

158 "\\|newpage\\b\\|vspace\\b"

159 "\\)")

160 "*Paragraph starting regexp of common LaTeX source. Use this value

161 for YaTeX-uncomment-paragraph."

162 )

163 (defvar YaTeX-paragraph-separate

164 (concat "^[ \t]*%\\|^[ \t]*$\\|^\C-l\\|\\\\\\\\$\\|^[ \t]*\\\\\\("

165 YaTeX-sectioning-regexp ;sectioning commands

166 "\\|begin{\\|end{" ;special declaration

167 "\\|newpage\\b\\|vspace\\b"

168 "\\)")

169 "*Paragraph delimiter regexp of common LaTeX source. Use this value

170 for YaTeX-uncomment-paragraph."

171 )

172 (defvar YaTeX-verbatim-environments

173 '("verbatim" "verbatim*")

174 "*Assume these environments of this variable disable LaTeX commands.")

175 (defvar YaTeX-verb-regexp "verb\\*?\\|path"

176 "*Regexp of verb family. Do not contain preceding \\\\ nor \$\$.")

177 (defvar YaTeX-fill-inhibit-environments

178 (append '("tabular" "tabular*" "array" "picture" "eqnarray" "eqnarray*"

179 "equation" "math" "displaymath")

180 YaTeX-verbatim-environments)

181 "*In these environments, YaTeX inhibits fill-paragraph from formatting.

182 Define those environments as a form of list."

183 )

184 (defvar YaTeX-itemizing-env-regexp

185 "itemize\\|enumerate\\|description\\|list"

186 "*Regexp of itemizing environments")

187 (defvar YaTeX-equation-env-regexp

188 "array\\*?\\|equation\\*?"

189 "*Regexp of environments for equations")

190 (defvar YaTeX-array-env-regexp

191 (concat

192 "array\\*?\\|eqnarray\\*?\\|tabbing\\|tabular\\*?\\|" ;LaTeX

193 "align\\*?\\|split\\*?\\|aligned\\*?\\|alignat\\*?\\|" ;AMS-LaTeX

194 "xalignat\\*?\\|xxalignat\\*?") ;AMS-LaTeX

195 "*Regexp of environments where `&' becomes field delimiter.")

196 (defvar YaTeX-uncomment-once t

197 "*T for removing all continuous commenting character(%).

198 Nil for removing only one commenting character at the beginning-of-line."

199 )

200 (defvar YaTeX-default-pop-window-height 10

201 "Default typesetting buffer height.

202 If integer, sets the window-height of typesetting buffer.

203 If string, sets the percentage of it.

204 If nil, use default pop-to-buffer."

205 )

206 (defvar YaTeX-close-paren-always t

207 "Close parenthesis always when YaTeX-modify-mode is nil."

208 )

209 (defvar YaTeX-no-begend-shortcut nil

210 "*T for disabling shortcut of begin-type completion, [prefix] b d, etc."

211 )

212 (defvar YaTeX-greek-by-maketitle-completion nil

213 "*T for greek letters completion by maketitle-type completion."

214 )

215 (defvar YaTeX-auto-math-mode t

216 "*T for changing YaTeX-math mode automatically.")

217 (defvar YaTeX-use-AMS-LaTeX nil

218 "*T for using AMS-LaTeX"

219 )

220 (defvar yatex-mode-hook nil

221 "*List of functions to be called at the end of yatex-mode initializations."

222 )

223 ;;-- Math mode values --

224

225 (defvar YaTeX-math-key-list-default

226 '((";" . YaTeX-math-sign-alist)

227 (":" . YaTeX-greek-key-alist))

228 "Default key sequence to invoke math-mode's image completion."

229 )

230 (defvar YaTeX-math-key-list-private nil

231 "*User defined alist, math-mode-prefix vs completion alist."

232 )

233 (defvar YaTeX-math-key-list

234 (append YaTeX-math-key-list-private YaTeX-math-key-list-default)

235 "Key sequence to invoke math-mode's image completion."

236 )

237 (defvar YaTeX-create-file-prefix-g nil

238 "*Non-nil creates new file when [prefix] g on \\include{foo}."

239 )

240 (defvar YaTeX-skip-default-reader nil

241 "Non-nil skips default argument reader of section-type completion."

242 )

243 (defvar YaTeX-simple-messages nil

244 "Non-nil makes minibuffer messages simpler."

245 )

246 (defvar YaTeX-addin-prefix "YaTeX:")

247 ;------------ Completion table ------------

248 ; Set tex-section-like command possible completion

249 (defvar section-table

250 '(("part") ("chapter") ("section") ("subsection")

251 ("subsubsection") ("paragraph") ("subparagraph")

252 ("author") ("thanks") ("documentstyle") ("pagestyle")

253 ("title") ("underline") ("label") ("makebox")

254 ("footnote") ("footnotetext")

255 ("hspace*") ("vspace*") ("bibliography") ("bibitem") ("cite")

256 ("input") ("include") ("includeonly") ("mbox") ("hbox") ("caption")

257 ("newlength") ("setlength" 2) ("addtolength" 2) ("settowidth" 2)

258 ("setcounter" 2) ("addtocounter" 2) ("stepcounter" 2)

259 ("newcommand" 2) ("renewcommand" 2)

260 ("setcounter" 2) ("newenvironment" 3) ("newtheorem" 2)

261 ("cline") ("framebox") ("savebox" 2) ("date") ("put") ("ref")

262 ("frac" 2) ("multicolumn" 3) ("shortstack")

263 )

264 "Default completion table for section-type completion."

265 )

266 (defvar user-section-table nil)

267 (defvar tmp-section-table nil)

268

269 ; Set tex-environment possible completion

270 (defvar env-table

271 '(("quote") ("quotation") ("center") ("verse") ("document")

272 ("verbatim") ("itemize") ("enumerate") ("description")

273 ("list") ("tabular") ("tabular*") ("table") ("tabbing") ("titlepage")

274 ("sloppypar") ("quotation") ("picture") ("displaymath")

275 ("eqnarray") ("figure") ("equation") ("abstract") ("array")

276 ("thebibliography") ("theindex") ("flushleft") ("flushright")

277 ("minipage")

278 )

279 "Default completion table for begin-type completion."

280 )

281 (defvar user-env-table nil)

282 (defvar tmp-env-table nil)

283

284 ; Set {\Large }-like completion

285 (defvar fontsize-table

286 '(("rm") ("em") ("bf") ("boldmath") ("it") ("sl") ("sf") ("sc") ("tt")

287 ("dg") ("dm")

288 ("tiny") ("scriptsize") ("footnotesize") ("small")("normalsize")

289 ("large") ("Large") ("LARGE") ("huge") ("Huge")

290 )

291 "Default completion table for large-type completion."

292 )

293 (defvar user-fontsize-table nil)

294 (defvar tmp-fontsize-table nil)

295

296 (defvar singlecmd-table

297 (append

298 '(("maketitle") ("sloppy") ("protect")

299 ("LaTeX") ("TeX") ("item") ("item[]") ("appendix") ("hline")

300 ;;("rightarrow") ("Rightarrow") ("leftarrow") ("Leftarrow")

301 ("pagebreak") ("newpage") ("clearpage") ("cleardoublepage")

302 ("footnotemark") ("verb") ("verb*")

303 ("linebreak") ("pagebreak") ("noindent") ("indent")

304 ("left") ("right")

305 )

306 (if YaTeX-greek-by-maketitle-completion

307 '(("alpha") ("beta") ("gamma") ("delta") ("epsilon")

308 ("varepsilon") ("zeta") ("eta") ("theta")("vartheta")

309 ("iota") ("kappa") ("lambda") ("mu") ("nu") ("xi") ("pi")

310 ("varpi") ("rho") ("varrho") ("sigma") ("varsigma") ("tau")

311 ("upsilon") ("phi") ("varphi") ("chi") ("psi") ("omega")

312 ("Gamma") ("Delta") ("Theta") ("Lambda")("Xi") ("Pi")

313 ("Sigma") ("Upsilon") ("Phi") ("Psi") ("Omega"))))

314 "Default completion table for maketitle-type completion."

315 )

316 (defvar user-singlecmd-table nil)

317 (defvar tmp-singlecmd-table nil)

318

319 ;---------- Key mode map ----------

320 ;;;

321 ;; Create new key map: YaTeX-mode-map

322 ;; Do not change this section.

323 ;;;

324 (defvar YaTeX-mode-map nil

325 "Keymap used in YaTeX mode"

326 )

327 (defvar YaTeX-typesetting-mode-map nil

328 "Keymap used in YaTeX typesetting buffer"

329 )

330 (defvar YaTeX-prefix-map nil

331 "Keymap used when YaTeX-prefix key pushed"

332 )

333 (defvar YaTeX-user-extensional-map (make-sparse-keymap)

334 "*Keymap used for the user's customization")

335 (defvar YaTeX-current-completion-type nil

336 "Has current completion type. This may be used in YaTeX addin functions."

337 )

338 (defvar YaTeX-modify-mode nil

339 "*Current editing mode.

340 When non-nil, each opening parentheses only opens,

341 nil enters both open/close parentheses when opening parentheses key pressed."

342 )

343 (defvar YaTeX-math-mode nil

344 "Holds whether current mode is math-mode."

345 )

346 ;---------- Define default key bindings on YaTeX mode map ----------

347 (defun YaTeX-define-key (key binding &optional map)

348 "Define key on YaTeX-prefix-map."

349 (if YaTeX-inhibit-prefix-letter

350 (let ((c (aref key 0)))

351 (cond

352 ((and (>= c ?a) (<= c ?z)) (aset key 0 (1+ (- c ?a))))

353 ((and (>= c ?A) (<= c ?Z) (numberp YaTeX-inhibit-prefix-letter))

354 (aset key 0 (1+ (- c ?A))))

355 (t nil))))

356 (define-key (or map YaTeX-prefix-map) key binding)

357 )

358 (defun YaTeX-define-begend-key-normal (key env &optional map)

359 "Define short cut YaTeX-make-begin-end key."

360 (YaTeX-define-key

361 key

362 (list 'lambda '(arg) '(interactive "P")

363 (list 'YaTeX-insert-begin-end env 'arg))

364 map)

365 )

366 (defun YaTeX-define-begend-region-key (key env &optional map)

367 "Define short cut YaTeX-make-begin-end-region key."

368 (YaTeX-define-key key (list 'lambda nil '(interactive)

369 (list 'YaTeX-insert-begin-end env t)) map)

370 )

371 (defun YaTeX-define-begend-key (key env &optional map)

372 "Define short cut key for begin type completion both for normal

373 and region mode. To customize YaTeX, user should use this function."

374 (YaTeX-define-begend-key-normal key env map)

375 (if YaTeX-inhibit-prefix-letter nil

376 (YaTeX-define-begend-region-key

377 (concat (upcase (substring key 0 1)) (substring key 1)) env))

378 )

379 ;;;

380 ;; Define key table

381 ;;;

382 (if YaTeX-mode-map

383 nil

384 (setq YaTeX-mode-map (make-sparse-keymap))

385 (setq YaTeX-prefix-map (make-sparse-keymap))

386 (define-key YaTeX-mode-map "\"" 'YaTeX-insert-quote)

387 (define-key YaTeX-mode-map "{" 'YaTeX-insert-braces)

388 (define-key YaTeX-mode-map "(" 'YaTeX-insert-parens)

389 (define-key YaTeX-mode-map "$" 'YaTeX-insert-dollar)

390 (define-key YaTeX-mode-map "&" 'YaTeX-insert-amper)

391 (define-key YaTeX-mode-map "[" 'YaTeX-insert-brackets)

392 (define-key YaTeX-mode-map YaTeX-prefix YaTeX-prefix-map)

393 (define-key YaTeX-mode-map "\M-\C-@" 'YaTeX-mark-environment)

394 (define-key YaTeX-mode-map "\M-\C-a" 'YaTeX-beginning-of-environment)

395 (define-key YaTeX-mode-map "\M-\C-e" 'YaTeX-end-of-environment)

396 (define-key YaTeX-mode-map "\M-\C-m" 'YaTeX-intelligent-newline)

397 (define-key YaTeX-mode-map "\C-i" 'YaTeX-indent-line)

398 (YaTeX-define-key "%" 'YaTeX-%-menu)

399 (YaTeX-define-key "t" 'YaTeX-typeset-menu)

400 (YaTeX-define-key "w" 'YaTeX-switch-mode-menu)

401 (YaTeX-define-key "'" 'YaTeX-prev-error)

402 (YaTeX-define-key "^" 'YaTeX-visit-main)

403 (YaTeX-define-key "4^" 'YaTeX-visit-main-other-window)

404 (YaTeX-define-key "4g" 'YaTeX-goto-corresponding-*-other-window)

405 (YaTeX-define-key "44" 'YaTeX-switch-to-window)

406 (and YaTeX-emacs-19 window-system

407 (progn

408 (YaTeX-define-key "5^" 'YaTeX-visit-main-other-frame)

409 (YaTeX-define-key "5g" 'YaTeX-goto-corresponding-*-other-frame)

410 (YaTeX-define-key "55" 'YaTeX-switch-to-window)))

411 (YaTeX-define-key " " 'YaTeX-do-completion)

412 (YaTeX-define-key "v" 'YaTeX-version)

413

414 (YaTeX-define-key "}" 'YaTeX-insert-braces-region)

415 (YaTeX-define-key "]" 'YaTeX-insert-brackets-region)

416 (YaTeX-define-key ")" 'YaTeX-insert-parens-region)

417 (YaTeX-define-key "$" 'YaTeX-insert-dollars-region)

418 (YaTeX-define-key "i" 'YaTeX-fill-item)

419 (YaTeX-define-key

420 "\\" '(lambda () (interactive) (insert "$\\backslash$")))

421 (if YaTeX-no-begend-shortcut

422 (progn

423 (YaTeX-define-key "B" 'YaTeX-make-begin-end-region)

424 (YaTeX-define-key "b" 'YaTeX-make-begin-end))

425 (YaTeX-define-begend-key "bc" "center")

426 (YaTeX-define-begend-key "bd" "document")

427 (YaTeX-define-begend-key "bD" "description")

428 (YaTeX-define-begend-key "be" "enumerate")

429 (YaTeX-define-begend-key "bE" "equation")

430 (YaTeX-define-begend-key "bi" "itemize")

431 (YaTeX-define-begend-key "bl" "flushleft")

432 (YaTeX-define-begend-key "bm" "minipage")

433 (YaTeX-define-begend-key "bt" "tabbing")

434 (YaTeX-define-begend-key "bT" "tabular")

435 (YaTeX-define-begend-key "b\^t" "table")

436 (YaTeX-define-begend-key "bp" "picture")

437 (YaTeX-define-begend-key "bq" "quote")

438 (YaTeX-define-begend-key "bQ" "quotation")

439 (YaTeX-define-begend-key "br" "flushright")

440 (YaTeX-define-begend-key "bv" "verbatim")

441 (YaTeX-define-begend-key "bV" "verse")

442 (YaTeX-define-key "B " 'YaTeX-make-begin-end-region)

443 (YaTeX-define-key "b " 'YaTeX-make-begin-end))

444 (YaTeX-define-key "e" 'YaTeX-end-environment)

445 (YaTeX-define-key "S" 'YaTeX-make-section-region)

446 (YaTeX-define-key "s" 'YaTeX-make-section)

447 (YaTeX-define-key "L" 'YaTeX-make-fontsize-region)

448 (YaTeX-define-key "l" 'YaTeX-make-fontsize)

449 (YaTeX-define-key "m" 'YaTeX-make-singlecmd)

450 (YaTeX-define-key "." 'YaTeX-comment-paragraph)

451 (YaTeX-define-key "," 'YaTeX-uncomment-paragraph)

452 (YaTeX-define-key ">" 'YaTeX-comment-region)

453 (YaTeX-define-key "<" 'YaTeX-uncomment-region)

454 (YaTeX-define-key "g" 'YaTeX-goto-corresponding-*)

455 (YaTeX-define-key "k" 'YaTeX-kill-*)

456 (YaTeX-define-key "c" 'YaTeX-change-*)

457 (YaTeX-define-key "a" 'YaTeX-make-accent)

458 (YaTeX-define-key "?" 'YaTeX-help)

459 (YaTeX-define-key "/" 'YaTeX-apropos)

460 (YaTeX-define-key "&" 'YaTeX-what-column)

461 (YaTeX-define-key "d" 'YaTeX-display-hierarchy)

462 (YaTeX-define-key "x" YaTeX-user-extensional-map)

463 (YaTeX-define-key "n"

464 '(lambda () (interactive) (insert "\\\\")))

465 (if YaTeX-dos

466 (define-key YaTeX-prefix-map "\C-r"

467 '(lambda () (interactive)

468 (set-screen-height YaTeX-saved-screen-height) (recenter))))

469 (mapcar

470 (function

471 (lambda (key)

472 (define-key YaTeX-mode-map (car key) 'YaTeX-math-insert-sequence)))

473 YaTeX-math-key-list)

474 )

475

476 (if YaTeX-typesetting-mode-map nil

477 (setq YaTeX-typesetting-mode-map (make-keymap))

478 ;(suppress-keymap YaTeX-typesetting-mode-map t)

479 (define-key YaTeX-typesetting-mode-map " " 'YaTeX-jump-error-line)

480 (define-key YaTeX-typesetting-mode-map "\C-m" 'YaTeX-send-string)

481 (define-key YaTeX-typesetting-mode-map "1" 'delete-other-windows)

482 (define-key YaTeX-typesetting-mode-map "0" 'delete-window)

483 (define-key YaTeX-typesetting-mode-map "q" 'delete-window)

484 )

485

486 (defvar YaTeX-section-completion-map nil

487 "*Key map used at YaTeX completion in the minibuffer.")

488 (if YaTeX-section-completion-map nil

489 (setq YaTeX-section-completion-map

490 (copy-keymap (or (and (boundp 'gmhist-completion-map)

491 gmhist-completion-map)

492 minibuffer-local-completion-map)))

493 (define-key YaTeX-section-completion-map

494 " " 'YaTeX-minibuffer-complete)

495 (define-key YaTeX-section-completion-map

496 "\C-i" 'YaTeX-minibuffer-complete)

497 (define-key YaTeX-section-completion-map

498 "\C-v" 'YaTeX-read-section-with-overview))

499

500 (defvar YaTeX-recursive-map nil

501 "*Key map used at YaTeX reading arguments in the minibuffer.")

502 (if YaTeX-recursive-map nil

503 (setq YaTeX-recursive-map (copy-keymap global-map))

504 (define-key YaTeX-recursive-map YaTeX-prefix YaTeX-prefix-map))

505

506 ;; (define-key YaTeX-recursive-map

507 ;; (concat YaTeX-prefix (if YaTeX-inhibit-prefix-letter "\C-s" "s"))

508 ;; 'YaTeX-make-section)

509 ;; (define-key map

510 ;; (concat YaTeX-prefix (if YaTeX-inhibit-prefix-letter "\C-m" "m"))

511 ;; 'YaTeX-make-singlecmd)

512 ;; (define-key map

513 ;; (concat YaTeX-prefix (if YaTeX-inhibit-prefix-letter "\C-l" "l"))

514 ;; 'YaTeX-make-fontsize)

515

516

517 ;---------- Define other variable ----------

518 (defvar env-name "document" "*Initial tex-environment completion")

519 (defvar section-name "documentstyle" "*Initial tex-section completion")

520 (defvar fontsize-name "large" "*Initial fontsize completion")

521 (defvar single-command "maketitle" "*Initial LaTeX single command")

522 (defvar YaTeX-user-table-is-read nil

523 "Flag that means whether user completion table has been read or not."

524 )

525 (defvar YaTeX-kanji-code-alist nil

526 "Kanji-code expression translation table."

527 )

528 (if (boundp 'MULE)

529 (setq YaTeX-kanji-code-alist

530 (list (cons

531 1

532 (if YaTeX-dos (if (boundp '*sjis-dos*) *sjis-dos* *sjis*dos)

533 *sjis*))

534 '(2 . *junet*) '(3 . *euc-japan*))

535 ))

536 (defvar YaTeX-kanji-code (if YaTeX-dos 1 2)

537 "*File kanji code used by Japanese TeX."

538 )

539 (defvar YaTeX-coding-system nil "File coding system used by Japanese TeX.")

540 (defvar YaTeX-latex-message-code "Process coding system for LaTeX.")

541 (cond

542 ((boundp 'MULE)

543 (setq YaTeX-coding-system

544 (symbol-value (cdr (assoc YaTeX-kanji-code YaTeX-kanji-code-alist))))

545 (if (not YaTeX-dos)

546 (setq YaTeX-latex-message-code *autoconv*)))

547 ((boundp 'NEMACS)

548 (setq YaTeX-latex-message-code latex-message-kanji-code))

549 )

550 (defvar YaTeX-parent-file nil

551 "*Main LaTeX source file name used when %#! expression doesn't exist.")

552 (make-variable-buffer-local 'YaTeX-parent-file)

553

554 ;---------- Provide YaTeX-mode ----------

555 ;;;

556 ;; Major mode definition

557 ;;;

558 (defun yatex-mode ()

559 " Yet Another LaTeX mode: Major mode for editing input files of LaTeX.

560 -You can invoke processes concerning LaTeX typesetting by

561 \\[YaTeX-typeset-menu]

562 -Complete LaTeX environment form of `\\begin{env} ... \\end{env}' by

563 \\[YaTeX-make-begin-end]

564 -Enclose region into some environment by

565 \\[universal-argument] \\[YaTeX-make-begin-end]

566 -Complete LaTeX command which takes argument like `\\section{}' by

567 \\[YaTeX-make-section]

568 -Put LaTeX command which takes no arguments like `\\maketitle' by

569 \\[YaTeX-make-singlecmd]

570 -Complete font or character size descriptor like `{\\large }' by

571 \\[YaTeX-make-fontsize]

572 -Enclose region into those descriptors above by

573 \\[universal-argument] \\[YaTeX-make-fontsize]

574 -Enter European accent notations by

575 \\[YaTeX-make-accent]

576 -Toggle various modes of YaTeX by

577 \\[YaTeX-switch-mode-menu]

578 -Change environt name (on the begin/end line) by

579 \\[YaTeX-change-*]

580 -Kill LaTeX command/environment sequences by

581 \\[YaTeX-kill-*]

582 -Kill LaTeX command/environment with its contents

583 \\[universal-argument] \\[YaTeX-kill-*]

584 -Go to corresponding object (begin/end, file, labels) by

585 \\[YaTeX-goto-corresponding-*] or

586 \\[YaTeX-goto-corresponding-*-other-window] (in other window)

587 \\[YaTeX-goto-corresponding-*-other-frame] (in other frame)

588 -Go to main LaTeX source text by

589 \\[YaTeX-visit-main] or

590 \\[YaTeX-visit-main-other-window] (in other window)

591 \\[YaTeX-visit-main-other-frame] (in other frame)

592 -Comment out or uncomment region by

593 \\[YaTeX-comment-region] or \\[YaTeX-uncomment-region]

594 -Comment out or uncomment paragraph by

595 \\[YaTeX-comment-paragraph] or \\[YaTeX-uncomment-paragraph]

596 -Make an \\item entry hang-indented by

597 \\[YaTeX-fill-item]

598 -Enclose the region with parentheses by

599 \\[YaTeX-insert-parens-region]

600 \\[YaTeX-insert-braces-region]

601 \\[YaTeX-insert-brackets-region]

602 \\[YaTeX-insert-dollars-region]

603 -Look up the corresponding column header of tabular environment by

604 \\[YaTeX-what-column]

605 -Enter a newline and an entry suitable for environment by

606 \\[YaTeX-intelligent-newline]

607 -View the structure of file inclusion by

608 \\[YaTeX-display-hierarchy]

609 -Refer the online help of popular LaTeX commands by

610 \\[YaTeX-help] (help)

611 \\[YaTeX-apropos] (apropos)

612 -Edit `%# notation' by

613 \\[YaTeX-%-menu]

614

615 Those are enough for fastening your editing of LaTeX source. But further

616 more features are available and they are documented in the manual.

617 "

618 (interactive)

619 (kill-all-local-variables)

620 (setq major-mode 'yatex-mode)

621 (setq mode-name (if YaTeX-japan "��Ă�" "YaTeX"))

622 (mapcar 'make-local-variable

623 '(dvi2-command fill-column fill-prefix

624 tmp-env-table tmp-section-table tmp-fontsize-table

625 tmp-singlecmd-table paragraph-start paragraph-separate

626 YaTeX-math-mode indent-line-function

627 comment-start comment-start-skip

628 ))

629 (cond ((boundp 'MULE)

630 (set-file-coding-system YaTeX-coding-system))

631 ((boundp 'NEMACS)

632 (make-local-variable 'kanji-fileio-code)

633 (setq kanji-fileio-code YaTeX-kanji-code)))

634 (setq fill-column YaTeX-fill-column

635 fill-prefix YaTeX-fill-prefix

636 paragraph-start YaTeX-paragraph-start

637 paragraph-separate YaTeX-paragraph-separate

638 indent-line-function 'YaTeX-indent-line

639 comment-start YaTeX-comment-prefix

640 comment-end ""

641 ;;comment-start-skip "[^\\\\]%+[ \t]*"

642 )

643 (use-local-map YaTeX-mode-map)

644 (if YaTeX-dos (setq YaTeX-saved-screen-height (screen-height)))

645 (YaTeX-read-user-completion-table)

646 (and (fboundp 'YaTeX-19-collect-macros) (YaTeX-19-collect-macros))

647 (turn-on-auto-fill) ;1.63

648 (run-hooks 'text-mode-hook 'yatex-mode-hook)

649 )

650

651 ;---------- Define YaTeX-mode functions ----------

652 (defvar YaTeX-ec "\\" "Escape character of current mark-up language.")

653 (defvar YaTeX-ec-regexp (regexp-quote YaTeX-ec))

654 (defvar YaTeX-struct-begin

655 (concat YaTeX-ec "begin{%1}%2")

656 "Keyword to begin environment.")

657 (defvar YaTeX-struct-end (concat YaTeX-ec "end{%1}")

658 "Keyword to end environment.")

659 (defvar YaTeX-struct-name-regexp "[^}]+"

660 "Environment name regexp.")

661 (defvar YaTeX-TeX-token-regexp

662 (cond (YaTeX-japan "[A-Za-z*��-��-�]+")

663 (t "[A-Za-z*]+"))

664 "Regexp of characters which can be a member of TeX command's name.")

665 (defvar YaTeX-command-token-regexp YaTeX-TeX-token-regexp

666 "Regexp of characters which can be a member of current mark up language's command name.")

667

668 ;;(defvar YaTeX-struct-section

669 ;; (concat YaTeX-ec "%1{%2}")

670 ;; "Keyword to make section.")

671

672 ;;;

673 ;; autoload section

674 ;;;

675 ;;autoload from yatexlib(general functions).

676 (autoload 'YaTeX-showup-buffer "yatexlib" "YaTeX library" t)

677 (autoload 'YaTeX-window-list "yatexlib" "YaTeX library" t)

678 (autoload 'YaTeX-search-active-forward "yatexlib" "YaTeX library" t)

679 (autoload 'YaTeX-search-active-backward "yatexlib" "YaTeX library" t)

680 (autoload 'substitute-all-key-definition "yatexlib" "YaTeX library" t)

681 (autoload 'YaTeX-switch-to-buffer "yatexlib" "YaTeX library" t)

682 (autoload 'YaTeX-switch-to-buffer-other-window "yatexlib" "YaTeX library" t)

683 (autoload 'YaTeX-replace-format "yatexlib" "YaTeX library" t)

684 (autoload 'YaTeX-replace-format-args "yatexlib" "YaTeX library" t)

685 (autoload 'rindex "yatexlib" "YaTeX library" t)

686 (autoload 'YaTeX-match-string "yatexlib" "YaTeX library" t)

687 (autoload 'YaTeX-minibuffer-complete "yatexlib" "YaTeX library" t)

688 (autoload 'goto-buffer-window "yatexlib" "YaTeX library" t)

689 (autoload 'split-window-calculate-height "yatexlib" "YaTeX library" t)

690 (autoload 'read-string-with-history "yatexlib" "YaTeX library" t)

691 (autoload 'read-from-minibuffer-with-history "yatexlib" "YaTeX library" t)

692 (autoload 'completing-read-with-history "yatexlib" "YaTeX library" t)

693 (autoload 'YaTeX-switch-to-window "yatexlib" "For windows.el" t)

694

695 ;;autoload from yatexprc.el

696 (autoload 'YaTeX-visit-main "yatexprc" "Visit main LaTeX file." t)

697 (autoload 'YaTeX-visit-main-other-window "yatexprc"

698 "Visit main other window." t)

699 (autoload 'YaTeX-main-file-p "yatexprc" "Check if the file is main." t)

700 (autoload 'YaTeX-get-builtin "yatexprc" "Get %# built-in." t)

701 (autoload 'YaTeX-system "yatexprc" "Call system command" t)

702 (autoload 'YaTeX-save-buffers "yatexprc" "Save buffers of same major mode" t)

703

704 ;;autoload from yatexmth.el

705 (autoload 'YaTeX-math-insert-sequence "yatexmth" "Image input." t)

706 (autoload 'YaTeX-in-math-mode-p "yatexmth" "Check if in math-env." t)

707 (autoload 'YaTeX-toggle-math-mode "yatexmth" "YaTeX math-mode interfaces." t)

708 (autoload 'YaTeX-math-member-p "yatexmth" "Check if a word is math command." t)

709

710 ;;autoload from yatexhlp.el

711 (autoload 'YaTeX-help "yatexhlp" "YaTeX helper with LaTeX commands." t)

712 (autoload 'YaTeX-apropos "yatexhlp" "Apropos for (La)TeX commands." t)

713

714 ;;autoload from yatexgen.el

715 (autoload 'YaTeX-generate "yatexgen" "YaTeX add-in function generator." t)

716 (autoload 'YaTeX-generate-simple "yatexgen" "YaTeX add-in support." t)

717

718 ;;autoload from yatexsec.el

719 (autoload 'YaTeX-read-section-in-minibuffer "yatexsec" "YaTeX sectioning" t)

720 (autoload 'YaTeX-make-section-with-overview "yatexsec" "YaTeX sectioning" t)

721

722 ;;autoload from yatexenv.el

723 (autoload 'YaTeX-what-column "yatexenv" "YaTeX env. specific funcs" t)

724 (autoload 'YaTeX-intelligent-newline "yatexenv" "YaTeX env. specific funcs" t)

725 (autoload 'YaTeX-indent-line-equation "yatexenv" "Indent equation lines." t)

726 (autoload 'YaTeX-goto-corresponding-leftright "yatexenv" "\left\right jumps" t)

727

728 ;;autoload from yatexhie.el

729 (autoload 'YaTeX-display-hierarchy "yatexhie"

730 "YaTeX document hierarchy browser" t)

731 (autoload 'YaTeX-display-hierarchy-directly "yatexhie"

732 "Same as YaTeX-display-hierarchy. Call from mouse." t)

733

734 ;; autoload from yahtml.el

735 (autoload 'yahtml-inner-environment-but "yahtml" "yahtml internal func." t)

736

737 ;;;

738 ;; YaTeX-mode functions

739 ;;;

740 (defun YaTeX-insert-begin-end (env region-mode)

741 "Insert \\begin{mode-name} and \\end{mode-name}.

742 This works also for other defined begin/end tokens to define the structure."

743 (setq YaTeX-current-completion-type 'begin)

744 (let*((ccol (current-column)) beg beg2 exchange

745 (arg region-mode) ;for old compatibility

746 (indent-column (+ ccol YaTeX-environment-indent))(i 1) func)

747 (if (and region-mode (> (point) (mark)))

748 (progn (exchange-point-and-mark)

749 (setq exchange t

750 ccol (current-column)

751 indent-column (+ ccol YaTeX-environment-indent))))

752 ;;VER2 (insert "\\begin{" env "}" (YaTeX-addin env))

753 (setq beg (point))

754 (YaTeX-insert-struc 'begin env)

755 (setq beg2 (point))

756 (insert "\n")

757 (indent-to indent-column)

758 (save-excursion

759 ;;indent optional argument of \begin{env}, if any

760 (while (> (point-beginning-of-line) beg)

761 (skip-chars-forward "\\s " (point-end-of-line))

762 (indent-to indent-column)

763 (forward-line -1)))

764 (require 'yatexenv)

765 (if region-mode

766 ;;if region-mode, indent all text in the region

767 (save-excursion

768 (if (fboundp (intern-soft (concat "YaTeX-enclose-" env)))

769 (funcall (intern-soft (concat "YaTeX-enclose-" env))

770 (point) (mark))

771 (while (< (progn (forward-line 1) (point)) (mark))

772 (if (eolp) nil

773 (skip-chars-forward " \t\n")

774 (indent-to indent-column))))))

775 (if region-mode (exchange-point-and-mark))

776 (indent-to ccol)

777 ;;VER2 (insert "\\end{" env "}\n")

778 (YaTeX-insert-struc 'end env)

779 (YaTeX-reindent ccol)

780 (if region-mode

781 (progn

782 (insert "\n")

783 (or exchange (exchange-point-and-mark)))

784 (goto-char beg2)

785 (YaTeX-intelligent-newline nil))

786 (if YaTeX-current-position-register

787 (point-to-register YaTeX-current-position-register)))

788 )

789

790 (defun YaTeX-make-begin-end (arg)

791 "Make LaTeX environment command of \\begin{env.} ... \\end{env.}

792 by completing read.

793 If you invoke this command with universal argument,

794 $key binding for universal-argument is \\[universal-argument]$

795 you can put REGION into that environment between \\begin and \\end."

796 (interactive "P")

797 (let*

798 ((mode (if arg " region" ""))

799 (env

800 (YaTeX-read-environment

801 (format "Begin environment%s(default %s): " mode env-name))))

802 (if (string= env "")

803 (setq env env-name))

804 (setq env-name env)

805 (YaTeX-update-table

806 (list env-name) 'env-table 'user-env-table 'tmp-env-table)

807 (YaTeX-insert-begin-end env-name arg))

808 )

809

810 (defun YaTeX-make-begin-end-region ()

811 "Call YaTeX-make-begin-end with ARG to specify region mode."

812 (interactive)

813 (YaTeX-make-begin-end t)

814 )

815

816 (defun YaTeX-inner-environment (&optional quick)

817 "Return current inner-most environment.

818 Non-nil for optional argument QUICK restricts search bound to most

819 recent sectioning command. Matching point is stored to property 'point

820 of 'YaTeX-inner-environment, which can be referred by

821 (get 'YaTeX-inner-environment 'point)."

822 (let*((nest 0)

823 (beg (YaTeX-replace-format-args

824 (regexp-quote YaTeX-struct-begin)

825 YaTeX-struct-name-regexp

826 (if (eq major-mode 'yahtml-mode) "\\s *.*" "")

827 ""))

828 (end (YaTeX-replace-format-args

829 (regexp-quote YaTeX-struct-end)

830 YaTeX-struct-name-regexp "" ""))

831 (begend (concat "\$" beg "\$\\|\$" end "\$"))

832 bound m0

833 (open

834 (concat "^" (or (cdr (assq major-mode '((yahtml-mode . "<")))) "{")))

835 (close

836 (concat "^"

837 (or (cdr(assq major-mode '((yahtml-mode . "\n\t >")))) "}"))))

838 (save-excursion

839 (if quick

840 (setq bound

841 (save-excursion

842 (YaTeX-re-search-active-backward

843 (concat YaTeX-ec-regexp

844 "\$" YaTeX-sectioning-regexp "\$\\*?\\{")

845 YaTeX-comment-prefix nil 1)

846 (or (bobp) (end-of-line))

847 (point))))

848 (if (catch 'begin

849 (if (and (numberp bound) (< (point) bound)) (throw 'begin nil))

850 (while (YaTeX-re-search-active-backward

851 begend YaTeX-comment-prefix bound t)

852 (setq m0 (match-beginning 0))

853 (if (looking-at end) ;;(match-beginning 2)

854 (setq nest (1+ nest))

855 (setq nest (1- nest)))

856 (if (< nest 0)

857 (progn

858 (put 'YaTeX-inner-environment 'point m0)

859 (goto-char m0)

860 (put 'YaTeX-inner-environment 'indent (current-column))

861 (throw 'begin t)))))

862 (buffer-substring

863 (progn (skip-chars-forward open) (1+ (point)))

864 (progn (skip-chars-forward close) (point))))))

865 )

866

867 (defun YaTeX-end-environment ()

868 "Close opening environment"

869 (interactive)

870 (let ((env (YaTeX-inner-environment)))

871 (if (not env) (error "No premature environment")

872 (save-excursion

873 (if (YaTeX-search-active-forward

874 (YaTeX-replace-format-args YaTeX-struct-end env "" "")

875 YaTeX-comment-prefix nil t)

876 (if (y-or-n-p

877 (concat "Environment `" env

878 "' may be already closed. Force close?"))

879 nil

880 (error "end environment aborted."))))

881 (message "") ;Erase (y or n) message.

882 (YaTeX-insert-struc 'end env)

883 (save-excursion

884 (goto-char (or (get 'YaTeX-inner-environment 'point) (match-end 0)))

885 (if (pos-visible-in-window-p)

886 (sit-for (if YaTeX-dos 2 1))

887 (message "Matches with %s at line %d"

888 (YaTeX-replace-format-args YaTeX-struct-begin env "" "")

889 (count-lines (point-min) (point)))))))

890 )

891

892 ;;;VER2

893 (defun YaTeX-insert-struc (what env)

894 (cond

895 ((eq what 'begin)

896 (insert (YaTeX-replace-format-args

897 YaTeX-struct-begin env (YaTeX-addin env))))

898 ((eq what 'end)

899 (insert (YaTeX-replace-format-args YaTeX-struct-end env)))

900 (t nil))

901 )

902

903 (defun YaTeX-make-section (arg &optional beg end cmd)

904 "Make LaTeX \\section{} type command with completing read.

905 With numeric ARG, you can specify the number of arguments of

906 LaTeX command.

907 For example, if you want to produce LaTeX command

908

909 \\addtolength{\\topmargin}{8mm}

910

911 which has two arguments. You can produce that sequence by typing...

912 ESC 2 C-c s add SPC RET \\topm SPC RET 8mm RET

913 $by default$

914 Then yatex will automatically complete `addtolength' with two arguments

915 next time.

916 You can complete symbol at LaTeX command and the 1st argument.

917

918 If the optional 2nd and 3rd argument BEG END are specified, enclose

919 the region from BEG to END into the first argument of the LaTeX sequence.

920 Optional 4th arg CMD is LaTeX command name, for non-interactive use."

921 (interactive "P")

922 (setq YaTeX-current-completion-type 'section)

923 (unwind-protect

924 (let*

925 ((source-window (selected-window))

926 (section

927 (or cmd

928 (YaTeX-read-section

929 (if YaTeX-simple-messages

930 (format "Section-type (default %s): " section-name)

931 (if (> (minibuffer-depth) 0)

932 (format "%s???{} (default %s)%s: " YaTeX-ec section-name

933 (format "[level:%d]" (minibuffer-depth)))

934 (format "(C-v for view-section) %s???{} (default %s): "

935 YaTeX-ec section-name)))

936 nil)))

937 (section (if (string= section "") section-name section))

938 (numarg ;; The number of section-type command's argument

939 (or arg

940 (nth 1 (YaTeX-lookup-table section 'section))

941 1))

942 (arg-reader (intern-soft (concat "YaTeX::" section)))

943 (addin-args (and arg-reader (fboundp arg-reader)))

944 (title "")

945 (j 1)

946 (enable-recursive-minibuffers t));;let

947 (setq section-name section)

948 (if beg

949 (let ((e (make-marker)))

950 (goto-char end)

951 (insert "}")

952 (set-marker e (point))

953 (goto-char beg)

954 (insert YaTeX-ec section-name "{")

955 (goto-char (marker-position e)))

956 (use-global-map YaTeX-recursive-map)

957 (if (= numarg 0) (YaTeX-make-singlecmd section-name)

958 (insert YaTeX-ec section-name (YaTeX-addin section-name)))

959 (while (<= j numarg)

960 (insert

961 "{"

962 (setq title

963 (cond

964 (addin-args (funcall arg-reader j))

965 (YaTeX-skip-default-reader "")

966 (t

967 (read-string (format "Argument %d of %s: " j section)))))

968 "}")

969 (setq j (1+ j))))

970 (YaTeX-update-table

971 (if (/= numarg 1) (list section numarg)

972 (list section))

973 'section-table 'user-section-table 'tmp-section-table)

974 (if YaTeX-current-position-register

975 (point-to-register YaTeX-current-position-register))

976 (if (string= (buffer-substring (- (point) 2) (point)) "{}")

977 (forward-char -1))

978 (while (string= (buffer-substring (- (point) 3) (1- (point))) "{}")

979 (forward-char -2)))

980 (if (<= (minibuffer-depth) 0) (use-global-map global-map)))

981 )

982

983 (defun YaTeX-make-section-region (args beg end)

984 "Call YaTeX-make-section with arguments to specify region mode."

985 (interactive "P\nr")

986 (YaTeX-make-section args beg end)

987 )

988

989 (defun YaTeX-make-fontsize (arg &optional fontsize)

990 "Make completion like {\\large ...} or {\\slant ...} in minibuffer.

991 If you invoke this command with universal argument, you can put region

992 into {\\xxx } braces.

993 $key binding for universal-argument is \\[universal-argument]$"

994 (interactive "P")

995 (YaTeX-sync-local-table 'tmp-fontsize-table)

996 (let* ((mode (if arg "region" ""))

997 (fontsize

998 (or fontsize

999 (YaTeX-read-fontsize

1000 (if YaTeX-simple-messages

1001 (format "Font or size (default %s): " fontsize-name)

1002 (format "{\\??? %s} (default %s)%s: " mode fontsize-name

1003 (if (> (minibuffer-depth) 0)

1004 (format "[level:%d]" (minibuffer-depth)) "")))

1005 nil nil))))

1006 (if (string= fontsize "")

1007 (setq fontsize fontsize-name))

1008 (setq fontsize-name fontsize)

1009 (YaTeX-update-table

1010 (list fontsize-name)

1011 'fontsize-table 'user-fontsize-table 'tmp-fontsize-table)

1012 (if arg

1013 (save-excursion

1014 (if (> (point) (mark)) (exchange-point-and-mark))

1015 (insert "{\\" fontsize-name " ")

1016 (exchange-point-and-mark)

1017 (insert "}"))

1018 (insert "{\\" fontsize-name " }")

1019 (if YaTeX-current-position-register

1020 (point-to-register YaTeX-current-position-register))

1021 (forward-char -1)))

1022 )

1023

1024 (defun YaTeX-make-fontsize-region ()

1025 "Call function:YaTeX-make-fontsize with ARG to specify region mode."

1026 (interactive)

1027 (YaTeX-make-fontsize t)

1028 )

1029

1030 (defvar YaTeX-singlecmd-suffix "" "*Suffix for maketitle-type commands.")

1031 (defvar YaTeX-read-singlecmd-history nil "Holds maketitle-type history.")

1032 (put 'YaTeX-read-singlecmd-history 'no-default t)

1033 (defun YaTeX-make-singlecmd (single)

1034 (interactive

1035 (list (YaTeX-cplread-with-learning

1036 (if YaTeX-simple-messages

1037 (format "maketitle-type (default %s): " single-command)

1038 (format "%s??? (default %s)%s: " YaTeX-ec single-command

1039 (if (> (minibuffer-depth) 0)

1040 (format "[level:%d]" (minibuffer-depth)) "")))

1041 'singlecmd-table 'user-singlecmd-table 'tmp-singlecmd-table

1042 nil nil nil 'YaTeX-read-singlecmd-history)))

1043 (if (string= single "")

1044 (setq single single-command))

1045 (setq single-command single)

1046 (setq YaTeX-current-completion-type 'maketitle)

1047 (let ((dollar (and (not (YaTeX-in-math-mode-p))

1048 (YaTeX-math-member-p single-command)))

1049 p q)

1050 (if dollar (insert "$"))

1051 (insert YaTeX-ec single-command)

1052 (setq p (point))

1053 (insert (YaTeX-addin single) YaTeX-singlecmd-suffix)

1054 (if dollar (insert "$"))

1055 (setq q (point))

1056 (goto-char p)

1057 (forward-char -2)

1058 (if (looking-at "\\[\\]") (forward-char 1) (goto-char q)))

1059 (if YaTeX-current-position-register

1060 (point-to-register YaTeX-current-position-register))

1061 )

1062

1063 (defvar YaTeX-completion-begin-regexp "[{\\]"

1064 "Regular expression of limit where LaTeX command's completion begins.")

1065

1066 (defun YaTeX-do-completion ()

1067 "Try completion on LaTeX command preceding point."

1068 (interactive)

1069 (if

1070 (or (eq (preceding-char) ? )

1071 (eq (preceding-char) ?\t)

1072 (eq (preceding-char) ?\n)

1073 (bobp))

1074 (message "Nothing to complete.") ;Do not complete

1075 (let* ((end (point))

1076 (limit (point-beginning-of-line))

1077 (completion-begin

1078 (progn (re-search-backward "[ \t\n]" limit 1) (point)))

1079 (begin (progn

1080 (goto-char end)

1081 (if (re-search-backward YaTeX-completion-begin-regexp

1082 completion-begin t)

1083 (1+ (point))

1084 nil))))

1085 (goto-char end)

1086 (cond

1087 ((null begin)

1088 (message "I think it is not a LaTeX sequence."))

1089 (t

1090 (mapcar 'YaTeX-sync-local-table

1091 '(tmp-section-table tmp-env-table tmp-singlecmd-table))

1092 (let*((pattern (buffer-substring begin end))

1093 (all-table

1094 (append

1095 section-table user-section-table tmp-section-table

1096 env-table user-env-table tmp-env-table

1097 singlecmd-table user-singlecmd-table tmp-singlecmd-table))

1098 ;; First,

1099 ;; search completion without backslash.

1100 (completion (try-completion pattern all-table)))

1101 (if

1102 (eq completion nil)

1103 ;; Next,

1104 ;; search completion with backslash

1105 (setq completion

1106 (try-completion (buffer-substring (1- begin) end)

1107 all-table nil)

1108 begin (1- begin)))

1109 (cond

1110 ((null completion)

1111 (message (concat "Can't find completion for '" pattern "'"))

1112 (ding))

1113 ((eq completion t) (message "Sole completion."))

1114 ((not (string= completion pattern))

1115 (kill-region begin end)

1116 (insert completion)

1117 )

1118 (t

1119 (message "Making completion list...")

1120 (with-output-to-temp-buffer "*Help*"

1121 (display-completion-list

1122 (all-completions pattern all-table))))))))))

1123 )

1124

1125 (defun YaTeX-toggle-modify-mode (&optional arg)

1126 (interactive "P")

1127 (or (memq 'YaTeX-modify-mode mode-line-format)

1128 (setq mode-line-format

1129 (append (list "" 'YaTeX-modify-mode) mode-line-format)))

1130 (if (or arg (null YaTeX-modify-mode))

1131 (progn

1132 (setq YaTeX-modify-mode "*m*")

1133 (message "Modify mode"))

1134 (setq YaTeX-modify-mode nil)

1135 (message "Cancel modify mode."))

1136 (set-buffer-modified-p (buffer-modified-p)) ;redraw mode-line

1137 )

1138

1139 (defun YaTeX-switch-mode-menu (arg &optional char)

1140 (interactive "P")

1141 (message "Toggle: (M)odify-mode ma(T)h-mode")

1142 (let ((c (or char (read-char))))

1143 (cond

1144 ((= c ?m) (YaTeX-toggle-modify-mode arg))

1145 ((or (= c ?$) (= c ?t))

1146 (if YaTeX-auto-math-mode

1147 (message "Makes no sense in YaTeX-auto-math-mode.")

1148 (YaTeX-toggle-math-mode arg)))))

1149 )

1150

1151 (defun YaTeX-insert-quote ()

1152 (interactive)

1153 (insert

1154 (cond

1155 ((YaTeX-literal-p) ?\")

1156 ((= (preceding-char) ?\\ ) ?\")

1157 ;((= (preceding-char) ?\( ) ?\")

1158 ((or (= (preceding-char) 32)

1159 (= (preceding-char) 9)

1160 (= (preceding-char) ?\n)

1161 (bobp)

1162 (string-match

1163 (regexp-quote (char-to-string (preceding-char)))

1164 "�A�B�C�D�H�I�u�v�w�x�y�z()"))

1165 "``")

1166 (t "''")))

1167 )

1168

1169 (defun YaTeX-closable-p ()

1170 (and (not YaTeX-modify-mode)

1171 (not (eq YaTeX-close-paren-always 'never))

1172 (or YaTeX-close-paren-always (eolp))

1173 (not (input-pending-p))

1174 (not (YaTeX-literal-p)))

1175 ;;(or YaTeX-modify-mode

1176 ;; (and (not YaTeX-close-paren-always) (not (eolp)))

1177 ;; (input-pending-p)

1178 ;; (YaTeX-quick-in-environment-p "verbatim"))

1179 )

1180

1181 (defun YaTeX-insert-braces-region (beg end &optional open close)

1182 (interactive "r")

1183 (save-excursion

1184 (goto-char end)

1185 (insert (or close "}"))

1186 (goto-char beg)

1187 (insert (or open "{")))

1188 )

1189

1190 (defun YaTeX-insert-braces (arg &optional open close)

1191 (interactive "p")

1192 (let (env)

1193 (cond

1194 ((YaTeX-jmode) (YaTeX-self-insert arg))

1195 ((not (YaTeX-closable-p)) (YaTeX-self-insert arg))

1196 ((save-excursion

1197 (and (> (- (point) (point-min)) 6)

1198 (condition-case () (forward-char -6) (error nil)))

1199 (looking-at "\\\\left\\\\"))

1200 (insert "{\\right\\}")

1201 (forward-char -8))

1202 ((and (> (point) (+ (point-min) 4))

1203 (save-excursion (backward-char 4) (looking-at "\\\\end"))

1204 (not (YaTeX-literal-p))

1205 (setq env (YaTeX-inner-environment)))

1206 (momentary-string-display

1207 (concat

1208 "{"

1209 (cond

1210 (YaTeX-japan

1211 (format "��x��͂�� %s b ��g��܂��傤" YaTeX-prefix))

1212 (t (format "You don't understand Zen of `%s b':p" YaTeX-prefix)))

1213 "}")

1214 (point))

1215 (insert (or open "{") env (or close "}")))

1216 (t

1217 (insert (or open "{") (or close "}"))

1218 (forward-char -1)

1219 (if (and (eq (char-after (point)) ?\})

1220 (eq (char-after (- (point) 2)) ?\\ ))

1221 (progn (insert "\\") (forward-char -1)))

1222 )))

1223 )

1224

1225 (defun YaTeX-jmode ()

1226 (or (and (boundp 'canna:*japanese-mode*) canna:*japanese-mode*)

1227 (and (boundp 'egg:*mode-on*) egg:*mode-on* egg:*input-mode*))

1228 )

1229

1230 (defun YaTeX-jmode-off ()

1231 (cond

1232 ((and (boundp 'canna:*japanese-mode*) canna:*japanese-mode*)

1233 (canna-toggle-japanese-mode))

1234 ((and (boundp 'egg:*mode-on*) egg:*mode-on* egg:*input-mode*)

1235 (egg:toggle-egg-mode-on-off))

1236 ((and (fboundp 'skk-mode) (boundp 'skk-mode) skk-mode)

1237 (if (fboundp 'skk-mode-off) (skk-mode-off) (j-mode-off)))

1238 ((and (fboundp 'fep-force-off) (fep-force-off))))

1239 )

1240

1241 (defun YaTeX-self-insert (arg)

1242 (call-interactively (global-key-binding (char-to-string last-command-char))))

1243

1244 (defun YaTeX-insert-brackets (arg)

1245 "Insert Kagi-kakko or \\ [ \\] pair or simply \[."

1246 (interactive "p")

1247 (let ((col (1- (current-column))))

1248 (cond

1249 ((YaTeX-jmode) (YaTeX-self-insert arg))

1250 ((not (YaTeX-closable-p))

1251 (YaTeX-self-insert arg))

1252 ((save-excursion

1253 (and (> (- (point) (point-min)) 5) (forward-char -5))

1254 (looking-at "\\\\left"))

1255 (insert "[\\right]")

1256 (forward-char -7))

1257 ((and (= (preceding-char) ?\\ )

1258 (/= (char-after (- (point) 2)) ?\\ )

1259 (not (YaTeX-in-math-mode-p)))

1260 (insert last-command-char "\n")

1261 (indent-to (max 0 col))

1262 (insert "\\]")

1263 (beginning-of-line)

1264 (open-line 1)

1265 (delete-region (point) (progn (beginning-of-line) (point)))

1266 (indent-to (+ YaTeX-environment-indent (max 0 col)))

1267 (or YaTeX-auto-math-mode YaTeX-math-mode (YaTeX-toggle-math-mode 1)))

1268 ((YaTeX-closable-p)

1269 (insert "[]")

1270 (backward-char 1))

1271 (t (YaTeX-self-insert arg)))

1272 )

1273 )

1274

1275 (defun YaTeX-insert-brackets-region (beg end)

1276 (interactive "r")

1277 (YaTeX-insert-braces-region beg end "[" "]")

1278 )

1279

1280 (defun YaTeX-insert-parens (arg)

1281 "Insert parenthesis pair."

1282 (interactive "p")

1283 (cond

1284 ((YaTeX-jmode) (YaTeX-self-insert arg))

1285 ((not (YaTeX-closable-p)) (YaTeX-self-insert arg))

1286 ((save-excursion

1287 (and (> (- (point) (point-min)) 5) (forward-char -5))

1288 (looking-at "\\\\left"))

1289 (insert "(\\right)")

1290 (forward-char -7))

1291 ((and (= (preceding-char) ?\\ ) (not (YaTeX-in-math-mode-p)))

1292 (insert "(\\)")

1293 (backward-char 2))

1294 ((YaTeX-closable-p)

1295 (insert "()")

1296 (backward-char 1))

1297 (t (YaTeX-self-insert arg)))

1298 )

1299

1300 (defun YaTeX-insert-parens-region (beg end)

1301 (interactive "r")

1302 (YaTeX-insert-braces-region beg end "(" ")")

1303 )

1304

1305 (defun YaTeX-insert-dollar ()

1306 (interactive)

1307 (if (or (not (YaTeX-closable-p))

1308 (= (preceding-char) 92)

1309 (and (YaTeX-in-math-mode-p)

1310 (or (/= (preceding-char) ?$) (/= (following-char) ?$))))

1311 (insert "$")

1312 (insert "$$")

1313 (forward-char -1)

1314 (YaTeX-jmode-off)

1315 (or YaTeX-auto-math-mode YaTeX-math-mode (YaTeX-toggle-math-mode 1)))

1316 )

1317

1318 (defun YaTeX-insert-dollars-region (beg end)

1319 (interactive "r")

1320 (YaTeX-insert-braces-region beg end "$" "$")

1321 )

1322

1323 (defun YaTeX-insert-amper ()

1324 (interactive)

1325 (if (or (string-match YaTeX-array-env-regexp

1326 (or (YaTeX-inner-environment t) "document"))

1327 (= (preceding-char) 92)

1328 (YaTeX-literal-p))

1329 (insert "&")

1330 (insert "\\&"))

1331 )

1332

1333 (defun YaTeX-version ()

1334 "Return string of the version of running YaTeX."

1335 (interactive)

1336 (message

1337 (concat "Yet Another tex-mode "

1338 (if YaTeX-japan "�u�쒹�v" "`Wild Bird'")

1339 " Revision "

1340 YaTeX-revision-number))

1341 )

1342

1343 (defun YaTeX-typeset-menu (arg &optional char)

1344 "Typeset, preview, visit error and miscellaneous convenient menu.

1345 Optional second argument CHAR is for non-interactive call from menu."

1346 (interactive "P")

1347 (message

1348 (concat "J)latex R)egion B)ibtex mk(I)ndex "

1349 (if (not YaTeX-dos) "K)ill-latex ")

1350 "P)review "

1351 (and (boundp 'window-system) window-system "S)earch ")

1352 "V)iewerr L)pr"))

1353 (let ((sw (selected-window)) (c (or char (read-char))))

1354 (require 'yatexprc) ;for Nemacs's bug

1355 (select-window sw)

1356 (cond

1357 ((= c ?j) (YaTeX-typeset-buffer))

1358 ((= c ?r) (YaTeX-typeset-region))

1359 ((= c ?b) (YaTeX-call-command-on-file

1360 bibtex-command "*YaTeX-bibtex*"))

1361 ((= c ?i) (YaTeX-call-command-on-file

1362 makeindex-command "*YaTeX-makeindex*"))

1363 ((= c ?k) (YaTeX-kill-typeset-process YaTeX-typeset-process))

1364 ((= c ?p) (call-interactively 'YaTeX-preview))

1365 ((= c ?q) (YaTeX-system "lpq" "*Printer queue*"))

1366 ((= c ?v) (YaTeX-view-error))

1367 ((= c ?l) (YaTeX-lpr arg))

1368 ((= c ?m) (YaTeX-switch-mode-menu arg))

1369 ((= c ?b) (YaTeX-insert-string "\\"))

1370 ((= c ?s) (YaTeX-xdvi-remote-search arg))))

1371 )

1372

1373 (defun YaTeX-%-menu (&optional beg end char)

1374 "Operate %# notation."

1375 ;;Do not use interactive"r" for the functions which require no mark

1376 (interactive)

1377 (message "!)Edit-%%#! B)EGIN-END-region L)Edit-%%#LPR")

1378 (let ((c (or char (read-char))) (string "") key

1379 (b (make-marker)) (e (make-marker)))

1380 (save-excursion

1381 (cond

1382 ((or (= c ?!) (= c ?l)) ;Edit `%#!'

1383 (goto-char (point-min))

1384 (setq key (cond ((= c ?!) "%#!")

1385 ((= c ?l) "%#LPR")))

1386 (if (re-search-forward key nil t)

1387 (progn

1388 (setq string (buffer-substring (point) (point-end-of-line)))

1389 (delete-region (point) (progn (end-of-line) (point))))

1390 (open-line 1)

1391 (delete-region (point) (progn (beginning-of-line)(point)));for 19 :-<

1392 (insert key))

1393 (unwind-protect

1394 (setq string (read-string (concat key ": ") string))

1395 (insert string)))

1396

1397 ((= c ?b) ;%#BEGIN %#END region

1398 (or end (setq beg (min (point) (mark)) end (max (point) (mark))))

1399 (set-marker b beg)

1400 (set-marker e end)

1401 (goto-char (point-min))

1402 (while (re-search-forward "^%#\$BEGIN\$\\|\$END\$$" nil t)

1403 (beginning-of-line)

1404 (delete-region (point) (progn (forward-line 1) (point))))

1405 (goto-char (marker-position b))

1406 (open-line 1)

1407 (delete-region (point) (progn (beginning-of-line)(point)));for 19 :-<

1408 (insert "%#BEGIN")

1409 (goto-char (marker-position e))

1410 (insert "%#END\n"))

1411 )))

1412 )

1413

1414 (defun YaTeX-goto-corresponding-label (reverse &optional otherwin)

1415 "Jump to corresponding \\label{} and \\ref{} or \\cite and \\bibitem.

1416 The default search direction depends on the command at the cursor position.

1417 When the cursor is on \\ref(\\cite), YaTeX will try to search the

1418 corresponding \\label(\\bibitem) backward,

1419 and if it fails search forward again. And when the cursor is

1420 on \\label(\\bibitem), YaTeX will search the corresponding \\ref(\\cite)

1421 forward at first and secondary backward.

1422 Argument REVERSE non-nil makes the default

1423 direction rule reverse. Since Search string is automatically set in

1424 search-last-string, you can repeat search the same label/ref by typing

1425 \\[isearch-forward] or \\[isearch-backward].

1426 If optional second argument OTHERWIN is non-nil, move to other window."

1427

1428 (let ((scmd "") label direc string blist (p (point)) (cb (current-buffer))

1429 (refcommands "label\\|ref\\|cite\\|bibitem")

1430 (func (function (lambda (string sfunc)

1431 (or

1432 (funcall sfunc string nil t)

1433 (funcall (if (eq sfunc 'search-forward)

1434 'search-backward 'search-forward)

1435 string nil t))))))

1436 (cond

1437 ((YaTeX-on-section-command-p refcommands)

1438 (setq scmd (cdr (assoc (YaTeX-match-string 1)

1439 '(("label" . "ref") ("ref" . "label")

1440 ("cite" . "bibitem") ("bibitem" . "cite")))))

1441 (goto-char (match-end 0))

1442 (let ((label (buffer-substring

1443 (1- (point)) (progn (backward-list 1) (1+ (point))))))

1444 (setq string (concat "\\" scmd "{" label "}"))

1445 (setq direc (if (string-match "ref\\|cite" scmd)

1446 'search-forward 'search-backward))

1447 (if YaTeX-current-position-register

1448 (point-to-register YaTeX-current-position-register))

1449 (if reverse (setq direc (if (eq direc 'search-forward)

1450 'search-backward 'search-forward)))

1451 (if (funcall func string direc) ;label/ref found!

1452 (progn

1453 (if otherwin

1454 (progn

1455 (goto-char p)

1456 (if (one-window-p)

1457 (split-window-calculate-height

1458 YaTeX-default-pop-window-height))

1459 (select-window (get-lru-window))

1460 (switch-to-buffer cb)))

1461 (goto-char (match-beginning 0))

1462 (push-mark p))

1463 ;;if label/ref not found, search through all yatex buffers.

1464 (goto-char p) ;resume position of current buffer

1465 (setq blist (YaTeX-yatex-buffer-list))

1466 (catch 'found

1467 (while blist

1468 (set-buffer (car blist))

1469 (if (YaTeX-on-section-command-p refcommands)

1470 (goto-char (match-beginning 0)))

1471 (if (funcall func string direc)

1472 (progn

1473 (cond

1474 (otherwin

1475 (set-buffer cb)

1476 (goto-char p)

1477 (if (one-window-p)

1478 (split-window-calculate-height

1479 YaTeX-default-pop-window-height))

1480 (select-window (get-lru-window))

1481 (switch-to-buffer (car blist)))

1482 ((or (get-buffer-window (car blist))

1483 (and YaTeX-emacs-19

1484 (get-buffer-window (car blist) t)))

1485 (goto-buffer-window (car blist)))

1486 (t

1487 (switch-to-buffer (car blist))

1488 (message

1489 (format "Type %s %c to return to original position."

1490 (key-description

1491 (car

1492 (or (where-is-internal 'register-to-point)

1493 (where-is-internal 'jump-to-register))))

1494 YaTeX-current-position-register))))

1495 (goto-char (match-beginning 0))

1496 (throw 'found t)))

1497 (setq blist (cdr blist)))))

1498 )

1499 (if YaTeX-emacs-19

1500 (setq search-ring (cons string search-ring))

1501 (setq search-last-string string)))

1502 (t nil)))

1503 )

1504

1505 (defun YaTeX-goto-corresponding-environment (&optional allow-mismatch noerr)

1506 "Go to corresponding begin/end enclosure.

1507 Optional argument ALLOW-MISMATCH allows mismatch open/clese. Use this

1508 for \left(, \right).

1509 Optional third argument NOERR causes no error for unballanced environment."

1510 (interactive)

1511 (if (not (YaTeX-on-begin-end-p)) nil

1512 (let ((p (match-end 0)) b0 b1 env (nest 0) regexp re-s (op (point))

1513 (m0 (match-beginning 0)) ;whole matching

1514 (m1 (match-beginning 1)) ;environment in \begin{}

1515 (m2 (match-beginning 2))) ;environment in \end{}

1516 ;(setq env (regexp-quote (buffer-substring p (match-beginning 0))))

1517 (if (cond

1518 (m1 ;if begin{xxx}

1519 (setq env

1520 (if allow-mismatch YaTeX-struct-name-regexp

1521 (regexp-quote (buffer-substring m1 (match-end 1)))))

1522 ; (setq regexp (concat "\$\\\\end{" env "}\$\\|"

1523 ; "\$\\\\begin{" env "}\$"))

1524 (setq regexp

1525 (concat

1526 "\\("

1527 (YaTeX-replace-format-args

1528 (regexp-quote YaTeX-struct-end) env "" "")

1529 "\\)\\|\\("

1530 (YaTeX-replace-format-args

1531 (regexp-quote YaTeX-struct-begin) env "" "")

1532 "\\)"))

1533 (setq re-s 're-search-forward))

1534 (m2 ;if end{xxx}

1535 (setq env

1536 (if allow-mismatch YaTeX-struct-name-regexp

1537 (regexp-quote (buffer-substring m2 (match-end 2)))))

1538 ; (setq regexp (concat "\$\\\\begin{" env "}\$\\|"

1539 ; "\$\\\\end{" env "}\$"))

1540 (setq regexp

1541 (concat

1542 "\\("

1543 (YaTeX-replace-format-args

1544 (regexp-quote YaTeX-struct-begin) env "" "")

1545 "\\)\\|\\("

1546 (YaTeX-replace-format-args

1547 (regexp-quote YaTeX-struct-end) env "" "")

1548 "\\)"))

1549 (setq re-s 're-search-backward))

1550 (t (if noerr nil (error "Corresponding environment not found."))))

1551 (progn

1552 (while (and (>= nest 0) (funcall re-s regexp nil t))

1553 (setq b0 (match-beginning 0) b1 (match-beginning 1))

1554 (if (or (equal b0 m0)

1555 (YaTeX-literal-p b0))

1556 nil

1557 (setq nest (if (equal b0 b1)

1558 (1- nest) (1+ nest)))))

1559 (if (< nest 0)

1560 (goto-char (match-beginning 0)) ;found.

1561 (goto-char op)

1562 (funcall

1563 (if noerr 'message 'error)

1564 "Corresponding environment `%s' not found." env)

1565 (sit-for 1)

1566 nil)))))

1567 )

1568

1569 (defun YaTeX-goto-corresponding-file (&optional other)

1570 "Visit or switch buffer of corresponding file,

1571 looking at \\input or \\include or \includeonly on current line."

1572 (if (not (YaTeX-on-includes-p)) nil

1573 (let ((parent buffer-file-name) input-file)

1574 (save-excursion

1575 (if (search-forward "{" (point-end-of-line) t)

1576 nil

1577 (skip-chars-backward "^,{"))

1578 (setq input-file

1579 (buffer-substring

1580 (point) (progn (skip-chars-forward "^ ,}") (point))))

1581 (if (not (string-match "\\.\$tex\\|sty\$$" input-file))

1582 (setq input-file (concat input-file ".tex"))))

1583 (cond

1584 (other (YaTeX-switch-to-buffer-other-window input-file))

1585 ((get-file-buffer input-file) (goto-buffer-window input-file))

1586 (t (YaTeX-switch-to-buffer input-file)))

1587 (or (YaTeX-get-builtin "!")

1588 YaTeX-parent-file

1589 (setq YaTeX-parent-file parent))))

1590 )

1591

1592 (defun YaTeX-goto-corresponding-BEGIN-END ()

1593 (if (not (YaTeX-on-BEGIN-END-p)) nil

1594 (if (cond

1595 ((equal (match-beginning 0) (match-beginning 1)) ;if on %#BEGIN

1596 (not (search-forward "%#END" nil t)))

1597 (t ; if on %#END

1598 (not (search-backward "%#BEGIN" nil t))))

1599 (error "Corresponding %%#BEGIN/END not found."))

1600 (beginning-of-line)

1601 t)

1602 )

1603

1604 (defvar YaTeX-processed-file-regexp-alist nil

1605 "Alist of regexp of processed file regexp vs. its file name part;

1606 For example, if you include image file with `\\epsfile{file=FILE}' where

1607 `FILE' is processed file. You might want to view FILE with other previewer

1608 such as ghostview, or want to preview its source which was drawn with

1609 other drawing tool, tgif for example. Then you should set entire regexp

1610 of including expression and enclose its file name part with \\\$ and \\\$.

1611

1612 Ex. (\"\\\\\\\\epsfile{[^}]*file=\\\$[^,} ]+\\\$\\\$\\\\.e?ps\\\$?[^}]*}\" 1)

1613

1614 Where the first group surrounded by \\\$ and \\\$ is the file name part

1615 of expression. So you should set 1 to second element. And the first

1616 matching group is sent to (image) processor defined by the variable

1617 YaTeX-file-processor-alist. See also the documentation of

1618 YaTeX-file-processor-alist.

1619

1620 ��ǂ��킩��Ȃ��ˁB�Ⴆ�� tgif hoge.obj �� hoge.eps ��

1621 \\epsfile{file=hoge.eps} �ŃC��N��[�h��Ă��Ƃ��悤�B��̍s��

1622 \[prefix\] g �� tgif ��N��ė~��A�܂��̂悤��

1623 ��K�\��ݒ肷��B\\\$��\\\$�ň͂񂾂Ƃ��낪�t�@�C��ɂȂ�悤��

1624 ��ӂ��B�Ńt�@�C��Ԗڂ�\\\$\\\$�ɂȂ邩��X�g��2�Ԗڂɏ��B

1625 ��ƁA��̕��ϐ� YaTeX-file-processor-alist �Œ�`��ꂽ

1626 ��v��O��ɓn��B�Ƃ��킯�B

1627 ��`��ς�ނ��ˁB��Ȃ��ׂ͗� Lisper �ɕ��A

1628 fj�쒹�̉�ŕ��!

1629 ")

1630

1631 (defvar YaTeX-processed-file-regexp-alist-default

1632 '(("\\\\epsfile{[^},]*file=\$\\([^,} ]*/\$?[^,}. ]+\\)\$\\.e?ps\$?[^}]*}" 1)

1633 ("\\\\epsfig{[^},]*fi\$le\\|gure\$=\$\\([^,} ]*/\$?[^,}. ]+\\)\$\\.e?ps\$?[^}]*}" 2)

1634 ("\\\\postscriptbox{[^}]*}{[^}]*}{\$\\([^,} ]*/\$?[^}. ]+\\)\$\\.e?ps\$?}" 1)

1635 ("\\\\\$epsfbox\\|includegraphics\${\$\\([^,} ]*/\$?[^}. ]+\\)\$\\.e?ps\$?}" 2)

1636 ("\\\\\$psbox\$\$\\[[^]]+\\]\$?{\$\\([^,} ]*/\$?[^} ]+\\)\$\\.e?ps\$}" 3) ;\psbox[options...]{hoge.eps} (97/1/11)

1637 )

1638 "See the documentation of YaTeX-processed-file-regexp-alist."

1639 )

1640

1641 (defvar YaTeX-file-processor-alist nil

1642 "*Alist of files' processor vs. its extension;

1643 See also the documentation of YaTeX-processed-file-regexp-alist."

1644 )

1645 (defvar YaTeX-file-processor-alist-default

1646 '(("tgif" . ".obj")

1647 ("ghostview" . ".ps")

1648 ("ghostview" . ".eps")

1649 (t . ".tex")

1650 (t . ".sty")

1651 (t . ""))

1652 "See the documentation of YaTeX-file-processor-alist."

1653 )

1654

1655 (defun YaTeX-goto-corresponding-file-processor (&optional other)

1656 "Execute corresponding file processor."

1657 (save-excursion

1658 (or (looking-at YaTeX-ec-regexp)

1659 (skip-chars-backward (concat "^" YaTeX-ec) (point-beginning-of-line)))

1660 (let ((list (append YaTeX-processed-file-regexp-alist

1661 YaTeX-processed-file-regexp-alist-default))

1662 (p (point)) flist file

1663 (peol (point-end-of-line)))

1664 (setq flist (catch 'found

1665 (while list

1666 (goto-char p)

1667 (if (re-search-forward (car (car list)) peol t)

1668 (progn

1669 (setq file (YaTeX-match-string

1670 (car (cdr (car list)))))

1671 (throw 'found (cdr (car list)))))

1672 (setq list (cdr list)))))

1673 (if flist ;if pattern and file name found

1674 (let*((plist (append YaTeX-file-processor-alist

1675 YaTeX-file-processor-alist-default))

1676 (plist0 plist)

1677 ext cmd src buf (alt (car (cdr flist))))

1678 (if (and (re-search-forward

1679 (concat YaTeX-comment-prefix "\\s *\$.*\$$") peol t)

1680 (assoc (setq cmd (YaTeX-match-string 1))

1681 YaTeX-file-processor-alist))

1682 (setq src ;if processor is specified

1683 (concat file

1684 (cdr (assoc cmd YaTeX-file-processor-alist))))

1685 (while plist ;if processor is not specified

1686 (setq ext (cdr (car plist)))

1687 (if (and (string< "" (concat file ext))

1688 (file-exists-p (concat file ext)))

1689 (setq cmd (car (car plist))

1690 src (concat file ext) plist nil))

1691 (setq plist (cdr plist)))

1692 (if (and (null src) alt YaTeX-create-file-prefix-g)

1693 (setq cmd alt

1694 src (concat file (cdr (assoc alt plist0))))))

1695 (if src ;if processor and src file found

1696 (cond

1697 ((stringp cmd)

1698 (let ((buf (concat "* " cmd " " src " *")))

1699 (YaTeX-system (concat cmd " " src) buf)

1700 t))

1701 ((eq t cmd)

1702 (let ((parent buffer-file-name))

1703 (funcall

1704 (cond

1705 (other 'YaTeX-switch-to-buffer-other-window)

1706 ((get-file-buffer src) 'goto-buffer-window)

1707 (t 'YaTeX-switch-to-buffer))

1708 src)

1709 (or (YaTeX-get-builtin "!")

1710 YaTeX-parent-file

1711 (setq YaTeX-parent-file parent))

1712 t))

1713 ((symbolp cmd)

1714 (cond

1715 ((symbol-function cmd)

1716 (funcall cmd src other)))

1717 t)))))))

1718 )

1719

1720 (defun YaTeX-on-section-command-p (command)

1721 "Check if point is on the LaTeX command: COMMAND(regexp).

1722 Return nil if point is not on it. Otherwise return the

1723 number of argument position.

1724 Section command name is stored in match-data #1."

1725 (let ((p (point)) md (parg 0) (argc 1) word (grouping 0) (i 0))

1726 (while (setq i (string-match "\\\\(" command i))

1727 (setq grouping (1+ grouping) i (+ i 2)))

1728 (save-excursion

1729 (if (looking-at YaTeX-ec-regexp) nil

1730 (catch 'found ;caught value has no meaning

1731 (while t

1732 (if (bobp) (throw 'found nil))

1733 (cond

1734 ((looking-at YaTeX-ec-regexp) (throw 'found t))

1735 ((looking-at "[[{]") nil)

1736 ((looking-at "[]}]")(condition-case nil (up-list -1) (error nil)))

1737 (t (skip-chars-backward " \t\r\n")))

1738 (skip-chars-backward (concat "^ \t\r\n{}[]" YaTeX-ec-regexp))

1739 (or (bobp) (forward-char -1)))))

1740 (if (and

1741 (looking-at (concat YaTeX-ec-regexp "\$" command "\$"

1742 "\$\\(\\[[^]]+\\]\$*\\)" ;optional arg

1743 ;"[ \t\n\r]*{[^}]+}")) ;arg braces

1744 "[ \t\n\r]*{[^}]*}")) ;arg braces

1745 (not (YaTeX-lookup-table

1746 (setq word (YaTeX-match-string 1)) 'singlecmd)))

1747 (progn

1748 (setq md (match-data))

1749 (skip-chars-forward "^{")

1750 (if (<= (point) p) (setq parg (1+ parg)))

1751 (setq argc

1752 (or (car (cdr (YaTeX-lookup-table word 'section)))

1753 argc))

1754 (while (and (>= (setq argc (1- argc)) 0)

1755 (progn (skip-chars-forward " \t\n\r")

1756 (looking-at "{")))

1757 (forward-list 1)

1758 (if (<= (point) p) (setq parg (1+ parg))))

1759 (store-match-data md)

1760 (setq i (+ 2 grouping))

1761 (if (and (match-beginning i)

1762 (>= p (match-beginning i)) (< p (match-end i)))

1763 -1 ;return -1 if point is on optional arg

1764 (if (< p (point)) parg))

1765 ))))

1766 )

1767

1768 (defun YaTeX-on-maketitle-p ()

1769 "Check if point is on maketitle type commands.

1770 Call this function after YaTeX-on-section-command-p."

1771 (let ((p (point)))

1772 (save-excursion

1773 (or (= (char-after (point)) ?\\ )

1774 (progn

1775 (skip-chars-backward

1776 (concat "^" YaTeX-ec-regexp) (point-beginning-of-line))

1777 (or (bobp) (bolp) (backward-char 1))))

1778 (and (looking-at (concat YaTeX-ec-regexp YaTeX-TeX-token-regexp))

1779 (<= (match-beginning 0) p)

1780 (> (match-end 0) p)))))

1781

1782 (defun YaTeX-on-begin-end-p ()

1783 (save-excursion

1784 (beginning-of-line)

1785 (re-search-forward

1786 ;;"\\\\begin{\$[^}]+\$}\\|\\\\end{\$[^}]+\$}"

1787 (concat

1788 (YaTeX-replace-format-args

1789 (regexp-quote YaTeX-struct-begin)

1790 (concat "\$" YaTeX-struct-name-regexp "\$") "" "" "")

1791 "\\|"

1792 (YaTeX-replace-format-args

1793 (regexp-quote YaTeX-struct-end)

1794 (concat "\$" YaTeX-struct-name-regexp "\$") "" "" ""))

1795 (point-end-of-line) t))

1796 )

1797

1798 (defun YaTeX-on-includes-p ()

1799 (save-excursion

1800 (beginning-of-line)

1801 (re-search-forward "\$\\(include.*\$\\|\$input\$\\){.*}"

1802 (point-end-of-line) t))

1803 )

1804

1805 (defun YaTeX-on-comment-p (&optional sw)

1806 "Return t if current line is commented out.

1807 Optional argument SW t to treat all `%' lines as comment,

1808 even if on `%#' notation."

1809 (save-excursion

1810 (beginning-of-line)

1811 (skip-chars-forward "\\s ")

1812 (looking-at (if sw "%" "%[^#]")))

1813 )

1814

1815 (defun YaTeX-on-BEGIN-END-p ()

1816 (save-excursion

1817 (let ((case-fold-search nil))

1818 (beginning-of-line)

1819 (re-search-forward "\$%#BEGIN\$\\|\$%#END\$" (point-end-of-line) t)))

1820 )

1821

1822 (defun YaTeX-goto-corresponding-* (arg)

1823 "Parse current line and call suitable function."

1824 (interactive "P")

1825 (cond

1826 ((YaTeX-goto-corresponding-label arg))

1827 ((YaTeX-goto-corresponding-environment))

1828 ((YaTeX-goto-corresponding-file-processor arg))

1829 ((YaTeX-goto-corresponding-file arg))

1830 ((YaTeX-goto-corresponding-BEGIN-END))

1831 ((and (string-match

1832 YaTeX-equation-env-regexp ;to delay loading

1833 (or (YaTeX-inner-environment t) "document"))

1834 (YaTeX-goto-corresponding-leftright)))

1835 (t (message "I don't know where to go.")))

1836 )

1837

1838 (defun YaTeX-goto-corresponding-*-other-window (arg)

1839 "Parse current line and call suitable function."

1840 (interactive "P")

1841 (cond

1842 ((YaTeX-goto-corresponding-label arg t))

1843 ;;((YaTeX-goto-corresponding-environment))

1844 ((YaTeX-goto-corresponding-file t))

1845 ;;((YaTeX-goto-corresponding-BEGIN-END))

1846 (t (message "I don't know where to go.")))

1847 )

1848

1849 (defun YaTeX-comment-region (alt-prefix)

1850 "Comment out region by '%'.

1851 If you call this function on the 'begin{}' or 'end{}' line,

1852 it comments out whole environment"

1853 (interactive "P")

1854 (if (not (YaTeX-on-begin-end-p))

1855 (comment-out-region

1856 (if alt-prefix

1857 (read-string "Insert prefix: ")

1858 YaTeX-comment-prefix))

1859 (YaTeX-comment-uncomment-env 'comment-out-region))

1860 )

1861

1862 (defun YaTeX-uncomment-region (alt-prefix)

1863 "Uncomment out region by '%'."

1864 (interactive "P")

1865 (if (not (YaTeX-on-begin-end-p))

1866 (uncomment-region

1867 (if alt-prefix (read-string "Remove prefix: ")

1868 YaTeX-comment-prefix)

1869 (region-beginning) (region-end) YaTeX-uncomment-once)

1870 (YaTeX-comment-uncomment-env 'uncomment-region))

1871 )

1872

1873 (defun YaTeX-comment-uncomment-env (func)

1874 "Comment or uncomment out one LaTeX environment switching function by FUNC."

1875 (let (beg (p (point)))

1876 (save-excursion

1877 (beginning-of-line)

1878 (setq beg (point))

1879 (YaTeX-goto-corresponding-environment)

1880 (beginning-of-line)

1881 (if (> p (point)) (setq beg (1+ beg)) (forward-char 1))

1882 (funcall func YaTeX-comment-prefix beg (point) YaTeX-uncomment-once)))

1883 (message "%sommented out current environment."

1884 (if (eq func 'comment-region) "C" "Un-c"))

1885 )

1886

1887 (defun YaTeX-beginning-of-environment (&optional limit-search-bound end)

1888 "Goto the beginning of the current environment.

1889 Optional argument LIMIT-SEARCH-BOUND non-nil limits the search bound to

1890 most recent sectioning command. Non-nil for optional third argument END

1891 goes to end of environment."

1892 (interactive)

1893 (let ((op (point)))

1894 (if (YaTeX-inner-environment limit-search-bound)

1895 (progn

1896 (goto-char (get 'YaTeX-inner-environment 'point))

1897 (and end (YaTeX-goto-corresponding-environment))

1898 (if (interactive-p) (push-mark op))

1899 t)))

1900 )

1901

1902 (defun YaTeX-end-of-environment (&optional limit-search-bound)

1903 "Goto the end of the current environment.

1904 Optional argument LIMIT-SEARCH-BOUND non-nil limits the search bound

1905 to most recent sectioning command."

1906 (interactive)

1907 (YaTeX-beginning-of-environment limit-search-bound t)

1908 )

1909

1910 (defun YaTeX-mark-environment ()

1911 "Mark current position and move point to end of environment."

1912 (interactive)

1913 (let ((curp (point)))

1914 (if (and (YaTeX-on-begin-end-p) (match-beginning 1)) ;if on \\begin

1915 (forward-line 1)

1916 (beginning-of-line))

1917 (if (not (YaTeX-end-of-environment)) ;arg1 turns to match-beginning 1

1918 (progn

1919 (goto-char curp)

1920 (error "Cannot found the end of current environment."))

1921 (YaTeX-goto-corresponding-environment)

1922 (beginning-of-line) ;for confirmation

1923 (if (< curp (point))

1924 (progn

1925 (message "Mark this environment?(y or n): ")

1926 (if (= (read-char) ?y) nil

1927 (goto-char curp)

1928 (error "Abort. Please call again at more proper position."))))

1929 (set-mark-command nil)

1930 (YaTeX-goto-corresponding-environment)

1931 (end-of-line)

1932 (if (eobp) nil (forward-char 1))))

1933 )

1934

1935 (defun YaTeX-comment-paragraph ()

1936 "Comment out current paragraph."

1937 (interactive)

1938 (save-excursion

1939 (cond

1940 ((YaTeX-on-begin-end-p)

1941 (beginning-of-line)

1942 (insert YaTeX-comment-prefix)

1943 (YaTeX-goto-corresponding-environment)

1944 (beginning-of-line)

1945 (insert YaTeX-comment-prefix))

1946 ((YaTeX-on-comment-p)

1947 (message "Already commented out."))

1948 (t

1949 (mark-paragraph)

1950 (if (looking-at paragraph-separate) (forward-line 1))

1951 (comment-out-region "%"))))

1952 )

1953

1954 (defun YaTeX-uncomment-paragraph ()

1955 "Uncomment current paragraph."

1956 (interactive)

1957 (save-excursion

1958 (if (YaTeX-on-begin-end-p)

1959 (let ((p (make-marker)))

1960 (set-marker p (point))

1961 (YaTeX-goto-corresponding-environment)

1962 (YaTeX-remove-prefix YaTeX-comment-prefix YaTeX-uncomment-once)

1963 (goto-char (marker-position p))

1964 (YaTeX-remove-prefix YaTeX-comment-prefix YaTeX-uncomment-once))

1965 (if (YaTeX-on-comment-p)

1966 (let*((fill-prefix "")

1967 ;;append `^%' to head of paragraph delimiter.

1968 (paragraph-start

1969 (concat

1970 "^$\\|^%\$" YaTeX-paragraph-separate "\$"))

1971 (paragraph-separate paragraph-start))

1972 (mark-paragraph)

1973 (if (not (bobp)) (forward-line 1))

1974 (uncomment-region "%" nil nil YaTeX-uncomment-once))

1975 (message "This line is not a comment line."))))

1976 )

1977

1978 (defun YaTeX-remove-prefix (prefix &optional once)

1979 "Remove prefix on current line as far as prefix detected. But

1980 optional argument ONCE makes deletion once."

1981 (interactive "sPrefix:")

1982 (beginning-of-line)

1983 (while (re-search-forward (concat "^" prefix) (point-end-of-line) t)

1984 (replace-match "")

1985 (if once (end-of-line)))

1986 )

1987

1988 (defun YaTeX-kill-option-string ()

1989 (if (and (eq predicate 'YaTeX-on-begin-end-p)

1990 (looking-at "\$\\[.*\\]\$*\${.*}\$*"))

1991 (delete-region (match-beginning 0) (match-end 0)))

1992 )

1993

1994 (defun YaTeX-kill-some-pairs (predicate gofunc kill-contents)

1995 "Kill some matching pair.

1996 This function assumes that pairs occupy each line where they resid."

1997 ;;(interactive)

1998 (if (not (funcall predicate)) nil

1999 (let ((beg (make-marker)) (end (make-marker)) (p (make-marker)))

2000 (set-marker end (match-end 0))

2001 (if (match-beginning 2)

2002 (set-marker beg (match-beginning 2))

2003 (set-marker beg (match-beginning 1))

2004 (goto-char (match-end 0))

2005 (YaTeX-kill-option-string))

2006 (save-excursion

2007 (funcall gofunc)

2008 (delete-region (point-beginning-of-line) (match-end 0))

2009 (YaTeX-kill-option-string)

2010 (if (and (eolp) (not (eobp))) (delete-char 1))

2011 (set-marker p (point))

2012 (goto-char beg)

2013 (delete-region (point-beginning-of-line) end)

2014 (if (and (eolp) (not (eobp))) (delete-char 1))

2015 (if kill-contents (delete-region p (point))))

2016 t))

2017 )

2018

2019 (defun YaTeX-kill-section-command (point kill-all)

2020 "Kill section-type command at POINT leaving its argument.

2021 Non-nil for the second argument kill its argument too."

2022 (let (beg (end (make-marker)))

2023 (save-excursion

2024 (goto-char point)

2025 (or (looking-at YaTeX-ec-regexp)

2026 (progn

2027 (skip-chars-backward (concat "^" YaTeX-ec-regexp))

2028 (forward-char -1)))

2029 (setq beg (point))

2030 (skip-chars-forward "^{")

2031 (forward-list 1)

2032 (set-marker end (point))

2033 (if kill-all (delete-region beg end)

2034 (goto-char beg)

2035 (delete-region

2036 (point) (progn (skip-chars-forward "^{" end) (1+ (point))))

2037 (goto-char end)

2038 (backward-delete-char 1))))

2039 )

2040

2041 (defun YaTeX-kill-paren (kill-contents)

2042 "Kill parentheses leaving its contents.

2043 But kill its contents if the argument KILL-CONTENTS is non-nil."

2044 (save-excursion

2045 (let (p)

2046 (if (looking-at "\\s(\\|\$\\s)\$")

2047 (progn

2048 (if (match-beginning 1)

2049 (up-list -1))

2050 (setq p (point))

2051 (forward-list 1)

2052 (if kill-contents (delete-region p (point))

2053 (backward-delete-char 1)

2054 (goto-char p)

2055 (if (looking-at

2056 (concat "{" YaTeX-ec-regexp

2057 YaTeX-command-token-regexp "+"

2058 "\\s +"))

2059 (delete-region

2060 (point)

2061 (progn (re-search-forward "\\s +" nil t) (point)))

2062 (delete-char 1)))

2063 t))))

2064 )

2065

2066 (defvar YaTeX-read-environment-history nil "Holds history of environments.")

2067 (put 'YaTeX-read-environment-history 'no-default t)

2068 (defun YaTeX-read-environment (prompt &optional predicate must-match initial)

2069 "Read a LaTeX environment name with completion."

2070 (YaTeX-sync-local-table 'tmp-env-table)

2071 (completing-read-with-history

2072 prompt

2073 (append tmp-env-table user-env-table env-table)

2074 predicate must-match initial

2075 'YaTeX-read-environment-history)

2076 )

2077

2078 (defvar YaTeX-read-section-history nil "Holds history of section-types.")

2079 (put 'YaTeX-read-section-history 'no-default t)

2080 (defun YaTeX-read-section (prompt &optional predicate initial)

2081 "Read a LaTeX section-type command with completion."

2082 (YaTeX-sync-local-table 'tmp-section-table)

2083 (let ((minibuffer-completion-table

2084 (append tmp-section-table user-section-table section-table)))

2085 (read-from-minibuffer-with-history

2086 prompt initial YaTeX-section-completion-map nil

2087 'YaTeX-read-section-history))

2088 )

2089

2090 (defun YaTeX-read-section-with-overview ()

2091 "Read sectioning command with overview.

2092 This function refers a local variable `source-window' in YaTeX-make-section"

2093 (interactive)

2094 (require 'yatexsec) ;some case needs this

2095 (if (> (minibuffer-depth) 1)

2096 (error "Too many minibuffer levels for overview."))

2097 (let ((sw (selected-window))(enable-recursive-minibuffers t) sect)

2098 (unwind-protect

2099 (progn

2100 (select-window source-window)

2101 (setq sect (YaTeX-read-section-in-minibuffer

2102 "Sectioning(Up=C-p, Down=C-n, Help=?): "

2103 YaTeX-sectioning-level (YaTeX-section-overview))))

2104 (select-window sw))

2105 (if (eq (selected-window) (minibuffer-window))

2106 (erase-buffer))

2107 (insert sect)

2108 (exit-minibuffer)

2109 )

2110 )

2111

2112 (defvar YaTeX-read-fontsize-history nil "Holds history of font designator.")

2113 (put 'YaTeX-read-fontsize-history 'no-default t)

2114 (defun YaTeX-read-fontsize (prompt &optional predicate must-match initial)

2115 "Read a LaTeX font changing command with completion."

2116 (YaTeX-sync-local-table 'tmp-fontsize-table)

2117 (completing-read-with-history

2118 prompt (append tmp-fontsize-table user-fontsize-table fontsize-table)

2119 predicate must-match initial 'YaTeX-read-fontsize-history)

2120 )

2121

2122 (defun YaTeX-change-environment ()

2123 "Change the name of environment."

2124 (interactive)

2125 (if (not (YaTeX-on-begin-end-p)) nil

2126 (save-excursion

2127 (let (p env (m1 (match-beginning 1)) (m2 (match-beginning 2)))

2128 (setq env (if m1 (buffer-substring m1 (match-end 1))

2129 (buffer-substring m2 (match-end 2))))

2130 (goto-char (match-beginning 0))

2131 (set-mark-command nil)

2132 (YaTeX-goto-corresponding-environment)

2133 (setq newenv (YaTeX-read-environment

2134 (format "Change environment `%s' to: " env)))

2135 (cond

2136 ((string= newenv "") (message "Change environment cancelled."))

2137 ((string= newenv env) (message "No need to change."))

2138 (t

2139 (search-forward (concat "{" env) (point-end-of-line) t)

2140 (replace-match (concat "{" newenv))

2141 (exchange-point-and-mark)

2142 (search-forward (concat "{" env) (point-end-of-line) t)

2143 (replace-match (concat "{" newenv))))

2144 t)))

2145 )

2146

2147 (defun YaTeX-change-section ()

2148 "Change section-type command."

2149 (interactive)

2150 (let*((where (YaTeX-on-section-command-p YaTeX-command-token-regexp))

2151 (p (point)) (cmd (YaTeX-match-string 1)) beg end old new)

2152 (if (null where) nil

2153 (cond

2154

2155 ((equal where 0);;if point is on section command

2156 (setq beg (match-beginning 1)

2157 end (match-end 1))

2158 (goto-char beg) ;beginning of the command

2159 (setq new (YaTeX-read-section (format "Change `%s' to: " cmd) nil)))

2160

2161 ((= where -1);;if point is on a optional parameter

2162 (setq beg (match-beginning 2))

2163 (skip-chars-forward "^{")

2164 (setq end (point))

2165 (goto-char p)

2166 (setq new

2167 (if (fboundp (intern-soft (concat YaTeX-addin-prefix cmd)))

2168 (YaTeX-addin cmd)

2169 (concat "["

2170 (read-string (format "Change `%s' to: "

2171 (buffer-substring

2172 (1+ beg) (1- end))))

2173 "]"))))

2174

2175 ((> where 0);;if point is in arguments' braces

2176 (or (looking-at "{")

2177 (progn (skip-chars-backward "^{") (forward-char -1)))

2178 (setq beg (1+ (point)))

2179 (forward-list 1)

2180 (forward-char -1)

2181 (setq end (point)

2182 old (buffer-substring beg end))

2183 (goto-char p)

2184 (if (> (length old) 40)

2185 (setq old (concat (substring old 0 12) "..." (substring old -12))))

2186 (setq new

2187 (if (intern-soft (concat "YaTeX::" cmd))

2188 (funcall (intern-soft (concat "YaTeX::" cmd)) where)

2189 (read-string (format "Change `%s' to: " old)))))

2190 );cond

2191 (delete-region beg end)

2192 (goto-char beg)

2193 (insert-before-markers new)

2194 ;;(goto-char (marker-position p))

2195 new))

2196 )

2197

2198 (defun YaTeX-change-fontsize ()

2199 "Change large-type command."

2200 (let ((lt (append tmp-fontsize-table user-fontsize-table fontsize-table))

2201 (p (point)) large old new beg end)

2202 ;;(and (looking-at "}") (up-list -1))

2203 ;;(and (looking-at "{") (forward-char 1))

2204 ;;Is above convenient?

2205 (save-excursion

2206 (or (looking-at YaTeX-ec-regexp)

2207 (progn

2208 (skip-chars-backward (concat "^" YaTeX-ec-regexp))

2209 (forward-char -1)))

2210 (cond

2211 ((and

2212 (looking-at

2213 (concat YaTeX-ec-regexp "\$" YaTeX-TeX-token-regexp "\$"))

2214 (< p (match-end 0))

2215 (assoc (setq old (YaTeX-match-string 1)) lt))

2216 (goto-char p)

2217 (setq beg (match-beginning 1) end (match-end 1) ;save match position

2218 new (completing-read

2219 (format "Change font/size `%s' to : " old) lt))

2220 (delete-region beg end)

2221 (goto-char beg)

2222 (insert-before-markers new)

2223 new)

2224 (t nil)

2225 )))

2226 )

2227

2228 (defun YaTeX-change-math-image ()

2229 "Change with image completion."

2230 (let (maketitle memberp beg end)

2231 (if (and (YaTeX-on-maketitle-p)

2232 (progn

2233 (setq maketitle (substring (YaTeX-match-string 0) 1))

2234 (setq memberp (YaTeX-math-member-p maketitle))))

2235 (let ((last-command-char (string-to-char (car memberp))))

2236 (setq beg (match-beginning 0) end (match-end 0))

2237 (delete-region beg end)

2238 (YaTeX-math-insert-sequence t (cdr memberp))))))

2239

2240 (defun YaTeX-kill-* (&optional arg)

2241 "Parse current line and call suitable function.

2242 Non-nil for ARG kills its contents too."

2243 (interactive "P")

2244 (cond

2245 ((YaTeX-kill-some-pairs 'YaTeX-on-begin-end-p

2246 'YaTeX-goto-corresponding-environment arg))

2247 ((YaTeX-kill-some-pairs 'YaTeX-on-BEGIN-END-p

2248 'YaTeX-goto-corresponding-BEGIN-END arg))

2249 ((YaTeX-on-section-command-p YaTeX-command-token-regexp);on any command

2250 (YaTeX-kill-section-command (match-beginning 0) arg))

2251 ((YaTeX-kill-paren arg))

2252 (t (message "I don't know what to kill.")))

2253 )

2254

2255 (defun YaTeX-change-* ()

2256 "Parse current line and call suitable function."

2257 (interactive)

2258 (cond

2259 ((YaTeX-change-environment))

2260 ((YaTeX-change-section))

2261 ((YaTeX-change-fontsize))

2262 ((YaTeX-change-math-image))

2263 (t (message "I don't know what to change.")))

2264 )

2265

2266 ;;;

2267 ;Check availability of add-in functions

2268 ;;;

2269 (cond

2270 ((featurep 'yatexadd) nil) ;Already provided.

2271 ((progn (load "yatexadd" t) (featurep 'yatexadd)) nil)

2272 (t (message "YaTeX add-in functions not supplied.")))

2273

2274 (defun YaTeX-addin (name)

2275 "Check availability of addin function and call it if exists."

2276 (if (and (not (get 'YaTeX-generate 'disabled))

2277 (intern-soft (concat YaTeX-addin-prefix name))

2278 (fboundp (intern-soft (concat YaTeX-addin-prefix name))))

2279 (let ((s (funcall (intern (concat YaTeX-addin-prefix name)))))

2280 (if (stringp s) s ""))

2281 "") ;Add in function is not bound.

2282 )

2283

2284 (defun YaTeX-on-item-p (&optional point)

2285 "Return t if POINT (default is (point)) is on \\item."

2286 (let ((p (or point (point))))

2287 (save-excursion

2288 (goto-char p)

2289 (end-of-line)

2290 (setq p (point))

2291 (re-search-backward YaTeX-paragraph-delimiter nil t)

2292 (re-search-forward YaTeX-item-regexp p t)))

2293 )

2294

2295 (defun YaTeX-in-verb-p (&optional point)

2296 "Check if POINT is in verb or verb*. Default of POINT is (point)."

2297 (setq point (or point (point)))

2298 (save-excursion

2299 (goto-char point)

2300 (if (not (re-search-backward

2301 (concat YaTeX-ec-regexp

2302 "\$" YaTeX-verb-regexp "\$"

2303 "\$[^-A-Za-z_*]\$")

2304 (point-beginning-of-line) t))

2305 nil

2306 (goto-char (match-end 2))

2307 (skip-chars-forward

2308 (concat "^" (buffer-substring (match-beginning 2) (match-end 2))))

2309 (and (< (match-beginning 2) point) (< (1- point) (point)))))

2310 )

2311

2312 (defun YaTeX-literal-p (&optional point)

2313 "Check if POINT is in verb or verb* or verbatime environment family.

2314 Default of POINT is (point)."

2315 (cond

2316 ((equal YaTeX-ec "\\") ;maybe LaTeX

2317 (save-excursion

2318 (and point (goto-char point))

2319 (or (YaTeX-in-verb-p (point))

2320 (and (not (looking-at "\\\\end{verb"))

2321 (YaTeX-quick-in-environment-p YaTeX-verbatim-environments))))))

2322 )

2323

2324 (defun YaTeX-in-environment-p (env)

2325 "Return if current LaTeX environment is ENV.

2326 ENV is given in the form of environment's name or its list."

2327 (let ((md (match-data)) (nest 0) p envrx)

2328 (cond

2329 ((atom env)

2330 (setq envrx

2331 (concat "\\("

2332 (regexp-quote

2333 (YaTeX-replace-format-args

2334 YaTeX-struct-begin env "" ""))

2335 "\\)\\|\\("

2336 (regexp-quote

2337 (YaTeX-replace-format-args

2338 YaTeX-struct-end env "" ""))

2339 "\\)"))

2340 (save-excursion

2341 (setq p (catch 'open

2342 (while (YaTeX-re-search-active-backward

2343 envrx YaTeX-comment-prefix nil t)

2344 (if (match-beginning 2)

2345 (setq nest (1+ nest))

2346 (setq nest (1- nest)))

2347 (if (< nest 0) (throw 'open t)))))))

2348 ((listp env)

2349 (setq p

2350 (or (YaTeX-in-environment-p (car env))

2351 (and (cdr env) (YaTeX-in-environment-p (cdr env)))))))

2352 (store-match-data md)

2353 p;(or p (YaTeX-in-verb-p (match-beginning 0)))

2354 )

2355 )

2356

2357 (defun YaTeX-quick-in-environment-p (env)

2358 "Check quickly but unsure if current environment is ENV.

2359 ENV is given in the form of environment's name or its list.

2360 This function returns correct result only if ENV is NOT nested."

2361 (save-excursion

2362 (let ((md (match-data)) (p (point)) rc clfound)

2363 (cond

2364 ((listp env)

2365 (or (YaTeX-quick-in-environment-p (car env))

2366 (and (cdr env) (YaTeX-quick-in-environment-p (cdr env)))))

2367 (t

2368 (if (YaTeX-search-active-backward

2369 (YaTeX-replace-format-args YaTeX-struct-begin env "" "")

2370 YaTeX-comment-prefix nil t)

2371 (setq rc (not (YaTeX-search-active-forward

2372 (YaTeX-replace-format-args

2373 YaTeX-struct-end env)

2374 YaTeX-comment-prefix p t nil))))

2375 (store-match-data md)

2376 rc))))

2377 )

2378

2379 ;; Filling \item

2380 (defun YaTeX-remove-trailing-comment (start end)

2381 "Remove trailing comment from START to end."

2382 (save-excursion

2383 (let ((trcom (concat YaTeX-comment-prefix "$")))

2384 (goto-char start)

2385 (while (re-search-forward trcom end t)

2386 (if (/= (char-after (1- (match-beginning 0))) ?\\ )

2387 (replace-match "\\1")))))

2388 )

2389

2390 (defun YaTeX-get-item-info (&optional recent thisenv)

2391 "Return the list of the beginning of \\item and column of its item.

2392 If it seems to be outside of itemizing environment, just return nil.

2393 Non-nil for optional argument RECENT refers recent \\item.

2394 Optional second argument THISENV omits calling YaTeX-inner-environment."

2395 (save-excursion

2396 (let* ((p (point)) env e0 c

2397 (bndry (and (setq env (or thisenv (YaTeX-inner-environment t)))

2398 (get 'YaTeX-inner-environment 'point)

2399 )))

2400 (end-of-line)

2401 (if (if recent

2402 (YaTeX-re-search-active-backward

2403 YaTeX-item-regexp YaTeX-comment-prefix bndry t)

2404 (goto-char bndry)

2405 (YaTeX-re-search-active-forward

2406 YaTeX-item-regexp YaTeX-comment-prefix p t))

2407 (progn

2408 (goto-char (match-end 0))

2409 ;(setq c (current-column))

2410 (if (string-match "desc" env)

2411 (setq c 6)

2412 (if (equal (following-char) ?\[) (forward-list 1))

2413 (setq c 0))

2414 (skip-chars-forward " \t" (point-end-of-line))

2415 (list (point-beginning-of-line) (+ c (current-column)))))))

2416 )

2417

2418 (defun YaTeX-fill-item ()

2419 "Fill item in itemize environment."

2420 (interactive)

2421 (save-excursion

2422 (let* ((p (point))

2423 (item-term (concat

2424 "\$^[ \t]*$\$\\|" YaTeX-item-regexp "\\|\\("

2425 YaTeX-ec-regexp "\$begin\\|end\$\\)"))

2426 ;;This value depends on LaTeX.

2427 fill-prefix start col

2428 (info (YaTeX-get-item-info t)))

2429 (if (null info) nil ;not on \item, do nothing

2430 (setq start (car info)

2431 col (car (cdr info)))

2432 (save-excursion

2433 (if (re-search-backward "^\\s *$" start t)

2434 ;;if separated from \item line, isolate this block

2435 (progn

2436 (setq start (1+ (match-end 0)))

2437 (goto-char start)

2438 (skip-chars-forward " \t")

2439 (delete-region (point) start) ;is this your favor???

2440 (indent-to col))))

2441 (beginning-of-line)

2442 (if (<= (save-excursion

2443 (re-search-forward

2444 (concat "\\\\end{\\|\\\\begin{\\|^[ \t]*$") nil t)

2445 (match-beginning 0))

2446 p)

2447 (progn (message "Not on itemize.") nil)

2448 (end-of-line)

2449 (newline)

2450 (indent-to col)

2451 (setq fill-prefix

2452 (buffer-substring (point-beginning-of-line)(point)))

2453 (beginning-of-line)

2454 (delete-region (point) (progn (forward-line 1) (point)))

2455 (re-search-forward item-term nil 1)

2456 (YaTeX-remove-trailing-comment start (point))

2457 (beginning-of-line)

2458 (push-mark (point) t)

2459 (goto-char start)

2460 (forward-line 1)

2461 (while (< (point) (mark))

2462 (delete-region (point) (progn (skip-chars-forward " \t") (point)))

2463 (forward-line 1))

2464 (fill-region-as-paragraph start (mark))

2465 (if NTT-jTeX

2466 (while (progn(forward-line -1)(end-of-line) (> (point) start))

2467 (insert ?%)))

2468 (pop-mark)))))

2469 )

2470

2471 (defun YaTeX-fill-paragraph (arg)

2472 "YaTeX adjustment function for fill-paragraph.

2473 *Protect \\verb from unexpected broken up."

2474 (interactive "P")

2475 (cond

2476 ((not (eq major-mode 'yatex-mode)) (fill-paragraph arg))

2477 ((YaTeX-quick-in-environment-p YaTeX-fill-inhibit-environments) nil)

2478 (t

2479 (save-excursion

2480 (let ((verbrex (concat YaTeX-ec-regexp

2481 "\$" YaTeX-verb-regexp "\$" ;match#1

2482 "\$.\$.*\$\\2\$")) ;match #2 and #3

2483 (p (point)) ii end poslist spacelist (fill-prefix fill-prefix))

2484 (cond

2485 ((save-excursion (beginning-of-line) ;if point is on the first

2486 (setq end (point)) ;non-whitespace char

2487 (skip-chars-forward " \t")

2488 (equal (point) p))

2489 (setq fill-prefix (buffer-substring p end)))

2490 ((and ;;(not YaTeX-emacs-19)

2491 (string-match YaTeX-itemizing-env-regexp

2492 (or (YaTeX-inner-environment t) "document"))

2493 (setq ii (YaTeX-get-item-info)))

2494 (save-excursion

2495 (beginning-of-line)

2496 (indent-to-column (car (cdr ii)))

2497 (setq fill-prefix

2498 (buffer-substring (point) (point-beginning-of-line)))

2499 (delete-region (point) (progn (beginning-of-line) (point))))))

2500 (mark-paragraph)

2501 (save-restriction

2502 (narrow-to-region (region-beginning) (region-end))

2503 (YaTeX-remove-trailing-comment (point-min) (point-max))

2504 (goto-char (point-min))

2505 (while (YaTeX-re-search-active-forward

2506 verbrex YaTeX-comment-prefix (point-max) t)

2507 (setq end (match-beginning 3))

2508 (goto-char (match-beginning 2))

2509 (while (re-search-forward "\\s " end t)

2510 (setq poslist (cons (make-marker) poslist)

2511 spacelist (cons (preceding-char) spacelist))

2512 (replace-match "_")

2513 (set-marker (car poslist) (match-beginning 0))))

2514 ;;(fill-paragraph arg)

2515 (fill-region-as-paragraph (point-min) (point-max) arg)

2516 (while spacelist

2517 (goto-char (marker-position (car poslist)))

2518 (delete-char 1)

2519 (insert (car spacelist))

2520 (setq spacelist (cdr spacelist) poslist (cdr poslist)))

2521 (goto-char (point-min))

2522 (forward-word 1)

2523 (beginning-of-line)

2524 (while (re-search-forward "\\\\\$\\(page\$?ref\\|cite\\){" nil t)

2525 (if (< (point-end-of-line)

2526 (save-excursion (forward-char -1) (forward-list 1) (point)))

2527 (progn (end-of-line) (insert YaTeX-comment-prefix))))

2528 (goto-char (point-min))

2529 (if (and NTT-jTeX (looking-at "[ \t]"))

2530 (progn

2531 (goto-char (point-min))

2532 (while (not (eobp))

2533 (end-of-line)

2534 (or (bolp)

2535 (save-excursion

2536 (backward-word 1)

2537 (looking-at "\\sw+")) ;is not japanese string

2538 (progn (setq p (point)) (insert YaTeX-comment-prefix)))

2539 (forward-line 1))

2540 (goto-char p)

2541 (if (looking-at "%") (delete-char 1)) ;remove last inserted `%'

2542 )))))))

2543 )

2544

2545 (if (fboundp 'YaTeX-saved-indent-new-comment-line) nil

2546 (fset 'YaTeX-saved-indent-new-comment-line

2547 (symbol-function 'indent-new-comment-line))

2548 (fset 'indent-new-comment-line 'YaTeX-indent-new-comment-line))

2549

2550 (defun YaTeX-indent-new-comment-line (&optional soft)

2551 "Tuned `indent-new-comment-line' function for yatex.

2552 See the documentation of `YaTeX-saved-indent-new-comment-line'."

2553 (cond

2554 ((or (not (memq major-mode '(yatex-mode yahtml-mode)))

2555 (string-match

2556 "document"

2557 (or (and (boundp 'inenv) inenv)

2558 (or (YaTeX-inner-environment t) "document"))))

2559 (apply 'YaTeX-saved-indent-new-comment-line (if soft (list soft))))

2560 ; ((and (eq major-mode 'yahtml-mode)

2561 ; (string-match

2562 ; "^[Pp][Rr][Ee]" (yahtml-inner-environment-but "^[Aa]\\b" t)))

2563 ; (yahtml-indent-new-commnet-line))

2564 ((and (eq major-mode 'yatex-mode) ;1997/2/4

2565 (YaTeX-in-math-mode-p)) nil) ;1996/12/30

2566 (t (let (fill-prefix)

2567 (apply 'YaTeX-saved-indent-new-comment-line (if soft (list soft))))))

2568 )

2569

2570 (defun YaTeX-fill-* ()

2571 "Fill paragraph according to its condition."

2572 (interactive)

2573 (cond

2574 ((YaTeX-fill-item))

2575 )

2576 )

2577

2578 ;; Accent completion

2579 (defun YaTeX-read-accent-char (x)

2580 "Read char in accent braces."

2581 (let ((c (read-char)))

2582 (concat

2583 (if (and (or (= c ?i) (= c ?j))

2584 (not (string-match (regexp-quote x) "cdb")))

2585 "\\" "")

2586 (char-to-string c)))

2587 )

2588

2589 (defun YaTeX-make-accent ()

2590 "Make accent usage."

2591 (interactive)

2592 (message "1:` 2:' 3:^ 4:\" 5:~ 6:= 7:. u v H t c d b")

2593 (let ((c (read-char))(case-fold-search nil))

2594 (setq c (cond ((and (> c ?0) (< c ?8))

2595 (substring "`'^\"~=." (1- (- c ?0)) (- c ?0)))

2596 ((= c ?h) "H")

2597 (t (char-to-string c))))

2598 (if (not (string-match c "`'^\"~=.uvHtcdb")) nil

2599 (insert "\\" c "{}")

2600 (backward-char 1)

2601 (insert (YaTeX-read-accent-char c))

2602 (if (string= c "t") (insert (YaTeX-read-accent-char c)))

2603 (forward-char 1)))

2604 )

2605

2606 ;; Indentation

2607 (defun YaTeX-current-indentation ()

2608 "Return the indentation of current environment."

2609 (save-excursion

2610 ;;(beginning-of-line)

2611 (if (YaTeX-beginning-of-environment t)

2612 (goto-char (get 'YaTeX-inner-environment 'point))

2613 (forward-line -1)

2614 (beginning-of-line)

2615 (skip-chars-forward " \t"))

2616 (current-column))

2617 )

2618

2619 (defun YaTeX-previous-line-indentation ()

2620 (save-excursion

2621 (forward-line -1)

2622 (skip-chars-forward " \t")

2623 (current-column)))

2624

2625 (defun YaTeX-reindent (col)

2626 "Remove current indentation and reindento to COL column."

2627 (save-excursion

2628 (beginning-of-line)

2629 (skip-chars-forward " \t")

2630 (if (/= col (current-column))

2631 (progn

2632 (delete-region (point) (progn (beginning-of-line) (point)))

2633 (indent-to col))))

2634 (skip-chars-forward " \t" (point-end-of-line)))

2635

2636 (defun YaTeX-indent-line ()

2637 "Indent corrent line referrin current environment."

2638 (interactive)

2639 (let ((indent-relative

2640 (function

2641 (lambda (&optional additional)

2642 (YaTeX-reindent

2643 (+ (YaTeX-current-indentation)

2644 (or additional 0)

2645 YaTeX-environment-indent)))))

2646 depth iteminfo (p (point)) pp (peol (point-end-of-line))

2647 ;;inenv below is sometimes defined in YaTeX-indent-new-comment-line

2648 (inenv (or (and (boundp 'inenv) inenv) (YaTeX-inner-environment t))))

2649 ;;(if NTT-jTeX ;;Do you need this section?

2650 ;; (save-excursion

2651 ;; (end-of-line)

2652 ;; (let ((p (point)))

2653 ;; (forward-line -1)

2654 ;; (end-of-line)

2655 ;; (or (= p (point))

2656 ;; (progn (backward-char (length YaTeX-comment-prefix))

2657 ;; (not (looking-at (regexp-quote YaTeX-comment-prefix))))

2658 ;; (progn

2659 ;; (skip-chars-backward YaTeX-comment-prefix)

2660 ;; (kill-line))))))

2661 (or inenv (setq inenv "document")) ;is the default environment

2662 (cond

2663 ((and (YaTeX-on-begin-end-p) (match-beginning 2)) ;if \end

2664 (save-excursion

2665 (beginning-of-line)

2666 (YaTeX-reindent (YaTeX-current-indentation))))

2667 ((string-match YaTeX-equation-env-regexp inenv)

2668 (YaTeX-indent-line-equation)) ;autoload-ed from yatex.env

2669 (;(YaTeX-in-environment-p '("itemize" "enumerate" "description" "list"))

2670 (string-match YaTeX-itemizing-env-regexp inenv)

2671 ;;(YaTeX-on-item-p) ??

2672 ;;(setq iteminfo (YaTeX-get-item-info t))

2673 (if (save-excursion

2674 (beginning-of-line)

2675 (re-search-forward YaTeX-item-regexp peol t))

2676 (save-excursion

2677 (goto-char (1+ (match-beginning 0)))

2678 (setq depth

2679 (* YaTeX-environment-indent

2680 (cond

2681 ((looking-at "subsubsub") 3)

2682 ((looking-at "subsub") 2)

2683 ((looking-at "sub") 1)

2684 (t 0))))

2685 (funcall indent-relative depth))

2686 (YaTeX-reindent (or (car (cdr (YaTeX-get-item-info nil inenv)))

2687 (+ (save-excursion

2688 (beginning-of-line)

2689 (YaTeX-current-indentation))

2690 YaTeX-environment-indent))))

2691 )

2692 ((YaTeX-literal-p) ;verbatims

2693 (tab-to-tab-stop))

2694 ((and inenv (not (equal "document" inenv)))

2695 (funcall indent-relative))

2696 ((YaTeX-on-section-command-p YaTeX-sectioning-regexp)

2697 (require 'yatexsec) ;to know YaTeX-sectioning-level

2698 (YaTeX-reindent

2699 (* (max

2700 (1- ;I want chapter to have indentation 0

2701 (or (cdr (assoc (YaTeX-match-string 1) YaTeX-sectioning-level))

2702 0))

2703 0)

2704 YaTeX-environment-indent)))

2705 ;;Default movement

2706 ((and (bolp) fill-prefix) (insert fill-prefix))

2707 (t (save-excursion

2708 (beginning-of-line)

2709 (skip-chars-forward " \t")

2710 (indent-relative-maybe))

2711 (skip-chars-forward " \t")))

2712 ;;if current line is \begin, re-indent \end too

2713 (if (and (YaTeX-on-begin-end-p) (match-beginning 1))

2714 (save-excursion

2715 ;;(beginning-of-line)

2716 ;;(search-forward "\\begin")

2717 (goto-char (match-beginning 0))

2718 (setq depth (current-column))

2719 (YaTeX-goto-corresponding-environment)

2720 (YaTeX-reindent depth)))

2721 (if (or

2722 (and NTT-jTeX

2723 (save-excursion (beginning-of-line) (looking-at "[ \t]")))

2724 (save-excursion

2725 (beginning-of-line)

2726 (backward-char 1)

2727 (and

2728 (re-search-backward

2729 "\\\\\$\\(page\$?ref\\|cite\\){" (point-beginning-of-line) t)

2730 (goto-char (1- (match-end 0)))

2731 (> (save-excursion

2732 (condition-case ()

2733 (progn (forward-list 1) (point))

2734 (error (point-max))))

2735 (point-end-of-line)))))

2736 (save-excursion

2737 (end-of-line)

2738 (let ((p (point)))

2739 (forward-line -1)

2740 (end-of-line)

2741 (or (= p (point))

2742 (looking-at (regexp-quote YaTeX-comment-prefix))

2743 (bobp) (bolp)

2744 (save-excursion

2745 (backward-word 1)

2746 (looking-at "\\sw+")) ;is not japanese string

2747 (insert YaTeX-comment-prefix))))))

2748 )

2749

2750 (defun YaTeX-local-table-symbol (symbol)

2751 "Return the lisp symbol which keeps local completion table of SYMBOL."

2752 (intern (concat "YaTeX$"

2753 default-directory

2754 (symbol-name symbol)))

2755 )

2756

2757 (defun YaTeX-sync-local-table (symbol)

2758 "Synchronize local variable SYMBOL.

2759 Copy its corresponding directory dependent completion table to SYMBOL."

2760 (if (boundp (YaTeX-local-table-symbol symbol))

2761 (set symbol (symbol-value (YaTeX-local-table-symbol symbol))))

2762 )

2763

2764 (defun YaTeX-read-user-completion-table (&optional forcetoread)

2765 "Append user completion table of LaTeX macros"

2766 (let*((user-table (expand-file-name YaTeX-user-completion-table))

2767 (local-table (expand-file-name (file-name-nondirectory user-table)))

2768 var localvar localbuf (curbuf (current-buffer)) sexp)

2769 (if YaTeX-user-table-is-read nil

2770 (message "Loading user completion table")

2771 (if (file-exists-p user-table) (load-file user-table)

2772 (message "Welcome to the field of YaTeX. I'm glad to see you!")))

2773 (setq YaTeX-user-table-is-read t)

2774 (cond

2775 ((file-exists-p local-table)

2776 (set-buffer (setq localbuf (find-file-noselect local-table)))

2777 (widen)

2778 (goto-char (point-min))

2779 (while (re-search-forward "(setq \$[^ ]+\$" nil t)

2780 (setq var (intern (buffer-substring

2781 (match-beginning 1) (match-end 1)))

2782 localvar (YaTeX-local-table-symbol var))

2783 (goto-char (match-beginning 0))

2784 (setq sexp (buffer-substring (point)

2785 (progn (forward-sexp) (point))))

2786 (set-buffer curbuf)

2787 (or (assq var (buffer-local-variables)) (make-local-variable var))

2788 (eval (read sexp))

2789 (or (and (boundp localvar)

2790 (symbol-value localvar)

2791 (not forcetoread))

2792 (set localvar (symbol-value var)))

2793 (set-buffer localbuf))

2794 (kill-buffer localbuf)))

2795 (set-buffer curbuf))

2796 )

2797

2798 (defun YaTeX-reload-dictionary ()

2799 "Reload local dictionary.

2800 Use this function after editing ./.yatexrc."

2801 (interactive)

2802 (let ((YaTeX-user-table-is-read nil))

2803 (YaTeX-read-user-completion-table t))

2804 )

2805

2806 (defun YaTeX-lookup-table (word type)

2807 "Lookup WORD in completion table whose type is TYPE.

2808 This function refers the symbol tmp-TYPE-table, user-TYPE-table, TYPE-table.

2809 Typically, TYPE is one of 'env, 'section, 'fontsize, 'singlecmd."

2810 (if (symbolp type) (setq type (symbol-name type)))

2811 (or (assoc word (symbol-value (intern (concat "tmp-" type "-table"))))

2812 (assoc word (symbol-value (intern (concat "user-" type "-table"))))

2813 (assoc word (symbol-value (intern (concat type "-table"))))))

2814

2815 (defun YaTeX-update-table (vallist default-table user-table local-table)

2816 "Update completion table if the car of VALLIST is not in current tables.

2817 Second argument DEFAULT-TABLE is the quoted symbol of default completion

2818 table, third argument USER-TABLE is user table which will be saved in

2819 YaTeX-user-completion-table, fourth argument LOCAL-TABLE should have the

2820 completion which is valid during current Emacs's session. If you

2821 want to make LOCAL-TABLE valid longer span (but restrict in this directory)

2822 create the file in current directory which has the same name with

2823 YaTeX-user-completion-table."

2824 (let ((car-v (car vallist)) key answer

2825 (file (file-name-nondirectory YaTeX-user-completion-table)))

2826 (cond

2827 ((assoc car-v (symbol-value default-table))

2828 nil) ;Nothing to do

2829 ((setq key (assoc car-v (symbol-value user-table)))

2830 (if (equal (cdr vallist) (cdr key)) nil

2831 ;; if association hits, but contents differ.

2832 (message

2833 "%s's attributes turned into %s" (car vallist) (cdr vallist))

2834 (set user-table (delq key (symbol-value user-table)))

2835 (set user-table (cons vallist (symbol-value user-table)))

2836 (YaTeX-update-dictionary

2837 YaTeX-user-completion-table user-table "user")))

2838 ((setq key (assoc car-v (symbol-value local-table)))

2839 (if (equal (cdr vallist) (cdr key)) nil

2840 (message

2841 "%s's attributes turned into %s" (car vallist) (cdr vallist))

2842 (set local-table (delq key (symbol-value local-table)))

2843 (set local-table (cons vallist (symbol-value local-table)))

2844 (set (YaTeX-local-table-symbol local-table) (symbol-value local-table))

2845 (YaTeX-update-dictionary file local-table)))

2846 ;; All of above cases, there are some completion in tables.

2847 ;; Then update tables.

2848 (t

2849 (if (not YaTeX-nervous)

2850 (setq answer "u")

2851 (message

2852 "`%s' is not in table. Register into: U)serDic L)ocalDic N)one D)iscard"

2853 (car vallist))

2854 (setq answer (char-to-string (read-char))))

2855 (cond

2856 ((string-match answer "uy")

2857 (set user-table (cons vallist (symbol-value user-table)))

2858 (YaTeX-update-dictionary YaTeX-user-completion-table user-table "user")

2859 )

2860 ((string-match answer "tl")

2861 (set local-table (cons vallist (symbol-value local-table)))

2862 (set (YaTeX-local-table-symbol local-table) (symbol-value local-table))

2863 (YaTeX-update-dictionary file local-table))

2864 ((string-match answer "d") nil) ;discard it

2865 (t (set default-table

2866 (cons vallist (symbol-value default-table))))))))

2867 )

2868

2869 (defun YaTeX-cplread-with-learning

2870 (prom default-table user-table local-table

2871 &optional pred reqmatch init hsym)

2872 "Completing read with learning.

2873 Do a completing read with prompt PROM. Completion table is what

2874 DEFAULT-TABLE, USER-TABLE, LOCAL table are appended in reverse order.

2875 Note that these tables are passed by the symbol.

2876 Optional arguments PRED, REQMATH and INIT are passed to completing-read

2877 as its arguments PREDICATE, REQUIRE-MATCH and INITIAL-INPUT respectively.

2878 If optional 8th argument HSYM, history symbol, is passed, use it as

2879 history list variable."

2880 (YaTeX-sync-local-table local-table)

2881 (let*((table (append (symbol-value local-table)

2882 (symbol-value user-table)

2883 (symbol-value default-table)))

2884 (word (completing-read-with-history

2885 prom table pred reqmatch init hsym)))

2886 (if (and (string< "" word) (not (assoc word table)))

2887 (YaTeX-update-table (list word) default-table user-table local-table))

2888 word)

2889 )

2890

2891 (defun YaTeX-update-dictionary (file symbol &optional type)

2892 (let ((local-table-buf (find-file-noselect file))

2893 (name (symbol-name symbol))

2894 (value (symbol-value symbol)))

2895 (save-excursion

2896 (message "Updating %s dictionary..." (or type "local"))

2897 (set-buffer local-table-buf)

2898 (goto-char (point-max))

2899 (search-backward (concat "(setq " name) nil t)

2900 (delete-region (point) (progn (forward-sexp) (point)))

2901 (delete-blank-lines)

2902 (insert "(setq " name " '(\n")

2903 (mapcar '(lambda (s)

2904 (insert (format "%s\n" (prin1-to-string s))))

2905 value)

2906 (insert "))\n\n")

2907 (delete-blank-lines)

2908 (basic-save-buffer)

2909 (kill-buffer local-table-buf)

2910 (message "Updating %s dictionary...Done" (or type "local"))))

2911 )

2912

2913 ;; --------------- General sub functions ---------------

2914 (defun point-beginning-of-line ()

2915 (save-excursion (beginning-of-line)(point))

2916 )

2917

2918 (defun point-end-of-line ()

2919 (save-excursion (end-of-line)(point))

2920 )

2921

2922

2923 (provide 'yatex)

2924 (defvar yatex-mode-load-hook nil

2925 "*List of functions to be called when yatex.el is loaded.")

2926 (if (and YaTeX-emacs-19 window-system (not (featurep 'yatex19)))

2927 (load "yatex19"))

2928 (load "yatexhks" t)

2929

2930 ;;-------------------- Final hook jobs --------------------

2931 (substitute-all-key-definition

2932 'fill-paragraph 'YaTeX-fill-paragraph YaTeX-mode-map)

2933 (run-hooks 'yatex-mode-load-hook)

2934

2935 ;; `History' was moved to ChangeLog

2936 ;----------------------------- End of yatex.el -----------------------------