yatex: cf7352dfa40c yatex.el

yatex

view yatex.el @ 195:cf7352dfa40c

Update copyright line.

author	yuuji@gentei.org
date	Mon, 09 Jan 2012 20:21:13 +0900
parents	2af7a6ba45cd
children	701d87b607e0

line source

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

2 ;;; Yet Another tex-mode for emacs - //野鳥//

3 ;;; yatex.el rev. 1.74.7

5 ;;; Last modified Mon Jan 9 20:12:52 2012 on firestorm

6 ;;; $Id$

7 ;;; The latest version of this software is always available at;

8 ;;; http://www.yatex.org/

10 (require 'comment)

11 (require 'yatexlib)

12 (defconst YaTeX-revision-number "1.74.7"

13 "Revision number of running yatex.el")

15 ;---------- Local variables ----------

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

17 "*Prefix key to call YaTeX functions.

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

20 (defvar YaTeX-environment-indent 1

21 "*Indentation depth at column width in LaTeX environments.")

23 (defvar YaTeX-fill-prefix nil

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

25 The default value is nil.")

27 (defvar YaTeX-fill-column 72

28 "*fill-column used for auto-fill-mode.")

30 (defvar YaTeX-comment-prefix "%"

31 "TeX comment prefix.")

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

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

35 All of YaTeX completing input store the current position into

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

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

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

39 YaTeX-current-position-register.")

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

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

43 ;;There are two switching unit:

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

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

46 ;;)

47 (defvar YaTeX-use-LaTeX2e t "*Use LaTeX2e or not. Nil meas latex 2.09")

49 (defvar tex-command

50 (cond

51 (YaTeX-use-LaTeX2e "platex")

52 (YaTeX-japan "jlatex")

53 (t "latex"))

54 "*Default command for typesetting LaTeX text.")

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

57 "*Default command of BibTeX.")

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

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

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

62 "*Default previewer command including its option.

63 This default value is for X window system.")

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

66 "*Default makeindex command.")

68 (defvar dviprint-command-format

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

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

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

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

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

74 %f and %t.

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

77 (defvar dviprint-from-format

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

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

81 (defvar dviprint-to-format

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

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

85 (defvar YaTeX-dvipdf-command

86 "dvipdfmx"

87 "*Command name to convert dvi file to PDF.")

89 (defvar YaTeX-default-document-style

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

91 "*Default LaTeX Documentstyle for YaTeX-typeset-region.")

93 (defvar YaTeX-need-nonstop nil

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

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

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

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

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

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

102 LaTeX source text.")

103

104 (defvar latex-dos-emergency-message

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

106 "Message pattern of emergency stop of typesetting.

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

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

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

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

111 latex command on DOS shown at abnormal termination.

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

113 process.")

114

115 (defvar NTT-jTeX nil

116 "*T for using NTT-jTeX for latex command.

117 More precisely, setting t to this variables inhibits inter-word break on

118 typeset document by line-break of source text. That is, YaTeX automatically

119 put % after each line at filling.

120 改行+インデントによって、タイプセット後の字間が空いてしまうのを抑制する場合に

121 tにする(古いNTT-jTeXで顕著に現れる)。具体的には、fillするときに各行の終わりに

122 %を付加する。")

123

124

125 (defvar YaTeX-item-regexp

126 (concat (regexp-quote "\\") "\$sub\\|bib\$*item")

127 "*Regular expression of item command.")

128

129 (defvar YaTeX-sectioning-regexp

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

131 "*LaTeX sectioning commands regexp.")

132

133 (defvar YaTeX-paragraph-start

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

135 YaTeX-sectioning-regexp ;sectioning commands

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

137 "\\|\\[\\|\\]"

138 "\\|newpage\\b\\|vspace\\b"

139 "\\)")

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

141 for YaTeX-uncomment-paragraph.")

142

143 (defvar YaTeX-paragraph-separate

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

145 YaTeX-sectioning-regexp ;sectioning commands

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

147 "\\|\\[\\|\\]"

148 "\\|newpage\\b\\|vspace\\b"

149 "\\)")

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

151 for YaTeX-uncomment-paragraph.")

152

153 (defvar YaTeX-verbatim-environments

154 '("verbatim" "verbatim*" "alltt")

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

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

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

158 (defvar YaTeX-fill-inhibit-environments

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

160 "equation" "equation*" "math" "displaymath")

161 YaTeX-verbatim-environments)

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

163 Define those environments as a form of list.")

164

165 (defvar YaTeX-itemizing-env-regexp

166 "itemize\\|enumerate\\|description\\|list\\|thebibliography"

167 "*Regexp of itemizing environments")

168 (defvar YaTeX-equation-env-regexp

169 "array\\*?\\|equation\\*?"

170 "*Regexp of environments for equations")

171 (defvar YaTeX-array-env-regexp

172 (concat

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

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

176 "[bpvV]?matrix\\|smallmatrix\\|cases\\|" ;AMS-LaTeX

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

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

179 (defvar YaTeX-uncomment-once t

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

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

182

183 (defvar YaTeX-close-paren-always t

184 "*Close parenthesis always when YaTeX-modify-mode is nil.")

185

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

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

188

189 (defvar YaTeX-auto-math-mode t

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

191 (defvar YaTeX-use-AMS-LaTeX nil

192 "*T for using AMS-LaTeX")

193

194 (defvar yatex-mode-hook nil

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

196

197 (defvar YaTeX-search-file-from-top-directory t

198 "*Non-nil means to search input-files from the directory where main file exists.")

199

200 (defvar YaTeX-use-font-lock (and (featurep 'font-lock)

201 (fboundp 'x-color-values)

202 (fboundp 'font-lock-fontify-region))

203 "*Use font-lock to fontify buffer or not.")

204

205 (defvar YaTeX-use-hilit19 (and (featurep 'hilit19) (fboundp 'x-color-values)

206 (fboundp 'hilit-translate)

207 (not YaTeX-use-font-lock))

208 "*Use hilit19 to highlight buffer or not.")

209

210 (defvar YaTeX-tabular-indentation 4

211 "*Indentation column-depth of continueing line in tabular environment.")

212

213 ;;-- Math mode values --

214

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

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

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

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

219

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

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

222

223 (defvar YaTeX-math-key-list

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

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

226

227 (defvar YaTeX-skip-default-reader nil

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

229

230 (defvar YaTeX-simple-messages nil

231 "Non-nil makes minibuffer messages simpler.")

232

233 (defvar YaTeX-template-file "~/work/template.tex"

234 "*Template TeX source file. This will be inserted to empty file.")

235

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

237

238 (defvar yatex-mode-abbrev-table nil

239 "*Abbrev table in use in yatex-mode buffers.")

240 (define-abbrev-table 'yatex-mode-abbrev-table ())

241

242

243 ;------------ Completion table ------------

244 ; Set tex-section-like command possible completion

245 (defvar section-table

246 (append

247 '(("part") ("chapter") ("chapter*") ("section") ("section*")

248 ("subsection") ("subsection*")

249 ("subsubsection") ("paragraph") ("subparagraph")

250 ("author") ("thanks") ("documentstyle") ("pagestyle") ("thispagestyle")

251 ("title") ("underline") ("label") ("makebox")

252 ("footnote") ("footnotetext") ("index")

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

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

255 ("arabic")

256 ("newcounter")

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

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

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

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

261 ("cline") ("framebox") ("savebox" 2) ("sbox" 2) ("newsavebox") ("usebox")

262 ("date") ("put") ("ref") ("pageref") ("tabref") ("figref") ("raisebox" 2)

263 ("multicolumn" 3) ("shortstack") ("parbox" 2)

264 ;; for mathmode accent

265 ("tilde") ("hat") ("check") ("bar") ("dot") ("ddot") ("vec")

266 ("widetilde") ("widehat") ("overline") ("overrightarrow")

267 ;; section types in mathmode

268 ("frac" 2) ("sqrt") ("mathrm") ("mathbf") ("mathit")

269

270 )

271 (if YaTeX-use-LaTeX2e

272 '(("documentclass") ("usepackage")

273 ("textbf") ("textgt") ("textit") ("textmc") ("textmd") ("textnormal")

274 ("textrm") ("textsc") ("textsf") ("textsl") ("texttt") ("textup")

275 ("mathbf") ("mathcal") ("mathit") ("mathnormal") ("mathrm")

276 ("mathsf") ("mathtt")

277 ("textcircled")

278 ("scalebox" 1) ;is faking of argument position

279 ("rotatebox" 2) ("resizebox" 3) ("reflectbox")

280 ("colorbox" 2) ("fcolorbox" 3) ("textcolor" 2) ("color") ("pagecolor")

281 ("includegraphics") ("includegraphics*")

282 ("bou") ;defined in plext

283 ("url") ;defined in url

284 ("shadowbox") ("doublebox") ("ovalbox") ("Ovalbox")

285 ("fancyoval") ;defined in fancybox

286 ("keytop") ("mask" 2) ("maskbox" 5) ;defined in ascmac

287 ("bm") ;deined in bm

288 ("verbfile") ("listing") ;defined in misc

289 ("slashbox" 2) ("backslashbox" 2) ;defined in slashbox

290 ))

291 (if YaTeX-use-AMS-LaTeX

292 '(("DeclareMathOperator" 2) ("boldsymbol") ("pmb") ("eqref")

293 ("tag") ("tag*"))))

294 "Default completion table for section-type completion.")

295

296 (defvar user-section-table nil)

297 (defvar tmp-section-table nil)

298 (defvar YaTeX-ams-math-begin-alist

299 '(("align") ("align*") ("multline") ("multline*") ("gather") ("gather*")

300 ("alignat") ("alignat*") ("xalignat") ("xalignat*")

301 ("xxalignat") ("xxalignat*") ("flalign") ("flalign*") ("equation*")))

302 (defvar YaTeX-ams-math-gathering-alist

303 '(("matrix") ("pmatrix") ("bmatrix") ("Bmatrix") ("vmatrix") ("Vmatrix")

304 ("split") ("split*") ("aligned") ("aligned*") ("alignedat") ("gathered")

305 ("smallmatrix") ("cases") ("subequations")))

306 ;; Prepare list(not alist) for YaTeX::ref in yatexadd.el

307 (defvar YaTeX-math-begin-list

308 (mapcar 'car YaTeX-ams-math-begin-alist))

309 (defvar YaTeX-math-gathering-list ;used in yatexadd.el#yatex::ref

310 (mapcar 'car YaTeX-ams-math-gathering-alist))

311

312

313 (defvar YaTeX-ams-env-table

314 (append YaTeX-ams-math-begin-alist YaTeX-ams-math-gathering-alist)

315 "*Standard AMS-LaTeX(2e) environment completion table.")

316

317 ; Set tex-environment possible completion

318 (defvar env-table

319 (append

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

321 ("verbatim") ("itemize") ("enumerate") ("description")

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

323 ("sloppypar") ("picture") ("displaymath")

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

325 ("thebibliography") ("theindex") ("flushleft") ("flushright")

326 ("minipage")

327 ("supertabular")

328 )

329 (if YaTeX-use-LaTeX2e

330 '(("comment") ;defined in version

331 ("longtable") ;defined in longtable

332 ("screen") ("boxnote") ("shadebox") ;; ("itembox") ;in ascmac

333 ("alltt") ;defined in alltt

334 ("multicols") ;defined in multicol

335 ("breakbox"))) ;defined in eclbkbox

336 (if YaTeX-use-AMS-LaTeX YaTeX-ams-env-table))

337 "Default completion table for begin-type completion.")

338

339 (defvar user-env-table nil)

340 (defvar tmp-env-table nil)

341

342 ; Set {\Large }-like completion

343 (defvar fontsize-table

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

345 ("dg") ("dm")

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

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

348 ("rmfamily") ("sffamily") ("ttfamily")

349 ("mdseries") ("bfseries") ("upshape")

350 ("itshape") ("slshape") ("scshape")

351 )

352 "Default completion table for large-type completion.")

353

354 (defvar LaTeX2e-fontstyle-alist

355 '(("rm" . "rmfamily")

356 ("sf" . "sffamily")

357 ("tt" . "ttfamily")

358 ("md" . "mdseries")

359 ("bf" . "bfseries")

360 ("up" . "upshape")

361 ("it" . "itshape")

362 ("sl" . "slshape")

363 ("sc" . "scshape")))

364

365 (defvar user-fontsize-table nil)

366 (defvar tmp-fontsize-table nil)

367

368 (defvar singlecmd-table

369 (append

370 '(("maketitle") ("makeindex") ("sloppy") ("protect") ("par")

371 ("LaTeX") ("TeX") ("item") ("item[]") ("appendix") ("hline") ("kill")

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

373 ("pagebreak") ("nopagebreak") ("tableofcontents")

374 ("newpage") ("clearpage") ("cleardoublepage")

375 ("footnotemark") ("verb") ("verb*")

376 ("linebreak") ("pagebreak") ("noindent") ("indent")

377 ("left") ("right") ("dots") ("smallskip") ("medskip") ("bigskip")

378 ("displaystyle")

379 )

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

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

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

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

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

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

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

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

388 (if YaTeX-use-LaTeX2e

389 '(("return") ("Return") ("yen"))) ;defined in ascmac

390 (if YaTeX-use-AMS-LaTeX

391 '(("nonumber")))

392 )

393 "Default completion table for maketitle-type completion.")

394

395 (defvar user-singlecmd-table nil)

396 (defvar tmp-singlecmd-table nil)

397

398 ;---------- Key mode map ----------

399 ;;;

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

401 ;; Do not change this section.

402 ;;;

403 (defvar YaTeX-mode-map nil

404 "Keymap used in YaTeX mode")

405

406 (defvar YaTeX-prefix-map nil

407 "Keymap used when YaTeX-prefix key pushed")

408

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

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

411 (defvar YaTeX-current-completion-type nil

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

413

414 (defvar YaTeX-modify-mode nil

415 "*Current editing mode.

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

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

418

419 (defvar YaTeX-math-mode nil

420 "Holds whether current mode is math-mode.")

421 ;;;

422 ;; Define key table

423 ;;;

424 (if YaTeX-mode-map

425 nil

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

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

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

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

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

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

432 (define-key YaTeX-mode-map "|" 'YaTeX-insert-bar)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

449 (and YaTeX-emacs-19 window-system

450 (progn

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

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

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

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

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

456

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

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

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

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

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

462 (YaTeX-define-key "\\"

463 '(lambda () (interactive)

464 (insert (if (YaTeX-in-math-mode-p) "\\backslash" "\\textbackslash"))))

465 (if YaTeX-no-begend-shortcut

466 (progn

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

507 (YaTeX-define-key "n"

508 '(lambda () (interactive)

509 (insert "\\" (if (YaTeX-on-section-command-p "o?oalign") "crcr" "\\"))))

510 (if YaTeX-dos

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

512 '(lambda () (interactive)

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

514

515 (defvar YaTeX-section-completion-map nil

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

517 (if YaTeX-section-completion-map nil

518 (setq YaTeX-section-completion-map

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

520 gmhist-completion-map)

521 minibuffer-local-completion-map)))

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

523 " " 'YaTeX-minibuffer-complete)

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

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

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

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

528

529 (defvar YaTeX-recursive-map nil

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

531 (if YaTeX-recursive-map nil

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

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

534 (mapcar

535 (function

536 (lambda (key)

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

538 (define-key YaTeX-recursive-map (car key) 'YaTeX-math-insert-sequence)))

539 YaTeX-math-key-list))

540 ;---------- Define other variable ----------

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

542 (defvar YaTeX-section-name

543 (if YaTeX-use-LaTeX2e "documentclass" "documentstyle")

544 "*Initial tex-section completion")

545 (defvar YaTeX-fontsize-name "large" "*Initial fontsize completion")

546 (defvar YaTeX-single-command "maketitle" "*Initial LaTeX single command")

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

548 "*File kanji code used by Japanese TeX.

549 nil: Do not care (Preserve coding-system)

550 0: no-converion (mule)

551 1: Shift JIS

552 2: JIS

553 3: EUC

554 4: UTF-8")

555

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

557 (cond

558 (YaTeX-emacs-20

559 (setq YaTeX-coding-system

560 (cdr (assoc YaTeX-kanji-code YaTeX-kanji-code-alist))))

561 ((boundp 'MULE)

562 (setq YaTeX-coding-system

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

564

565 (defvar YaTeX-mode-syntax-table nil

566 "*Syntax table for yatex-mode")

567

568 (if YaTeX-mode-syntax-table nil

569 (setq YaTeX-mode-syntax-table (make-syntax-table (standard-syntax-table)))

570 (modify-syntax-entry ?\n " " YaTeX-mode-syntax-table)

571 (modify-syntax-entry ?\{ "(}" YaTeX-mode-syntax-table)

572 (modify-syntax-entry ?\} "){" YaTeX-mode-syntax-table)

573 (modify-syntax-entry ?\t " " YaTeX-mode-syntax-table)

574 (modify-syntax-entry ?\f ">" YaTeX-mode-syntax-table)

575 (modify-syntax-entry ?\n ">" YaTeX-mode-syntax-table)

576 (modify-syntax-entry ?$ "$$" YaTeX-mode-syntax-table)

577 (modify-syntax-entry ?% "<" YaTeX-mode-syntax-table)

578 (modify-syntax-entry ?\\ "/" YaTeX-mode-syntax-table)

579 (modify-syntax-entry ?~ " " YaTeX-mode-syntax-table))

580

581 ;---------- Provide YaTeX-mode ----------

582 ;;;

583 ;; Major mode definition

584 ;;;

585 (defun yatex-mode ()

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

587 -You can invoke processes concerning LaTeX typesetting by

588 \\[YaTeX-typeset-menu]

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

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

591 -Enclose region into some environment by

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

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

594 \\[YaTeX-make-section]

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

596 \\[YaTeX-make-singlecmd]

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

598 \\[YaTeX-make-fontsize]

599 -Enclose region into those descriptors above by

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

601 -Enter European accent notations by

602 \\[YaTeX-make-accent]

603 -Toggle various modes of YaTeX by

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

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

606 \\[YaTeX-change-*]

607 -Kill LaTeX command/environment sequences by

608 \\[YaTeX-kill-*]

609 -Kill LaTeX command/environment with its contents

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

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

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

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

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

615 -Go to main LaTeX source text by

616 \\[YaTeX-visit-main] or

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

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

619 -Comment out or uncomment region by

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

621 -Comment out or uncomment paragraph by

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

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

624 \\[YaTeX-fill-item]

625 -Enclose the region with parentheses by

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

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

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

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

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

631 \\[YaTeX-what-column]

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

633 \\[YaTeX-intelligent-newline]

634 -View the structure of file inclusion by

635 \\[YaTeX-display-hierarchy]

636 -Refer the online help of popular LaTeX commands by

637 \\[YaTeX-help] (help)

638 \\[YaTeX-apropos] (apropos)

639 -Edit `%# notation' by

640 \\[YaTeX-%-menu]

641

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

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

644 "

645 (interactive)

646 (kill-all-local-variables)

647 (setq major-mode 'yatex-mode)

648 (setq mode-name (if YaTeX-japan "やてふ" "YaTeX"))

649 (mapcar 'make-local-variable

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

651 tmp-env-table tmp-section-table tmp-fontsize-table

652 tmp-singlecmd-table paragraph-start paragraph-separate

653 YaTeX-math-mode indent-line-function comment-line-break-function

654 comment-start comment-start-skip

655 ))

656 (cond ((null YaTeX-kanji-code)

657 nil)

658 ((boundp 'MULE)

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

660 ((and YaTeX-emacs-20 (boundp 'buffer-file-coding-system))

661 (setq buffer-file-coding-system

662 (or (and (fboundp 'set-auto-coding) buffer-file-name

663 (save-excursion

664 (goto-char (point-min))

665 (set-auto-coding buffer-file-name (buffer-size))))

666 YaTeX-coding-system)))

667 ((featurep 'mule)

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

669 ((boundp 'NEMACS)

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

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

672 (setq fill-column YaTeX-fill-column

673 fill-prefix YaTeX-fill-prefix

674 paragraph-start YaTeX-paragraph-start

675 paragraph-separate YaTeX-paragraph-separate

676 indent-line-function 'YaTeX-indent-line

677 comment-start YaTeX-comment-prefix

678 comment-end ""

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

680 local-abbrev-table yatex-mode-abbrev-table)

681 (if (fboundp 'comment-indent-new-line) ;for Emacs21

682 (setq comment-line-break-function 'YaTeX-comment-line-break))

683

684 (if (and YaTeX-use-font-lock (featurep 'font-lock))

685 (progn

686 (require 'yatex19)

687 (YaTeX-font-lock-set-default-keywords)

688 (or (featurep 'xemacs)

689 (set (make-local-variable 'font-lock-defaults)

690 (get 'yatex-mode 'font-lock-defaults)))

691 ;;(font-lock-mode 1)

692 ))

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

694 (set-syntax-table YaTeX-mode-syntax-table)

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

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

697 (and (fboundp 'YaTeX-hilit-setup-alist) (YaTeX-hilit-setup-alist))

698 (makunbound 'inenv)

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

700 (and (= 0 (buffer-size)) (file-exists-p YaTeX-template-file)

701 (y-or-n-p (format "Insert %s?" YaTeX-template-file))

702 (insert-file-contents (expand-file-name YaTeX-template-file)))

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

704

705 ;---------- Define YaTeX-mode functions ----------

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

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

708 (defvar YaTeX-struct-begin

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

710 "Keyword format of begin-environment.")

711 (defvar YaTeX-struct-end

712 (concat YaTeX-ec "end{%1}")

713 "Keyword format of end-environment.")

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

715 "Environment name regexp.")

716 (defvar YaTeX-TeX-token-regexp

717 (cond (YaTeX-japan "[A-Za-z*ぁ-ん亜-龠]+")

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

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

720 (defvar YaTeX-kanji-regexp "[ぁ-ん亜-龠]"

721 "Generic regexp of Japanese Kanji (and symbol) characters.")

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

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

724

725 ;;(defvar YaTeX-struct-section

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

727 ;; "Keyword to make section.")

728

729 ;;;

730 ;; autoload section

731 ;;;

732

733 ;;autoload from yatexprc.el

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

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

736 "Visit main other window." t)

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

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

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

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

741

742 ;;autoload from yatexmth.el

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

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

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

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

747 (autoload 'YaTeX-insert-amsparens-region "yatexmth" "AMS parens region" t)

748 (autoload 'YaTeX-insert-amsbraces-region "yatexmth" "AMS braces region" t)

749 (autoload 'YaTeX-insert-amsbrackets-region "yatexmth" "AMS brackets region" t)

750 (autoload 'YaTeX-on-parenthesis-p "yatexmth" "Check if on math-parens" t)

751 (autoload 'YaTeX-goto-open-paren "yatexmth" "Goto opening paren" t)

752 (autoload 'YaTeX-change-parentheses "yatexmth" "Change corresponding parens" t)

753 (autoload 'YaTeX-goto-corresponding-paren "yatexmth" "\bigl\bigr jumps" t)

754 (autoload 'YaTeX-typeset-math-region "yatexmth" "Typeset math-region" t)

755

756 ;;autoload from yatexhlp.el

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

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

759

760 ;;autoload from yatexgen.el

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

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

763

764 ;;autoload from yatexsec.el

765 (autoload 'YaTeX-section-overview "yatexsec" "YaTeX sectioning(view)" t)

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

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

768

769 ;;autoload from yatexenv.el

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

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

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

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

774

775 ;;autoload from yatexhie.el

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

777 "YaTeX document hierarchy browser" t)

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

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

780

781 ;;autoload from yatexpkg.el

782 (autoload 'YaTeX-package-auto-usepackage "yatexpkg" "Auto \\usepackage" t)

783

784 ;;;

785 ;; YaTeX-mode functions

786 ;;;

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

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

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

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

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

792 (arg region-mode) ;for old compatibility

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

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

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

796 (setq exchange t

797 ccol (current-column)

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

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

800 (setq beg (point))

801 (YaTeX-insert-struc 'begin env)

802 (setq beg2 (point))

803 (insert "\n")

804 (indent-to indent-column)

805 (save-excursion

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

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

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

809 (indent-to indent-column)

810 (forward-line -1)))

811 (require 'yatexenv)

812 (if region-mode

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

814 (save-excursion

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

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

817 (point) (mark))

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

819 (if (eolp) nil

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

821 (indent-to indent-column))))))

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

823 (indent-to ccol)

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

825 (YaTeX-insert-struc 'end env)

826 (YaTeX-reindent ccol)

827 (if region-mode

828 (progn

829 (insert "\n")

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

831 (goto-char beg2)

832 (if (intern-soft (concat "YaTeX-intelligent-newline-" env))

833 (progn

834 (YaTeX-intelligent-newline nil)

835 (message

836 (cond

837 (YaTeX-japan "%s で次の行の入力に進みます。")

838 (t "`%s' produces the next line's template."))

839 (key-description

840 (car (where-is-internal 'YaTeX-intelligent-newline))))))

841 (YaTeX-indent-line))

842 (YaTeX-package-auto-usepackage env 'env)

843 (if YaTeX-current-position-register

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

845

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

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

848 by completing read.

849 If you invoke this command with universal argument,

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

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

852 (interactive "P")

853 (let*

854 ((mode (if arg " region" ""))

855 (env

856 (YaTeX-read-environment

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

858 (if (string= env "")

859 (setq env YaTeX-env-name))

860 (setq YaTeX-env-name env)

861 (YaTeX-update-table

862 (list YaTeX-env-name) 'env-table 'user-env-table 'tmp-env-table)

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

864

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

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

867 (interactive)

868 (YaTeX-make-begin-end t))

869

870 (defun YaTeX-guess-section-type ()

871 (if (eq major-mode 'yatex-mode)

872 (save-excursion

873 (cond

874 ((save-excursion (not (search-backward YaTeX-ec nil t)))

875 (if YaTeX-use-LaTeX2e "documentclass" "documentstyle"))

876 ((progn

877 (if (= (char-after (1- (point))) ?~) (forward-char -1))

878 (forward-char -1) (looking-at "表\\|図\\|式\\|第"))

879 "ref")

880 ((and (looking-at "[a-z \t]")

881 (progn (skip-chars-backward "a-z \t")

882 (looking-at "table\\|figure\\|formula")))

883 "ref")

884 ((save-excursion

885 (skip-chars-backward "[^ア-ン]")

886 (looking-at "プログラム\\|リスト"))

887 "ref")

888 ((YaTeX-re-search-active-backward

889 (concat YaTeX-ec-regexp "begin{\$[^}]+\$}")

890 (regexp-quote YaTeX-comment-prefix)

891 (save-excursion (forward-line -1) (point))

892 t)

893 (let ((env (YaTeX-match-string 1)))

894 (cdr (assoc env

895 '(("table" . "caption"))))))

896 ))))

897

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

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

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

901 LaTeX command.

902 For example, if you want to produce LaTeX command

903

904 \\addtolength{\\topmargin}{8mm}

905

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

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

908 $by default$

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

910 next time.

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

912

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

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

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

916 (interactive "P")

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

918 (if (equal arg '(4)) (setq beg (region-beginning) end (region-end)))

919 (unwind-protect

920 (let*

921 ((source-window (selected-window))

922 guess

923 (section

924 (or cmd

925 (progn

926 (setq guess

927 (or (YaTeX-guess-section-type) YaTeX-section-name))

928 (YaTeX-read-section

929 (if YaTeX-simple-messages

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

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

932 (format "%s???{} (default %s)%s: "

933 YaTeX-ec guess

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

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

936 YaTeX-ec (if beg "region" "") guess)))

937 nil))))

938 (section (if (string= section "") guess section))

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

940 (or (and (numberp arg) arg)

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

942 1))

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

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

945 (title "")

946 (j 1)

947 (after-change-functions nil) ;inhibit font-locking temporarily

948 (enable-recursive-minibuffers t)

949 (mkarg-func

950 (function

951 (lambda (n)

952 (while (<= j n)

953 (insert

954 (concat ;to allow nil return value

955 "{"

956 (setq title

957 (cond

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

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

960 (t

961 (read-string

962 (format "Argument %d of %s: " j section)))))

963 "}"))

964 (setq j (1+ j))))))

965 );;let

966 (setq YaTeX-section-name section)

967 (if beg

968 (let*((e (make-marker))

969 (ar2 (intern-soft (concat "YaTeX::" section "-region")))

970 (arp (and ar2 (fboundp ar2))))

971 (goto-char end)

972 (insert "}")

973 (set-marker e (point))

974 (goto-char beg)

975 (insert YaTeX-ec YaTeX-section-name

976 (YaTeX-addin YaTeX-section-name))

977 (if (> numarg 1) (funcall mkarg-func (1- numarg)))

978 (insert "{")

979 (if arp (funcall ar2 (point) e))

980 (goto-char e)

981 (set-marker e nil))

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

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

984 (progn (insert YaTeX-ec YaTeX-section-name)

985 (insert (YaTeX-addin YaTeX-section-name))))

986 ;;read arguments with add-in

987 (funcall mkarg-func numarg))

988 (YaTeX-update-table

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

990 (list section))

991 'section-table 'user-section-table 'tmp-section-table)

992 (if YaTeX-current-position-register

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

994 (if (string= (YaTeX-buffer-substring (- (point) 2) (point))

995 "{}")

996 (forward-char -1))

997 (while (string= (YaTeX-buffer-substring (- (point) 3) (1- (point)))

998 "{}")

999 (forward-char -2))

1000 (YaTeX-package-auto-usepackage section 'section))

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

1002 (insert ""))) ;insert dummy string to fontify(Emacs20)

1003

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

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

1006 (interactive "P\nr")

1007 (YaTeX-make-section args beg end))

1008

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

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

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

1012 into {\\xxx } braces.

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

1014 (interactive "P")

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

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

1017 (fontsize

1018 (or fontsize

1019 (YaTeX-read-fontsize

1020 (if YaTeX-simple-messages

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

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

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

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

1025 nil nil))))

1026 (if (string= fontsize "")

1027 (setq fontsize YaTeX-fontsize-name))

1028 (setq YaTeX-current-completion-type 'large)

1029 (setq YaTeX-fontsize-name fontsize)

1030 (YaTeX-update-table

1031 (list YaTeX-fontsize-name)

1032 'fontsize-table 'user-fontsize-table 'tmp-fontsize-table)

1033 (and YaTeX-use-LaTeX2e

1034 (YaTeX-latex2e-p)

1035 (setq fontsize

1036 (cdr (assoc YaTeX-fontsize-name LaTeX2e-fontstyle-alist)))

1037 (setq YaTeX-fontsize-name fontsize))

1038 (if arg

1039 (save-excursion

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

1041 (insert "{\\" YaTeX-fontsize-name " ")

1042 (exchange-point-and-mark)

1043 (insert "}"))

1044 (insert (concat "{\\" YaTeX-fontsize-name " }"))

1045 (forward-char -1)

1046 (if YaTeX-current-position-register

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

1048 (save-excursion

1049 (insert (YaTeX-addin YaTeX-fontsize-name)))

1050 (YaTeX-package-auto-usepackage YaTeX-fontsize-name 'large))))

1051

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

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

1054 (interactive)

1055 (YaTeX-make-fontsize t))

1056

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

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

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

1060 (defun YaTeX-make-singlecmd (single)

1061 (interactive

1062 (list (YaTeX-cplread-with-learning

1063 (if YaTeX-simple-messages

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

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

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

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

1068 'singlecmd-table 'user-singlecmd-table 'tmp-singlecmd-table

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

1070 (if (string= single "")

1071 (setq single YaTeX-single-command))

1072 (setq YaTeX-single-command single)

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

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

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

1076 p q)

1077 (if dollar (insert "$"))

1078 (insert YaTeX-ec YaTeX-single-command)

1079 (setq p (point))

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

1081 (if dollar (insert "$"))

1082 (setq q (point))

1083 (goto-char p)

1084 (forward-char -2)

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

1086 (YaTeX-package-auto-usepackage YaTeX-single-command 'maketitle)

1087 (if YaTeX-current-position-register

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

1089

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

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

1092

1093 (defun YaTeX-do-completion ()

1094 "Try completion on LaTeX command preceding point."

1095 (interactive)

1096 (if

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

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

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

1100 (bobp))

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

1102 (let* ((end (point))

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

1104 (completion-begin

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

1106 (begin (progn

1107 (goto-char end)

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

1109 completion-begin t)

1110 (1+ (point))

1111 nil))))

1112 (goto-char end)

1113 (cond

1114 ((null begin)

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

1116 (t

1117 (mapcar 'YaTeX-sync-local-table

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

1119 (let*((pattern (YaTeX-buffer-substring begin end))

1120 (all-table

1121 (append

1122 section-table user-section-table tmp-section-table

1123 env-table user-env-table tmp-env-table

1124 singlecmd-table user-singlecmd-table tmp-singlecmd-table))

1125 ;; First,

1126 ;; search completion without backslash.

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

1128 (if

1129 (eq completion nil)

1130 ;; Next,

1131 ;; search completion with backslash

1132 (setq completion

1133 (try-completion

1134 (YaTeX-buffer-substring (1- begin) end)

1135 all-table nil)

1136 begin (1- begin)))

1137 (cond

1138 ((null completion)

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

1140 (ding))

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

1142 ((not (string= completion pattern))

1143 (delete-region begin end)

1144 (insert completion)

1145 )

1146 (t

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

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

1149 (display-completion-list

1150 (all-completions pattern all-table)))))))))))

1151

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

1153 (interactive "P")

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

1155 (setq mode-line-format

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

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

1158 (progn

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

1160 (message "Modify mode"))

1161 (setq YaTeX-modify-mode nil)

1162 (message "Cancel modify mode."))

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

1164

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

1166 (interactive "P")

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

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

1169 (cond

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

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

1172 (if YaTeX-auto-math-mode

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

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

1175

1176 (defun YaTeX-insert-quote ()

1177 (interactive)

1178 (insert

1179 (cond

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

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

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

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

1184 (= (preceding-char) 9)

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

1186 (bobp)

1187 (string-match

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

1189 "、。，．？！「」『』【】()"))

1190 "``")

1191 (t "''"))))

1192

1193 (defun YaTeX-closable-p ()

1194 (and (not YaTeX-modify-mode)

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

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

1197 (not (input-pending-p))

1198 (not (YaTeX-literal-p)))

1199 ;;(or YaTeX-modify-mode

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

1201 ;; (input-pending-p)

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

1203 )

1204

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

1206 (interactive "r")

1207 (save-excursion

1208 (goto-char end)

1209 (YaTeX-insert-inherit (or close "}"))

1210 (goto-char beg)

1211 (YaTeX-insert-inherit (or open "{"))))

1212

1213 (defun YaTeX-get-macro-at-point (&optional p)

1214 "Get (La)TeX macro around point P."

1215 (interactive "d")

1216 (save-excursion

1217 (goto-char (setq p (or p (point))))

1218 (cond

1219 ((and (not (bobp))

1220 (string-match "[a-zA-Z]" (char-to-string (preceding-char))))

1221 (skip-chars-backward "a-zA-Z")

1222 (if (and (= (preceding-char) ?\\)

1223 (looking-at "\$[a-z]+\$"))

1224 (YaTeX-buffer-substring (point) p))))))

1225

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

1227 (interactive "p")

1228 (let ((begend-guide

1229 (function

1230 (lambda ()

1231 (if (equal (get 'YaTeX-insert-braces 'begend-guide) 2)

1232 nil ;if triggered thrice, do nothing

1233 (momentary-string-display

1234 (format

1235 (cond

1236 (YaTeX-japan "{begin/end入力には %s を使いましょう}")

1237 (t "{You don't understand Zen of `%s'!}"))

1238 (key-description

1239 (car (where-is-internal 'YaTeX-make-begin-end))))

1240 (point))

1241 (put 'YaTeX-insert-braces 'begend-guide

1242 (+ 1 (string-to-int ;increment counter of beg-end guidance

1243 (prin1-to-string

1244 (get 'YaTeX-insert-braces 'begend-guide)))))))))

1245 env macro not-literal)

1246 (cond

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

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

1249 ((save-excursion

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

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

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

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

1254 (forward-char -8))

1255 ((save-excursion ;from matsu<at>math.s.chiba-u.ac.jp

1256 (and (> (- (point) (point-min)) 6) (forward-char -6))

1257 (looking-at "\\\\[bB]igl\\\\"))

1258 (insert

1259 (concat

1260 "{" (buffer-substring (match-beginning 0) (- (match-end 0) 2)) "r\\}"))

1261 (forward-char -7))

1262 ((save-excursion

1263 (and (> (- (point) (point-min)) 7)

1264 (condition-case () (forward-char -7) (error nil)))

1265 (looking-at "\\\\[bB]iggl\\\\"))

1266 (insert

1267 (concat

1268 "{" (buffer-substring (match-beginning 0) (- (match-end 0) 2)) "r\\}"))

1269 (forward-char -8))

1270 ((= (preceding-char) ?\\ )

1271 (insert "{\\}")

1272 (forward-char -2)) ;matsu's hack ends here

1273 ((and (setq not-literal (not (YaTeX-literal-p)))

1274 (equal "end" (setq macro (YaTeX-get-macro-at-point)))

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

1276 (funcall begend-guide)

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

1278 ((and not-literal (equal "begin" macro))

1279 (setq env

1280 (YaTeX-read-environment

1281 (format "Begin environment(default %s): " YaTeX-env-name)))

1282 (if (string= "" env) (setq env YaTeX-env-name))

1283 (setq YaTeX-env-name env)

1284 (funcall begend-guide)

1285 (delete-region (- (point) 6) (point))

1286 (YaTeX-insert-begin-end env nil))

1287 (t

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

1289 (forward-char -1)

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

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

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

1293 ))))

1294

1295 (defun YaTeX-jmode ()

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

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

1298 (and (boundp 'skk-mode) skk-mode (not skk-latin-mode))

1299 (and (boundp 'default-input-method) default-input-method

1300 current-input-method)))

1301

1302 (defun YaTeX-jmode-off ()

1303 (if (cond

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

1305 (canna-toggle-japanese-mode) t)

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

1307 (egg:toggle-egg-mode-on-off) t)

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

1309 (cond

1310 ((fboundp 'skk-latin-mode)

1311 (or (and (boundp 'skk-henkan-mode) skk-henkan-mode)

1312 (and (boundp 'skk-henkan-on)

1313 (or skk-henkan-mode skk-henkan-active))

1314 (and (boundp 'j-henkan-on)

1315 (or j-henkan-on j-henkan-active))

1316 ;; Deactivate jmode if henkan-mode is not running.

1317 ;; Suggested by tt.tetsuo.tsukamoto.

1318 (progn

1319 (put 'YaTeX-jmode-on 'skkkata skk-katakana)

1320 (skk-latin-mode t))))

1321 ((fboundp 'skk-mode-off) (skk-mode-off))

1322 (t (j-mode-off)))

1323 t)

1324 ((and (fboundp 'toggle-input-method) current-input-method)

1325 (toggle-input-method) t)

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

1327 (put 'YaTeX-jmode 'jmode t)))

1328

1329 (defun YaTeX-jmode-on ()

1330 (cond

1331 ((boundp 'canna:*japanese-mode*)

1332 (if (not canna:*japanese-mode*) (canna-toggle-japanese-mode)))

1333 ((boundp 'egg:*mode-on*)

1334 (and (not egg:*mode-on*) (not egg:*input-mode*)

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

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

1337 (if (get 'YaTeX-jmode-on 'skkkata)

1338 (skk-j-mode-on t)

1339 (skk-mode 1))

1340 (put 'YaTeX-jmode-on 'skkkata nil))

1341 ((fboundp 'toggle-input-method)

1342 (if (not current-input-method) (toggle-input-method)))

1343 ((and (fboundp 'fep-force-on) (fep-force-on)))))

1344

1345 (defun YaTeX-jmode-back ()

1346 (if (get 'YaTeX-jmode 'jmode)

1347 (YaTeX-jmode-on))

1348 (setplist 'YaTeX-jmode nil))

1349

1350 (defun YaTeX-self-insert (arg)

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

1352 (defun YaTeX-insert-inherit (&rest args)

1353 (apply (if (fboundp 'insert-and-inherit) 'insert-and-inherit 'insert)

1354 args))

1355

1356 (defun YaTeX-insert-brackets (arg)

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

1358 (interactive "p")

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

1360 (cond

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

1362 ((not (YaTeX-closable-p))

1363 (YaTeX-self-insert arg))

1364 ((save-excursion

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

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

1367 (YaTeX-insert-inherit "[\\right]")

1368 (forward-char -7))

1369 ((save-excursion ;from matsu<at>math.s.chiba-u.ac.jp

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

1371 (looking-at "\\\\[bB]igl"))

1372 (YaTeX-insert-inherit

1373 (concat

1374 "[" (buffer-substring (match-beginning 0) (- (match-end 0) 1)) "r]"))

1375 (forward-char -6))

1376 ((save-excursion

1377 (and (> (- (point) (point-min)) 6) (forward-char -6))

1378 (looking-at "\\\\[bB]iggl"))

1379 (YaTeX-insert-inherit

1380 (concat

1381 "[" (buffer-substring (match-beginning 0) (- (match-end 0) 1)) "r]"))

1382 (forward-char -7)) ;matsu's hack ends here

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

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

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

1386 (YaTeX-insert-inherit last-command-char "\n")

1387 (indent-to (max 0 col))

1388 (YaTeX-insert-inherit "\\]")

1389 (beginning-of-line)

1390 (open-line 1)

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

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

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

1394 ((YaTeX-closable-p)

1395 (YaTeX-insert-inherit "[]")

1396 (backward-char 1))

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

1398

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

1400 (interactive "r")

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

1402

1403 (defun YaTeX-insert-parens (arg)

1404 "Insert parenthesis pair."

1405 (interactive "p")

1406 (cond

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

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

1409 ((save-excursion

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

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

1412 (YaTeX-insert-inherit "(\\right)")

1413 (forward-char -7))

1414 ((save-excursion ;from matsu<at>math.s.chiba-u.ac.jp

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

1416 (looking-at "\\\\[bB]igl"))

1417 (YaTeX-insert-inherit

1418 (concat

1419 "(" (buffer-substring (match-beginning 0) (- (match-end 0) 1)) "r)"))

1420 (forward-char -6))

1421 ((save-excursion

1422 (and (> (- (point) (point-min)) 6) (forward-char -6))

1423 (looking-at "\\\\[bB]iggl"))

1424 (YaTeX-insert-inherit

1425 (concat

1426 "(" (buffer-substring (match-beginning 0) (- (match-end 0) 1)) "r)"))

1427 (forward-char -7))

1428 ((= (preceding-char) ?\\ ) ;matsu's hack ends here

1429 (YaTeX-insert-inherit "(\\)")

1430 (backward-char 2))

1431 ((YaTeX-closable-p)

1432 (YaTeX-insert-inherit "()")

1433 (backward-char 1))

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

1435

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

1437 (interactive "r")

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

1439

1440 (defun YaTeX-insert-bar (arg)

1441 "Insert bar pair."

1442 (interactive "p")

1443 (cond

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

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

1446 ((save-excursion

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

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

1449 (YaTeX-insert-inherit "|\\right|")

1450 (forward-char -7))

1451 ((save-excursion ;from matsu<at>math.s.chiba-u.ac.jp

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

1453 (looking-at "\\\\[bB]igl"))

1454 (insert

1455 (concat

1456 "|" (buffer-substring (match-beginning 0) (- (match-end 0) 1)) "r|"))

1457 (forward-char -6))

1458 ((save-excursion

1459 (and (> (- (point) (point-min)) 6) (forward-char -6))

1460 (looking-at "\\\\[bB]iggl"))

1461 (insert

1462 (concat

1463 "|" (buffer-substring (match-beginning 0) (- (match-end 0) 1)) "r|"))

1464 (forward-char -7))

1465 ((save-excursion ; added by Jin <MAF01011<at>nifty.ne.jp>

1466 (and (> (- (point) (point-min)) 6) (forward-char -6))

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

1468 (YaTeX-insert-inherit "|\\right\\|")

1469 (forward-char -8))

1470 ((save-excursion

1471 (and (> (- (point) (point-min)) 6) (forward-char -6))

1472 (looking-at "\\\\[bB]igl\\\\"))

1473 (insert

1474 (concat

1475 "|" (buffer-substring (match-beginning 0) (- (match-end 0) 2)) "r\\|"))

1476 (forward-char -7))

1477 ((save-excursion

1478 (and (> (- (point) (point-min)) 7) (forward-char -7))

1479 (looking-at "\\\\[bB]iggl\\\\"))

1480 (insert

1481 (concat

1482 "|" (buffer-substring (match-beginning 0) (- (match-end 0) 2)) "r\\|"))

1483 (forward-char -8)) ; added by Jin up to here.

1484 ((= (preceding-char) ?\\ )

1485 (YaTeX-insert-inherit "|\\|")

1486 (backward-char 2))

1487 ; ((and (YaTeX-closable-p)

1488 ; (/= (preceding-char) ?|)

1489 ; (/= (following-char) ?|))

1490 ; (YaTeX-insert-inherit "||")

1491 ; (backward-char 1))

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

1493

1494 (defun YaTeX-jmode-hook (old new)

1495 "A hook controling jmode on/off."

1496 ;; This function is called via point-entered/leave hook, so that

1497 ;; codes in it is evaluated on such emacsen as having text-properties.

1498 (let ((inhibit-point-motion-hooks t)

1499 (oldp (plist-get (text-properties-at old) 'point-left))

1500 (newp (plist-get (text-properties-at new) 'point-left))

1501 (lnew (plist-get (text-properties-at new) 'last-new))

1502 (mjmode (plist-get (text-properties-at new) 'mjmode))

1503 (bmp (buffer-modified-p))

1504 (jm (YaTeX-jmode)) b e)

1505 (unwind-protect

1506 (cond

1507 ((eq lnew new) nil) ;Do nothing if continuous entry

1508 ((and (not (eq newp 'YaTeX-jmode-hook))

1509 (eq oldp 'YaTeX-jmode-hook)

1510 (plist-get (text-properties-at old) 'entered))

1511 ;; leave

1512 (remove-text-properties

1513 (setq b (1+ (or (previous-single-property-change old 'point-left)

1514 (1- (point)))))

1515 (setq e (1- (or (next-single-property-change old 'point-left)

1516 (1+ (point)))))

1517 (list 'last-new nil 'entered nil))

1518 (add-text-properties b e (list 'mjmode jm))

1519 (if (boundp 'skk-katakana)

1520 (put 'YaTeX-jmode-on 'skkkata skk-katakana))

1521 (if (plist-get (text-properties-at old) 'jmode)

1522 (YaTeX-jmode-on)))

1523 ((and (not (eq oldp 'YaTeX-jmode-hook))

1524 (eq newp 'YaTeX-jmode-hook)

1525 (not (plist-get (text-properties-at new) 'entered)))

1526 ;; enter

1527 (add-text-properties

1528 (1+ (or (previous-single-property-change new 'point-left)

1529 (1- (point))))

1530 (1- (or (next-single-property-change new 'point-left)

1531 (1+ (point))))

1532 (list 'jmode jm 'last-new new 'entered t))

1533 (if (boundp 'skk-katakana) ;care for skk katakana mode

1534 (put 'YaTeX-jmode-on 'skkkata skk-katakana))

1535 (if mjmode (YaTeX-jmode-on) (YaTeX-jmode-off))))

1536 ;;unwind job

1537 (set-buffer-modified-p bmp))))

1538

1539 (defun YaTeX-insert-dollar ()

1540 (interactive)

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

1542 (= (preceding-char) 92)

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

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

1545 (insert "$")

1546 (insert "$$")

1547 (forward-char -1)

1548 (if (fboundp 'add-text-properties)

1549 (add-text-properties

1550 (1- (point)) (1+ (point))

1551 (list 'point-left 'YaTeX-jmode-hook

1552 'point-entered 'YaTeX-jmode-hook

1553 'front-sticky t

1554 'rear-nonsticky t

1555 'mjmode nil

1556 'jmode (YaTeX-jmode))))

1557 (YaTeX-jmode-off)

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

1559

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

1561 (interactive "r")

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

1563

1564 (defun YaTeX-insert-amper ()

1565 (interactive)

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

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

1568 (= (preceding-char) 92)

1569 (YaTeX-literal-p)

1570 (YaTeX-in-math-mode-p))

1571 (insert "&")

1572 (insert "\\&")))

1573

1574 (defun YaTeX-version ()

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

1576 (interactive)

1577 (message

1578 (concat "Yet Another tex-mode "

1579 (if YaTeX-japan "「野鳥」" "`Wild Bird'")

1580 " Revision "

1581 YaTeX-revision-number)))

1582

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

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

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

1586 (interactive "P")

1587 (message

1588 (concat "J)latex R)egion E)nv B)ibtex mk(I)dx "

1589 "latex+p(D)f "

1590 (if (fboundp 'start-process) "K)ill ")

1591 "P)review "

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

1593 "V)iewErr L)pr"))

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

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

1596 (select-window sw)

1597 (cond

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

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

1600 ((= c ?e) (YaTeX-typeset-environment))

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

1602 bibtex-command "*YaTeX-bibtex*" YaTeX-parent-file))

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

1604 makeindex-command "*YaTeX-makeindex*" YaTeX-parent-file))

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

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

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

1608 ((= c ?d) (YaTeX-typeset-buffer YaTeX-dvipdf-command))

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

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

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

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

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

1614

1615 (if (fboundp 'wrap-function-to-control-ime)

1616 (wrap-function-to-control-ime 'YaTeX-typeset-menu t "P"))

1617

1618

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

1620 "Operate %# notation."

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

1622 (interactive)

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

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

1625 (b (make-marker)) (e (make-marker)))

1626 (save-excursion

1627 (cond

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

1629 (goto-char (point-min))

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

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

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

1633 (progn

1634 (setq string (YaTeX-buffer-substring

1635 (point) (point-end-of-line)))

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

1637 (open-line 1)

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

1639 (insert key))

1640 (unwind-protect

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

1642 (insert string)))

1643

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

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

1646 (set-marker b beg)

1647 (set-marker e end)

1648 (goto-char (point-min))

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

1650 (beginning-of-line)

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

1652 (goto-char b)

1653 (open-line 1)

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

1655 (insert "%#BEGIN")

1656 (goto-char e)

1657 (insert "%#END\n")

1658 (set-marker b nil)

1659 (set-marker e nil))

1660 ))))

1661

1662 (defvar YaTeX-refcommand-def-regexp-default

1663 "label\\|bibitem")

1664 (defvar YaTeX-refcommand-def-regexp-private nil

1665 "*Regexp of defining label commands")

1666 (defvar YaTeX-refcommand-def-regexp

1667 (concat (if YaTeX-refcommand-def-regexp-private

1668 (concat YaTeX-refcommand-def-regexp-private "\\|"))

1669 YaTeX-refcommand-def-regexp-default))

1670

1671 (defvar YaTeX-refcommand-ref-regexp-default

1672 "\$page\\|eq\\|fig\$?ref\\|cite")

1673 (defvar YaTeX-refcommand-ref-regexp-private nil

1674 "*Regexp of referring label commands")

1675 (defvar YaTeX-refcommand-ref-regexp

1676 (concat (if YaTeX-refcommand-ref-regexp-private

1677 (concat YaTeX-refcommand-ref-regexp-private "\\|"))

1678 YaTeX-refcommand-ref-regexp-default))

1679

1680 (defvar YaTeX-refcommand-regexp

1681 (concat YaTeX-refcommand-def-regexp

1682 "\\|" YaTeX-refcommand-ref-regexp)

1683 "Regexp of label defining/referring command name.")

1684

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

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

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

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

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

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

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

1692 forward at first and secondary backward.

1693 Argument REVERSE non-nil makes the default

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

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

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

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

1698

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

1700 (refcommands YaTeX-refcommand-regexp)

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

1702 (key-description

1703 (car

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

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

1706 YaTeX-current-position-register))

1707 (func (function (lambda (string sfunc)

1708 (or

1709 (funcall sfunc string nil t)

1710 (funcall (if (eq sfunc 're-search-forward)

1711 're-search-backward 're-search-forward)

1712 string nil t))))))

1713 (cond

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

1715 (setq scmd

1716 (cdr

1717 (assoc

1718 (YaTeX-match-string 1)

1719 '(("label" . "\\\\\$page\\|eq\$?ref{%k}")

1720 ("ref" . "\\\\label{%k}")

1721 ("eqref" . "\\\\label{%k}")

1722 ("pageref" . "\\\\label{%k}")

1723 ("cite" .

1724 "\\\\bibitem\$\\[[^]]+\\]\$?{%k}\\|^\\s *@[a-z]+{%k,")

1725 ("bibitem" . "\\\\cite\$\\[[^]]+\\]\$?")))))

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

1727 (let ((label (YaTeX-buffer-substring

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

1729 (fp (make-marker))fl fn

1730 (goother (function (lambda (buffer point)

1731 (goto-char point)

1732 (if (one-window-p)

1733 (split-window-calculate-height

1734 YaTeX-default-pop-window-height))

1735 (select-window (get-lru-window))

1736 (switch-to-buffer buffer)))))

1737 ;(setq string (concat "\\" scmd "{" label "}"))

1738 ;(setq string (concat "\\\\" scmd "{" (regexp-quote label) "}"))

1739 (setq string (YaTeX-replace-format scmd "k" (regexp-quote label)))

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

1741 're-search-forward 're-search-backward))

1742 (if YaTeX-current-position-register

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

1744 (if reverse (setq direc (if (eq direc 're-search-forward)

1745 're-search-backward 're-search-forward)))

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

1747 (progn

1748 (if otherwin (funcall goother cb p))

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

1750 (push-mark p))

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

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

1753 (catch 'found

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

1755 (while blist

1756 ;; search for corresponding keyword

1757 (set-buffer (car blist))

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

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

1760 (cond

1761 ; cond1

1762 ((funcall func string direc)

1763 (cond

1764 (otherwin

1765 (set-buffer cb)

1766 (funcall goother (car blist) p))

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

1768 (and YaTeX-emacs-19

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

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

1771 (t

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

1773 (message foundmsg)))

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

1775 (throw 'found t))

1776 ; cond2

1777 ((and

1778 (string-match "bibitem" scmd)

1779 (catch 'found2

1780 (save-excursion

1781 (goto-char (point-min))

1782 (while (YaTeX-re-search-active-forward

1783 "\\\\bibliography{\$[^}]*\$}" "%" nil t)

1784 (setq fl (YaTeX-split-string (YaTeX-match-string 1) ","))

1785 (while fl

1786 (if (or (file-exists-p (setq fn (car fl)))

1787 (file-exists-p (setq fn (concat fn ".bib"))))

1788 (progn

1789 (set-buffer (find-file-noselect fn))

1790 (save-excursion

1791 (goto-char (point-min))

1792 (if (YaTeX-re-search-active-forward

1793 string "%" nil t)

1794 (throw 'found2

1795 (set-marker fp (point)))))))

1796 (setq fl (cdr fl)))))))

1797 (if otherwin

1798 (funcall goother (marker-buffer fp) fp)

1799 (switch-to-buffer (marker-buffer fp))

1800 (goto-char fp))

1801 (set-marker fp nil)

1802 (message foundmsg)

1803 (throw 'found t)))

1804 (setq blist (cdr blist)))

1805 ;; search for bibliography

1806 )))

1807 (if YaTeX-emacs-19

1808 (setq regexp-search-ring

1809 (cons string (delete string regexp-search-ring)))

1810 (setq search-last-regexp string)))

1811 (t nil))))

1812

1813 ;;YaTeX-goto-corresponding-environment was moved to yatexlib

1814

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

1816 "Visit or switch buffer of corresponding file,

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

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

1819 (let ((parent buffer-file-name) input-file b)

1820 (save-excursion

1821 (if (and (re-search-forward "[{%]" (point-end-of-line) t)

1822 (= ?{ (char-after (match-beginning 0))))

1823 nil

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

1825 (setq input-file

1826 (YaTeX-buffer-substring

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

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

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

1830 (cond

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

1832 ((setq b (YaTeX-get-file-buffer input-file))

1833 (goto-buffer-window b))

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

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

1836 YaTeX-parent-file

1837 (setq YaTeX-parent-file parent)))))

1838

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

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

1841 (if (cond

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

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

1844 (t ; if on %#END

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

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

1847 (beginning-of-line)

1848 t))

1849

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

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

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

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

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

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

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

1857

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

1859

1860 Where the first group surrounded by \\\$ and \\\$ is the file name part

1861 of expression. So you should set 1 to second element. And the first

1862 matching group is sent to (image) processor defined by the variable

1863 YaTeX-file-processor-alist. See also the documentation of

1864 YaTeX-file-processor-alist.

1865

1866 ↑じゃ良くわかんないすね。例えば tgif hoge.obj して hoge.eps を

1867 \\epsfile{file=hoge.eps} でインクルードしているとしよう。その行で

1868 \[prefix\] g を押した時に tgif を起動して欲しかったら、まず上のような

1869 正規表現を設定する。\\\$と\\\$で囲んだところがファイル名になるように

1870 注意する。でファイル名部分が何番目の\\\$\\\$になるかをリストの2番目に書く。

1871 すると、その部分が変数 YaTeX-file-processor-alist で定義された

1872 処理プログラムに渡される。というわけ。

1873 ん～やっぱりむずかしいね。分からない時は隣の Lisper に聞くか、

1874 fj野鳥の会で聞こう!

1875 ")

1876

1877 (defvar YaTeX-processed-file-regexp-alist-default

1878 '(("\\\\epsfile\$\\[[^]]+\\]\$?{[^},]*file=\$\\([^,} ]*/\$?[^,}. ]+\\)\$\\.e?ps\$?[^}]*}" 2)

1879 ("\\\\epsfig{[^},]*fi\$le\\|gure\$=\$\\([^,} ]*/\$?[^,}. ]+\\)\$\\.e?ps\$?[^}]*}" 2)

1880 ("\\\\postscriptbox{[^}]*}{[^}]*}{\$\\([^,} ]*/\$?[^}. ]+\\)\$\\.e?ps\$?}" 1)

1881 ("\\\\\$epsfbox\\|includegraphics\\|epsfig\$\\*?{\$\\([^,} ]*/\$?[^}. ]+\\)\$\\.e?ps\$?}" 2) ;\epsfbox{hoge.ps} or \includegraphics{hoge.eps}

1882 ("\\\\\$psbox\$\$\\[[^]]+\\]\$?{\$\\([^,} ]*/\$?[^} ]+\\)\$\\.e?ps\$}" 3) ;\psbox[options...]{hoge.eps} (97/1/11)

1883 ("\\\\input{\$[^} ]+\$\$\\.tps\$}" 1) ;tgif2tex (1998/9/16)

1884 )

1885 "See the documentation of YaTeX-processed-file-regexp-alist.")

1886

1887 (defvar YaTeX-file-processor-alist nil

1888 "*Alist of files' processor vs. its extension;

1889 See also the documentation of YaTeX-processed-file-regexp-alist.")

1890

1891 (defvar YaTeX-file-processor-alist-default

1892 '(("tgif" . ".obj")

1893 ("ghostview" . ".ps")

1894 ("ghostview" . ".eps")

1895 (t . ".tex")

1896 (t . ".sty")

1897 (t . ""))

1898 "See the documentation of YaTeX-file-processor-alist.")

1899

1900 (defun YaTeX-goto-corresponding-file-processor (&optional other)

1901 "Execute corresponding file processor."

1902 (save-excursion

1903 (or (looking-at YaTeX-ec-regexp)

1904 (skip-chars-backward (concat "^" YaTeX-ec) (point-beginning-of-line)))

1905 (let ((list (append YaTeX-processed-file-regexp-alist

1906 YaTeX-processed-file-regexp-alist-default))

1907 (p (point)) flist file

1908 (peol (point-end-of-line))

1909 (basedir

1910 (if YaTeX-search-file-from-top-directory

1911 (save-excursion (YaTeX-visit-main t) default-directory)

1912 ".")))

1913 (setq flist (catch 'found

1914 (while list

1915 (goto-char p)

1916 (if (re-search-forward (car (car list)) peol t)

1917 (progn

1918 (setq file (YaTeX-match-string

1919 (car (cdr (car list)))))

1920 (throw 'found (cdr (car list)))))

1921 (setq list (cdr list)))))

1922 (if flist ;if pattern and file name found

1923 (let*((plist (append YaTeX-file-processor-alist

1924 YaTeX-file-processor-alist-default))

1925 (plist0 plist)

1926 ext cmd src buf (alt (car (cdr flist))))

1927 (if (and (re-search-forward

1928 (concat YaTeX-comment-prefix "\\s *\$.*\$$") peol t)

1929 (assoc (setq cmd (YaTeX-match-string 1))

1930 YaTeX-file-processor-alist))

1931 (setq src ;if processor is specified

1932 (concat file

1933 (cdr (assoc cmd YaTeX-file-processor-alist))))

1934 (while plist ;if processor is not specified

1935 (setq ext (cdr (car plist)))

1936 (if (and (string< "" (concat file ext))

1937 (file-exists-p

1938 (expand-file-name (concat file ext) basedir)))

1939 (setq cmd (car (car plist))

1940 src (concat file ext) plist nil))

1941 (setq plist (cdr plist)))

1942 (if (and (null src) alt YaTeX-create-file-prefix-g)

1943 (setq cmd alt

1944 src (concat file (cdr (assoc alt plist0))))))

1945 (if src ;if processor and src file found

1946 (let ((default-directory basedir))

1947 (cond

1948 ((stringp cmd)

1949 (let ((buf (concat "* " cmd " " src " *")))

1950 (YaTeX-system (concat cmd " " src) buf)

1951 t))

1952 ((eq t cmd)

1953 (let ((parent buffer-file-name))

1954 (funcall

1955 (cond

1956 (other 'YaTeX-switch-to-buffer-other-window)

1957 ((get-file-buffer src) 'goto-buffer-window)

1958 (t 'YaTeX-switch-to-buffer))

1959 src)

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

1961 YaTeX-parent-file

1962 (setq YaTeX-parent-file parent))

1963 t))

1964 ((symbolp cmd)

1965 (cond

1966 ((symbol-function cmd)

1967 (funcall cmd src other)))

1968 t)))))))))

1969

1970 (defun YaTeX-on-section-command-p (command)

1971 "Check if point is on the LaTeX command: COMMAND(regexp).

1972 Return nil if point is not on it. Otherwise return the

1973 number of argument position.

1974 Section command name is stored in match-data #1.

1975 Parsing information is stored to plist.

1976 Macros name stored to propname 'command.

1977 Macro's argument number stored to propname 'argc."

1978 (let ((p (point)) md (parg 0) (argc 1) word (grouping 0) (i 0)

1979 (ec+command (concat YaTeX-ec-regexp "\$" command "\$")))

1980 (setplist 'YaTeX-on-section-command-p nil)

1981 (while (setq i (string-match "\\\\(" command i))

1982 (setq grouping (1+ grouping) i (+ i 2)))

1983 (save-excursion

1984 (if (looking-at ec+command) nil

1985 (catch 'found ;caught value has no meaning

1986 ;;(1) looking at current position

1987 (and (looking-at command)

1988 (save-excursion

1989 (while (and (not (bobp)) (looking-at command))

1990 (forward-char -1))

1991 (looking-at ec+command))

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

1993 (throw 'found t))

1994 ;;(2) search command directly

1995 (skip-chars-forward "^{}[]")

1996 (and (YaTeX-re-search-active-backward

1997 ec+command

1998 YaTeX-comment-prefix nil t)

1999 (>= p (match-beginning 0))

2000 (throw 'found (goto-char (match-beginning 0))))

2001 ;;(3) search token

2002 (goto-char p)

2003 (while t

2004 (if (bobp) (throw 'found nil))

2005 (cond

2006 ((looking-at YaTeX-ec-regexp) (throw 'found t))

2007 ((looking-at "[[{]") nil)

2008 ((looking-at "[]}]")(condition-case nil (up-list -1) (error nil)))

2009 (t (skip-chars-backward " \t\r\n")))

2010 (skip-chars-backward (concat "^ \t\r\n{}[]" YaTeX-ec-regexp))

2011 (or (bobp) (forward-char -1)))))

2012 (if (and

2013 (looking-at (concat ec+command

2014 "\$\\(\\[[^]]+\\]\\|([0-9,]+)\$*\\)" ;optional arg

2015 ;"[ \t\n\r]*{[^}]+}")) ;arg braces

2016 "[ \t\n\r]*{[^}]*}")) ;arg braces

2017 (not (YaTeX-lookup-table

2018 (setq word (YaTeX-match-string 1)) 'singlecmd)))

2019 (progn

2020 (setq md (match-data))

2021 (skip-chars-forward "^{")

2022 (if (<= (point) p) (setq parg (1+ parg)))

2023 (setq argc

2024 (or (car (cdr (YaTeX-lookup-table word 'section)))

2025 argc))

2026 (put 'YaTeX-on-section-command-p 'argc argc)

2027 (put 'YaTeX-on-section-command-p 'command argc)

2028 (while (and (>= (setq argc (1- argc)) 0)

2029 (progn (skip-chars-forward " \t\n\r")

2030 (looking-at "{")))

2031 (forward-list 1)

2032 (if (<= (point) p) (setq parg (1+ parg))))

2033 (store-match-data md)

2034 (setq i (+ 2 grouping))

2035 (if (and (match-beginning i)

2036 (>= p (match-beginning i)) (< p (match-end i)))

2037 -1 ;return -1 if point is on optional arg

2038 (if (< p (point)) parg))

2039 )))))

2040

2041 (defun YaTeX-on-maketitle-p ()

2042 "Check if point is on maketitle type commands.

2043 Call this function after YaTeX-on-section-command-p."

2044 (let ((p (point)))

2045 (save-excursion

2046 (or (= (char-after (point)) ?\\ )

2047 (progn

2048 (skip-chars-backward

2049 (concat "^" YaTeX-ec-regexp) (point-beginning-of-line))

2050 (or (bobp) (bolp) (backward-char 1))))

2051 (and (looking-at (concat YaTeX-ec-regexp YaTeX-TeX-token-regexp))

2052 (<= (match-beginning 0) p)

2053 (> (match-end 0) p)))))

2054

2055 (defun YaTeX-on-begin-end-p ()

2056 (save-excursion

2057 (if (and (boundp 'in-leftright-p) in-leftright-p)

2058 ;; Dirty workaround for YaTeX-goto-corresponding-leftright 2003/3/28

2059 (let ((md (match-data))) ; for safety

2060 (if (looking-at YaTeX-ec-regexp)

2061 nil ; stay here

2062 (cond

2063 ((looking-at "\\w") (skip-chars-backward "A-Za-z"))

2064 ((looking-at "\\.()\\[\\]|") (forward-char -1)))

2065 (if (equal (char-after (1- (point)))

2066 (string-to-char YaTeX-ec))

2067 (forward-char -1))))

2068 ;(beginning-of-line)

2069 (if (equal (char-after (point)) ?\\) nil ;stay here

2070 (skip-chars-backward "^\n\\\\")

2071 (or (bolp) (forward-char -1))))

2072 (re-search-forward

2073 ;;"\\\\begin{\$[^}]+\$}\\|\\\\end{\$[^}]+\$}"

2074 (concat

2075 (YaTeX-replace-format-args

2076 (regexp-quote YaTeX-struct-begin)

2077 (concat "\$" YaTeX-struct-name-regexp "\$") "" "" "")

2078 "\\|"

2079 (YaTeX-replace-format-args

2080 (regexp-quote YaTeX-struct-end)

2081 (concat "\$" YaTeX-struct-name-regexp "\$") "" "" "")

2082 "\\|\\("

2083 YaTeX-ec-regexp ;;"[][()]\\)"

2084 "[][]\\)"

2085 )

2086 (point-end-of-line) t)))

2087

2088 (defun YaTeX-on-includes-p ()

2089 (save-excursion

2090 (beginning-of-line)

2091 (re-search-forward "\$\\(include[^}]*\$\\|\$input\$\\){[^}]*}"

2092 (point-end-of-line) t)))

2093

2094 (defun YaTeX-on-comment-p (&optional sw)

2095 "Return t if current line is commented out.

2096 Optional argument SW t to treat all `%' lines as comment,

2097 even if on `%#' notation."

2098 (save-excursion

2099 (beginning-of-line)

2100 (skip-chars-forward "\\s ")

2101 (looking-at (if sw "%" "%[^#]"))))

2102

2103 (defun YaTeX-on-BEGIN-END-p ()

2104 (save-excursion

2105 (let ((case-fold-search nil))

2106 (beginning-of-line)

2107 (re-search-forward

2108 "\$%#BEGIN\$\\|\$%#END\$" (point-end-of-line) t))))

2109

2110 (defun YaTeX-goto-corresponding-* (arg)

2111 "Parse current line and call suitable function."

2112 (interactive "P")

2113 (let (mm)

2114 (cond

2115 ((YaTeX-goto-corresponding-label arg))

2116 ((YaTeX-goto-corresponding-environment))

2117 ((YaTeX-goto-corresponding-file-processor arg))

2118 ((YaTeX-goto-corresponding-file arg))

2119 ((YaTeX-goto-corresponding-BEGIN-END))

2120 ((and (setq mm (YaTeX-in-math-mode-p))

2121 (YaTeX-goto-corresponding-leftright)))

2122 ((and ;;mm YaTeX-use-AMS-LaTeX

2123 (YaTeX-goto-corresponding-paren)))

2124 ;;((and (string-match

2125 ;; YaTeX-equation-env-regexp ;to delay loading

2126 ;; (or (YaTeX-inner-environment t) "document"))

2127 ;; (YaTeX-goto-corresponding-leftright)))

2128 (t (message "I don't know where to go.")))))

2129

2130 (defun YaTeX-goto-corresponding-*-other-window (arg)

2131 "Parse current line and call suitable function."

2132 (interactive "P")

2133 (cond

2134 ((YaTeX-goto-corresponding-label arg t))

2135 ;;((YaTeX-goto-corresponding-environment))

2136 ((YaTeX-goto-corresponding-file t))

2137 ;;((YaTeX-goto-corresponding-BEGIN-END))

2138 (t (message "I don't know where to go."))))

2139

2140 (defun YaTeX-comment-region (alt-prefix)

2141 "Comment out region by '%'.

2142 If you call this function on the 'begin{}' or 'end{}' line,

2143 it comments out whole environment"

2144 (interactive "P")

2145 (if (not (YaTeX-on-begin-end-p))

2146 (comment-out-region

2147 (if alt-prefix

2148 (read-string "Insert prefix: ")

2149 YaTeX-comment-prefix))

2150 (YaTeX-comment-uncomment-env 'comment-out-region)))

2151

2152 (defun YaTeX-uncomment-region (alt-prefix)

2153 "Uncomment out region by '%'."

2154 (interactive "P")

2155 (if (not (YaTeX-on-begin-end-p))

2156 (uncomment-out-region

2157 (if alt-prefix (read-string "Remove prefix: ")

2158 YaTeX-comment-prefix)

2159 (region-beginning) (region-end) YaTeX-uncomment-once)

2160 (YaTeX-comment-uncomment-env 'uncomment-out-region)))

2161

2162 (defun YaTeX-comment-uncomment-env (func)

2163 "Comment or uncomment out one LaTeX environment switching function by FUNC."

2164 (let (beg (p (point)))

2165 (save-excursion

2166 (beginning-of-line)

2167 (setq beg (point))

2168 (YaTeX-goto-corresponding-environment)

2169 (beginning-of-line)

2170 (if (> p (point)) (setq beg (1+ beg)) (forward-char 1))

2171 (funcall func YaTeX-comment-prefix beg (point) YaTeX-uncomment-once)))

2172 (message "%sommented out current environment."

2173 (if (eq func 'comment-out-region) "C" "Un-c")))

2174

2175 (defun YaTeX-comment-paragraph ()

2176 "Comment out current paragraph."

2177 (interactive)

2178 (save-excursion

2179 (cond

2180 ((YaTeX-on-begin-end-p)

2181 (beginning-of-line)

2182 (insert YaTeX-comment-prefix)

2183 (YaTeX-goto-corresponding-environment)

2184 (beginning-of-line)

2185 (insert YaTeX-comment-prefix))

2186 ((YaTeX-on-comment-p)

2187 (message "Already commented out."))

2188 (t

2189 (mark-paragraph)

2190 (if (looking-at paragraph-separate) (forward-line 1))

2191 (comment-out-region "%")))))

2192

2193 (defun YaTeX-uncomment-paragraph ()

2194 "Uncomment current paragraph."

2195 (interactive)

2196 (save-excursion

2197 (if (YaTeX-on-begin-end-p)

2198 (let ((p (point-marker)))

2199 (YaTeX-goto-corresponding-environment)

2200 (YaTeX-remove-prefix YaTeX-comment-prefix YaTeX-uncomment-once)

2201 (goto-char p)

2202 (YaTeX-remove-prefix YaTeX-comment-prefix YaTeX-uncomment-once)

2203 (set-marker p nil))

2204 (if (YaTeX-on-comment-p)

2205 (let*((fill-prefix "")

2206 ;;append `^%' to head of paragraph delimiter.

2207 (paragraph-start

2208 (concat

2209 "^$\\|^%\$" YaTeX-paragraph-separate "\$"))

2210 (paragraph-separate paragraph-start))

2211 (mark-paragraph)

2212 (if (not (bobp)) (forward-line 1))

2213 (uncomment-out-region "%" nil nil YaTeX-uncomment-once))

2214 (message "This line is not a comment line.")))))

2215

2216 (defun YaTeX-remove-prefix (prefix &optional once)

2217 "Remove prefix on current line as far as prefix detected. But

2218 optional argument ONCE makes deletion once."

2219 (interactive "sPrefix:")

2220 (beginning-of-line)

2221 (while (re-search-forward (concat "^" prefix) (point-end-of-line) t)

2222 (replace-match "")

2223 (if once (end-of-line))))

2224

2225 (defun YaTeX-kill-some-pairs (predicate gofunc kill-contents)

2226 "Kill some matching pair.

2227 This function assumes that pairs occupy whole of each line where they resid."

2228 (if (not (funcall predicate)) nil

2229 (let ((b1 (match-beginning 0)) (e1 (match-end 0))

2230 b2 e2)

2231 (save-excursion

2232 (funcall gofunc)

2233 (funcall predicate) ;get match data

2234 (if (< (point) e1) ;if currently on begin-line

2235 (progn

2236 (setq b2 b1 e2 e1

2237 b1 (match-beginning 0) e1 (match-end 0))

2238 (goto-char e2)) ;goto end-line's end

2239 (setq b2 (match-beginning 0)

2240 e2 (match-end 0))

2241 (goto-char e2)) ;now e2 has surely end-line's end

2242 (skip-chars-forward " \t")

2243 (and (eolp)

2244 (not (eobp))

2245 (setq e2 (1+ (point))))

2246 (if (not kill-contents)

2247 (kill-region

2248 (progn

2249 (goto-char b2)

2250 (skip-chars-backward " \t%")

2251 (if (bolp) (point) b2))

2252 e2))

2253 (goto-char b1)

2254 (skip-chars-backward " \t%")

2255 (if (not kill-contents)

2256 (progn

2257 (kill-append

2258 (buffer-substring

2259 (setq b1 (if (bolp) (point) b1))

2260 (setq e1

2261 (progn

2262 (goto-char e1)

2263 (while (looking-at "{\\| \t")

2264 (forward-list 1))

2265 (skip-chars-forward " \t")

2266 (if (and (eolp) (not (eobp)))

2267 (1+ (point))

2268 (point)))))

2269 t)

2270 (delete-region b1 e1))

2271 (kill-region

2272 (if (bolp) (point) b1)

2273 e2)))

2274 t)))

2275

2276 (defun YaTeX-kill-section-command (point kill-all)

2277 "Kill section-type command at POINT leaving its last argument.

2278 Non-nil for the second argument kill its last argument too."

2279 (let ((cmd (get 'YaTeX-on-section-command-p 'command))

2280 (argc (get 'YaTeX-on-section-command-p 'argc))

2281 beg (end (make-marker)))

2282 (save-excursion

2283 (goto-char point)

2284 (or (looking-at YaTeX-ec-regexp)

2285 (progn

2286 (skip-chars-backward (concat "^" YaTeX-ec-regexp))

2287 (forward-char -1)))

2288 (setq beg (point))

2289 (skip-chars-forward "^{")

2290 (while (> (setq argc (1- argc)) 0)

2291 (skip-chars-forward "^{")

2292 (forward-list 1))

2293 (kill-region beg (point))

2294 (forward-list 1)

2295 (set-marker end (point))

2296 (if kill-all

2297 (progn

2298 (kill-append (buffer-substring beg end) nil)

2299 (delete-region beg end))

2300 (goto-char beg)

2301 (kill-append

2302 (buffer-substring

2303 (point) (progn (skip-chars-forward "^{" end) (1+ (point))))

2304 nil)

2305 (delete-region beg (1+ (point)))

2306 (goto-char end)

2307 (set-marker end nil)

2308 (kill-append (buffer-substring (point) (1- (point))) nil)

2309 (delete-backward-char 1)))))

2310

2311 (defun YaTeX-kill-paren (kill-contents)

2312 "Kill parentheses leaving its contents.

2313 But kill its contents if the argument KILL-CONTENTS is non-nil."

2314 (interactive "P")

2315 (let (p bsl (backslash-syntax (char-to-string (char-syntax ?\\)))

2316 (md (match-data)))

2317 (unwind-protect

2318 (save-excursion

2319 (modify-syntax-entry ?\\ " ")

2320 (if (looking-at "\\s(\\|\$\\s)\$")

2321 (progn

2322 (if (match-beginning 1)

2323 (up-list -1))

2324 (if (and (> (point) (point-min))

2325 (= (char-after (1- (point))) ?\\ ))

2326 (setq p (1- (point)) bsl t)

2327 (setq p (point)))

2328 (forward-list 1)

2329 ;(YaTeX-goto-open-paren t)

2330 (if kill-contents (delete-region p (point))

2331 (backward-delete-char 1)

2332 (cond

2333 ((save-excursion

2334 (forward-char -2)

2335 (looking-at (concat YaTeX-ec-regexp "/")))

2336 (backward-delete-char 2))

2337 ((= (char-after (1- (point))) ?\\)

2338 (backward-delete-char 1)))

2339 (goto-char p)

2340 (if (looking-at

2341 (concat "{" YaTeX-ec-regexp

2342 YaTeX-command-token-regexp "+"

2343 "\\s +"))

2344 (delete-region (point) (match-end 0))

2345 (delete-char 1)

2346 (if bsl (delete-char 1))))

2347 t)))

2348 (modify-syntax-entry ?\\ backslash-syntax)

2349 (store-match-data md))))

2350

2351 (defvar YaTeX-read-environment-history nil "Holds history of environments.")

2352 (put 'YaTeX-read-environment-history 'no-default t)

2353 (defun YaTeX-read-environment (prompt &optional predicate must-match initial)

2354 "Read a LaTeX environment name with completion."

2355 (YaTeX-sync-local-table 'tmp-env-table)

2356 (completing-read-with-history

2357 prompt

2358 (append tmp-env-table user-env-table env-table)

2359 predicate must-match initial

2360 'YaTeX-read-environment-history))

2361

2362 (defvar YaTeX-read-section-history nil "Holds history of section-types.")

2363 (put 'YaTeX-read-section-history 'no-default t)

2364 (defun YaTeX-read-section (prompt &optional predicate initial)

2365 "Read a LaTeX section-type command with completion."

2366 (YaTeX-sync-local-table 'tmp-section-table)

2367 (let ((minibuffer-completion-table

2368 (append tmp-section-table user-section-table section-table)))

2369 (read-from-minibuffer-with-history

2370 prompt initial YaTeX-section-completion-map nil

2371 'YaTeX-read-section-history)))

2372

2373 (defun YaTeX-read-section-with-overview ()

2374 "Read sectioning command with overview.

2375 This function refers a local variable `source-window' in YaTeX-make-section,

2376 because this function is called with no argument."

2377 (interactive)

2378 (require 'yatexsec) ;some case needs this

2379 (if (> (minibuffer-depth) 1)

2380 (error "Too many minibuffer levels for overview."))

2381 (let ((sw (selected-window))

2382 (minibuffer-max-depth nil) ; for XEmacs20

2383 (enable-recursive-minibuffers t) sect)

2384 (unwind-protect

2385 (progn

2386 (select-window source-window)

2387 (setq sect (YaTeX-read-section-in-minibuffer

2388 "Sectioning(Up=C-p, Down=C-n, Help=?): "

2389 YaTeX-sectioning-level (YaTeX-section-overview))))

2390 (select-window sw))

2391 (YaTeX-minibuffer-erase)

2392 (insert sect)

2393 (exit-minibuffer)))

2394

2395 (defvar YaTeX-read-fontsize-history nil "Holds history of font designator.")

2396 (put 'YaTeX-read-fontsize-history 'no-default t)

2397 (defun YaTeX-read-fontsize (prompt &optional predicate must-match initial)

2398 "Read a LaTeX font changing command with completion."

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

2400 (completing-read-with-history

2401 prompt (append tmp-fontsize-table user-fontsize-table fontsize-table)

2402 predicate must-match initial 'YaTeX-read-fontsize-history))

2403

2404 (defun YaTeX-change-environment ()

2405 "Change the name of environment."

2406 (interactive)

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

2408 (save-excursion

2409 (let (p env newenv (m1 (match-beginning 1)) (m2 (match-beginning 2)))

2410 (setq env (if m1 (YaTeX-buffer-substring m1 (match-end 1))

2411 (YaTeX-buffer-substring m2 (match-end 2))))

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

2413 (set-mark-command nil)

2414 (YaTeX-goto-corresponding-environment)

2415 (setq newenv (YaTeX-read-environment

2416 (format "Change environment `%s' to: " env)))

2417 (cond

2418 ((string= newenv "") (message "Change environment cancelled."))

2419 ((string= newenv env) (message "No need to change."))

2420 (t

2421 (search-forward (concat "{" env) (point-end-of-line) t)

2422 (replace-match (concat "{" newenv) t)

2423 (exchange-point-and-mark)

2424 (search-forward (concat "{" env) (point-end-of-line) t)

2425 (replace-match (concat "{" newenv) t)))

2426 t))))

2427

2428 (defun YaTeX-change-section ()

2429 "Change section-type command."

2430 (interactive)

2431 (let*((where (YaTeX-on-section-command-p YaTeX-command-token-regexp))

2432 (p (point)) (cmd (YaTeX-match-string 1))

2433 (beg (make-marker)) (end (make-marker)) old new)

2434 (if (null where) nil

2435 (unwind-protect

2436 (let ((source-window (selected-window)))

2437 (cond

2438 ((equal where 0);;if point is on section command

2439 (set-marker beg (match-beginning 1))

2440 (set-marker end (match-end 1))

2441 (goto-char beg) ;beginning of the command

2442 (setq new (YaTeX-read-section

2443 (format "Change `%s' to: " cmd) nil)

2444 old cmd))

2445

2446 ((= where -1);;if point is on a optional parameter

2447 (set-marker beg (match-beginning 2))

2448 (skip-chars-forward "^{")

2449 (set-marker end (point))

2450 (goto-char p)

2451 (setq new

2452 (if (fboundp (intern-soft (concat YaTeX-addin-prefix cmd)))

2453 (YaTeX-addin cmd)

2454 (concat "["

2455 (read-string

2456 (format "Change `%s' to: "

2457 (setq old (YaTeX-buffer-substring

2458 (1+ beg) (1- end)))))

2459 "]"))))

2460

2461 ((> where 0);;if point is in arguments' braces

2462 (or (looking-at "{")

2463 (progn (skip-chars-backward "^{") (forward-char -1)))

2464 (set-marker beg (1+ (point)))

2465 (forward-list 1)

2466 (forward-char -1)

2467 (set-marker end (point))

2468 (setq old (YaTeX-buffer-substring beg end))

2469 (goto-char p)

2470 (if (> (length old) 40)

2471 (setq old (concat (substring old 0 12) "..."

2472 (substring old -12))))

2473 (setq new

2474 (if (intern-soft (concat "YaTeX::" cmd))

2475 (funcall (intern-soft (concat "YaTeX::" cmd)) where)

2476 (read-string (format "Change `%s' to: " old)))))

2477 ) ;cond

2478 (if (string= old new)

2479 nil ;do not replace

2480 (delete-region beg end)

2481 (goto-char beg)

2482 (insert-before-markers new)))

2483 (set-marker beg nil)

2484 (set-marker end nil))

2485 ;;(goto-char (marker-position p))

2486 new)))

2487

2488 (defun YaTeX-change-fontsize ()

2489 "Change large-type command."

2490 (let ((lt (append tmp-fontsize-table user-fontsize-table fontsize-table))

2491 (p (point)) large old new beg end)

2492 ;;(and (looking-at "}") (up-list -1))

2493 ;;(and (looking-at "{") (forward-char 1))

2494 ;;Is above convenient?

2495 (save-excursion

2496 (or (looking-at YaTeX-ec-regexp)

2497 (progn

2498 (skip-chars-backward (concat "^" YaTeX-ec-regexp))

2499 (forward-char -1)))

2500 (cond

2501 ((and

2502 (looking-at

2503 (concat YaTeX-ec-regexp "\$" YaTeX-TeX-token-regexp "\$"))

2504 (< p (match-end 0))

2505 (assoc (setq old (YaTeX-match-string 1)) lt))

2506 (goto-char p)

2507 (setq beg (match-beginning 1) end (match-end 1) ;save match position

2508 new (completing-read

2509 (format "Change font/size `%s' to : " old) lt))

2510 (delete-region beg end)

2511 (goto-char beg)

2512 (insert-before-markers new)

2513 new)

2514 (t nil)

2515 ))))

2516

2517 (defun YaTeX-change-math-image ()

2518 "Change with image completion."

2519 (let (maketitle memberp beg end)

2520 (if (and (YaTeX-on-maketitle-p)

2521 (progn

2522 (setq maketitle (substring (YaTeX-match-string 0) 1))

2523 (setq memberp (YaTeX-math-member-p maketitle))))

2524 (let ((last-command-char (string-to-char (car memberp))))

2525 (setq beg (match-beginning 0) end (match-end 0))

2526 (delete-region beg end)

2527 (YaTeX-math-insert-sequence t (cdr memberp))))))

2528

2529 (defun YaTeX-kill-* (&optional arg)

2530 "Parse current line and call suitable function.

2531 Non-nil for ARG kills its contents too."

2532 (interactive "P")

2533 (cond

2534 ((YaTeX-kill-some-pairs 'YaTeX-on-begin-end-p

2535 'YaTeX-goto-corresponding-environment arg))

2536 ((YaTeX-kill-some-pairs 'YaTeX-on-BEGIN-END-p

2537 'YaTeX-goto-corresponding-BEGIN-END arg))

2538 ((YaTeX-on-section-command-p YaTeX-command-token-regexp);on any command

2539 (YaTeX-kill-section-command (match-beginning 0) arg))

2540 ((YaTeX-kill-paren arg))

2541 (t (message "I don't know what to kill."))))

2542

2543 (defun YaTeX-change-* ()

2544 "Parse current line and call suitable function."

2545 (interactive)

2546 (cond

2547 ((YaTeX-change-parentheses))

2548 ((YaTeX-change-environment))

2549 ((YaTeX-change-section))

2550 ((YaTeX-change-fontsize))

2551 ((YaTeX-change-math-image))

2552 (t (message "I don't know what to change."))))

2553

2554 ;;;

2555 ;Check availability of add-in functions

2556 ;;;

2557 (cond

2558 ((featurep 'yatexadd) nil) ;Already provided.

2559 ((progn (load "yatexadd" t) (featurep 'yatexadd)) nil)

2560 (t (message "YaTeX add-in functions not supplied.")))

2561

2562 (defun YaTeX-addin (name)

2563 "Check availability of addin function and call it if exists."

2564 (if (and (not (get 'YaTeX-generate 'disabled))

2565 (intern-soft (concat YaTeX-addin-prefix name))

2566 (fboundp (intern-soft (concat YaTeX-addin-prefix name))))

2567 (let ((s (funcall (intern (concat YaTeX-addin-prefix name)))))

2568 (if (stringp s) s ""))

2569 "")) ;Add in function is not bound.

2570

2571

2572 (defun YaTeX-on-item-p (&optional point)

2573 "Return t if POINT (default is (point)) is on \\item."

2574 (let ((p (or point (point))))

2575 (save-excursion

2576 (goto-char p)

2577 (end-of-line)

2578 (setq p (point))

2579 (re-search-backward YaTeX-paragraph-delimiter nil t)

2580 (re-search-forward YaTeX-item-regexp p t))))

2581

2582 (defun YaTeX-in-verb-p (&optional point)

2583 "Check if POINT is in verb or verb*. Default of POINT is (point)."

2584 (setq point (or point (point)))

2585 (save-excursion

2586 (let ((md (match-data)))

2587 (goto-char point)

2588 (unwind-protect

2589 (if (not (re-search-backward

2590 (concat YaTeX-ec-regexp

2591 "\$" YaTeX-verb-regexp "\$"

2592 "\$[^-A-Za-z_*]\$")

2593 (point-beginning-of-line) t))

2594 nil

2595 (goto-char (match-end 2))

2596 (skip-chars-forward

2597 (concat "^" (YaTeX-buffer-substring

2598 (match-beginning 2) (match-end 2))))

2599 (and (< (match-beginning 2) point) (< (1- point) (point))))

2600 (store-match-data md)))))

2601

2602 (defun YaTeX-literal-p (&optional point)

2603 "Check if POINT is in verb or verb* or verbatime environment family.

2604 Default of POINT is (point)."

2605 (let ((md (match-data)))

2606 (unwind-protect

2607 (cond

2608 ((equal YaTeX-ec "\\") ;maybe LaTeX

2609 (save-excursion

2610 (and point (goto-char point))

2611 (or (YaTeX-in-verb-p (point))

2612 (and (not (looking-at "\\\\end{verb"))

2613 (YaTeX-quick-in-environment-p

2614 YaTeX-verbatim-environments))))))

2615 (store-match-data md))))

2616

2617 (defun YaTeX-in-environment-p (env)

2618 "Return if current LaTeX environment is ENV.

2619 ENV is given in the form of environment's name or its list."

2620 (let ((md (match-data)) (nest 0) p envrx)

2621 (cond

2622 ((atom env)

2623 (setq envrx

2624 (concat "\\("

2625 (regexp-quote

2626 (YaTeX-replace-format-args

2627 YaTeX-struct-begin env "" ""))

2628 "\\)\\|\\("

2629 (regexp-quote

2630 (YaTeX-replace-format-args

2631 YaTeX-struct-end env "" ""))

2632 "\\)"))

2633 (save-excursion

2634 (setq p (catch 'open

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

2636 envrx YaTeX-comment-prefix nil t)

2637 (if (match-beginning 2)

2638 (setq nest (1+ nest))

2639 (setq nest (1- nest)))

2640 (if (< nest 0)

2641 (throw 'open (cons env (match-beginning 0)))))))))

2642 ((listp env)

2643 (setq p

2644 (or (YaTeX-in-environment-p (car env))

2645 (and (cdr env) (YaTeX-in-environment-p (cdr env)))))))

2646 (store-match-data md)

2647 p;(or p (YaTeX-in-verb-p (match-beginning 0)))

2648 ))

2649

2650 (defun YaTeX-quick-in-environment-p (env)

2651 "Check quickly but unsure if current environment is ENV.

2652 ENV is given in the form of environment's name or its list.

2653 This function returns correct result only if ENV is NOT nested."

2654 (save-excursion

2655 (let ((md (match-data)) m0 (p (point)) rc clfound)

2656 (cond

2657 ((listp env)

2658 (or (YaTeX-quick-in-environment-p (car env))

2659 (and (cdr env) (YaTeX-quick-in-environment-p (cdr env)))))

2660 (t

2661 (unwind-protect

2662 (if (prog1

2663 (YaTeX-search-active-backward

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

2665 YaTeX-comment-prefix nil t)

2666 (setq m0 (match-beginning 0)))

2667 (if (YaTeX-search-active-forward

2668 (YaTeX-replace-format-args

2669 YaTeX-struct-end env)

2670 YaTeX-comment-prefix p t nil)

2671 nil ;if \end{env} found, return nil

2672 (cons env m0))) ;else, return meaningful values

2673 (store-match-data md)))))))

2674

2675 ;; Filling \item

2676 (defun YaTeX-remove-trailing-comment (start end)

2677 "Remove trailing comment from START to end."

2678 (save-excursion

2679 (let ((trcom (concat YaTeX-comment-prefix "$")))

2680 (goto-char start)

2681 (while (re-search-forward trcom end t)

2682 (if (/= (char-after (1- (match-beginning 0))) ?\\ )

2683 (replace-match "\\1"))))))

2684

2685 (defvar YaTeX-itemize-withlabel-max-indent-depth 8)

2686 (defun YaTeX-get-item-info (&optional recent thisenv)

2687 "Return the list of the beginning of \\item and column of its item.

2688 If it seems to be outside of itemizing environment, just return nil.

2689 Non-nil for optional argument RECENT refers recent \\item.

2690 Optional second argument THISENV omits calling YaTeX-inner-environment."

2691 (save-excursion

2692 (let* ((p (point)) env e0 c cc md

2693 (bndry (and (setq env (or thisenv (YaTeX-inner-environment t)))

2694 (get 'YaTeX-inner-environment 'point))))

2695 (end-of-line)

2696 (if (if recent

2697 (catch 'found

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

2699 YaTeX-item-regexp YaTeX-comment-prefix bndry t)

2700 (setq md (match-data))

2701 (YaTeX-inner-environment t)

2702 (store-match-data md)

2703 (if (= bndry (get 'YaTeX-inner-environment 'point))

2704 (throw 'found t))))

2705 (goto-char bndry)

2706 (YaTeX-re-search-active-forward

2707 YaTeX-item-regexp YaTeX-comment-prefix p t))

2708 (progn

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

2710 ;(setq c (current-column))

2711 (if (string-match "desc" env)

2712 (setq c 6)

2713 (setq cc (current-column))

2714 (if (equal (following-char) ?\[) (forward-list 1))

2715 (if (< (- (current-column) cc)

2716 YaTeX-itemize-withlabel-max-indent-depth)

2717 (setq c 0)

2718 (move-to-column cc)

2719 (setq c YaTeX-itemize-withlabel-max-indent-depth)))

2720 (skip-chars-forward " \t" (point-end-of-line))

2721 (list (point-beginning-of-line) (+ c (current-column))))))))

2722

2723 (defun YaTeX-fill-item ()

2724 "Fill item in itemize environment."

2725 (interactive)

2726 (save-excursion

2727 (let* ((p (point))

2728 (item-term (concat

2729 "\$^[ \t]*$\$\\|" YaTeX-item-regexp "\\|\\("

2730 YaTeX-ec-regexp "\$begin\\|end\$\\)"))

2731 ;;This value depends on LaTeX.

2732 fill-prefix start col

2733 (info (YaTeX-get-item-info t)))

2734 (if (null info) nil ;not on \item, do nothing

2735 (setq start (car info)

2736 col (car (cdr info)))

2737 (save-excursion

2738 (if (re-search-backward "^\\s *$" start t)

2739 ;;if separated from \item line, isolate this block

2740 (progn

2741 (setq start (1+ (match-end 0)))

2742 (goto-char start)

2743 (skip-chars-forward " \t")

2744 (delete-region (point) start) ;is this your favor???

2745 (indent-to col))))

2746 (beginning-of-line)

2747 (if (<= (save-excursion

2748 (re-search-forward

2749 (concat "\\\\end{\\|\\\\begin{\\|^[ \t]*$") nil t)

2750 (match-beginning 0))

2751 p)

2752 (progn (message "Not on itemize.") nil)

2753 (end-of-line)

2754 (newline)

2755 (indent-to col)

2756 (setq fill-prefix

2757 (YaTeX-buffer-substring (point-beginning-of-line)(point)))

2758 (beginning-of-line)

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

2760 (re-search-forward item-term nil 1)

2761 (YaTeX-remove-trailing-comment start (point))

2762 (beginning-of-line)

2763 (push-mark (point) t)

2764 (goto-char start)

2765 (forward-line 1)

2766 (while (< (point) (mark))

2767 (delete-region (point) (progn (skip-chars-forward " \t") (point)))

2768 (forward-line 1))

2769 (fill-region-as-paragraph start (mark))

2770 (if NTT-jTeX

2771 (while (progn(forward-line -1)(end-of-line) (> (point) start))

2772 (insert ?%)))

2773 (pop-mark))))))

2774

2775 (defun YaTeX-fill-paragraph (arg)

2776 "YaTeX adjustment function for fill-paragraph.

2777 *Protect \\verb from unexpected broken up."

2778 (interactive "P")

2779 (cond

2780 ((not (eq major-mode 'yatex-mode)) (fill-paragraph arg))

2781 ((YaTeX-quick-in-environment-p YaTeX-fill-inhibit-environments) nil)

2782 ((YaTeX-in-math-mode-p) nil)

2783 (t

2784 (save-excursion

2785 (let*((verbrex (concat YaTeX-ec-regexp

2786 "\$" YaTeX-verb-regexp "\$" ;match#1

2787 "\$.\$.*\$\\2\$")) ;match #2 and #3

2788 (tilderex (concat "\\("

2789 YaTeX-kanji-regexp "~"

2790 "\\)" YaTeX-ec-regexp

2791 "\\|\\("

2792 "~" YaTeX-kanji-regexp

2793 "\\)"))

2794 (p (point)) ii end poslist spacelist lenlist b e n

2795 (fill-prefix fill-prefix)

2796 (inenv (or (YaTeX-inner-environment t) "document"))

2797 (border (get 'YaTeX-inner-environment 'point)))

2798 (cond

2799 ((save-excursion (beginning-of-line) ;if point is on the first

2800 (setq end (point)) ;non-whitespace char

2801 (skip-chars-forward " \t")

2802 (equal (point) p))

2803 (setq fill-prefix (YaTeX-buffer-substring p end)))

2804 ((and ;;(not YaTeX-emacs-19)

2805 (string-match YaTeX-itemizing-env-regexp inenv)

2806 (setq ii (YaTeX-get-item-info)))

2807 (save-excursion

2808 (beginning-of-line)

2809 (indent-to-column (car (cdr ii)))

2810 (setq fill-prefix

2811 (YaTeX-buffer-substring (point) (point-beginning-of-line)))

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

2813 (cond

2814 ((string-match "tabular" inenv)

2815 (let ((b (point-beginning-of-line))

2816 (e (point-end-of-line)))

2817 (if (re-search-backward

2818 "&\\|\\\\\\\\\\|\\\\\$begin\\|end\${" border t)

2819 (setq b (if (match-beginning 1)

2820 (progn (forward-line 1) (point))

2821 (point-beginning-of-line))))

2822 (goto-char p)

2823 (if (re-search-forward

2824 "&\\|\\\\\\\\\\|\\\\\$end\\|begin\${" nil t)

2825 (setq e (if (match-beginning 1)

2826 (progn (forward-line -1)

2827 (point-end-of-line))

2828 (match-beginning 0))))

2829 (set-mark e)

2830 (goto-char b)))

2831 (t

2832 (mark-paragraph)))

2833 (save-restriction

2834 (narrow-to-region (region-beginning) (region-end))

2835 (YaTeX-remove-trailing-comment (point-min) (point-max))

2836 ;; First, replace spaces in verb to _ temporarily.

2837 (goto-char (point-min))

2838 (while (YaTeX-re-search-active-forward

2839 verbrex YaTeX-comment-prefix (point-max) t)

2840 (setq end (match-beginning 3))

2841 (goto-char (match-beginning 2))

2842 (while (re-search-forward "\\s " end t)

2843 (setq poslist (cons (make-marker) poslist)

2844 spacelist (cons (preceding-char) spacelist)

2845 lenlist (cons 1 lenlist))

2846 (replace-match "_")

2847 (set-marker (car poslist) (match-beginning 0))))

2848 ;; Second, replace "表~\ref{...}" to "\\\ref{...}"

2849 (goto-char (point-min))

2850 (while (YaTeX-re-search-active-forward

2851 tilderex YaTeX-comment-prefix (point-max) t)

2852 (if (match-beginning 1)

2853 (setq b (match-beginning 1) e (match-end 1) n 1)

2854 (setq b (match-beginning 2) e (match-end 2) n 2))

2855 (setq poslist (cons (make-marker) poslist)

2856 spacelist (cons (YaTeX-match-string n) spacelist)

2857 lenlist (cons 2 lenlist))

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

2859 (delete-region (point) e)

2860 (insert YaTeX-ec YaTeX-ec) ;set-marker should be here

2861 (set-marker (car poslist) b))

2862 ;;(fill-paragraph arg)

2863 (fill-region-as-paragraph (point-min) (point-max) arg)

2864 (while spacelist

2865 (goto-char (car poslist))

2866 (set-marker (car poslist) nil)

2867 (and (eolp) (skip-chars-forward "\n\t "))

2868 (delete-char (car lenlist))

2869 (insert (car spacelist))

2870 (setq spacelist (cdr spacelist)

2871 poslist (cdr poslist)

2872 lenlist (cdr lenlist)))

2873 (goto-char (point-min))

2874 (forward-word 1)

2875 (beginning-of-line)

2876 (while (re-search-forward "\\\\\$[a-z]*ref\\|cite\${" nil t)

2877 (if (< (point-end-of-line)

2878 (save-excursion (forward-char -1) (forward-list 1) (point)))

2879 (progn (end-of-line)

2880 (if (save-excursion

2881 (backward-word 1)

2882 (looking-at "[^0-9A-z!-)]"))

2883 (insert YaTeX-comment-prefix)))))

2884 ;; Nonbreak space `~'

2885 (goto-char (point-min))

2886 (while (YaTeX-re-search-active-forward

2887 "~\$\\s *\$$" YaTeX-comment-prefix (point-max) t)

2888 (delete-region (match-beginning 1) (match-end 1))

2889 (insert YaTeX-comment-prefix))

2890 (goto-char (point-min))

2891 (if (and NTT-jTeX (looking-at "[ \t]\\|^$"))

2892 (progn

2893 (goto-char (point-min))

2894 (while (not (eobp))

2895 (end-of-line)

2896 (or (bolp)

2897 (save-excursion

2898 (backward-word 1)

2899 (looking-at "[0-9A-z!-)]")) ;is not japanese string

2900 (progn (setq p (point)) (insert YaTeX-comment-prefix)))

2901 (forward-line 1))

2902 (goto-char p)

2903 (if (looking-at "%") (delete-char 1)) ;remove last inserted `%'

2904 ))))))))

2905

2906 (if (fboundp 'YaTeX-saved-indent-new-comment-line) nil

2907 (fset 'YaTeX-saved-indent-new-comment-line

2908 (symbol-function 'indent-new-comment-line))

2909 (fset 'indent-new-comment-line 'YaTeX-indent-new-comment-line))

2910

2911 (defun YaTeX-indent-new-comment-line (&optional soft)

2912 "Tuned `indent-new-comment-line' function for yatex.

2913 See the documentation of `YaTeX-saved-indent-new-comment-line'."

2914 (interactive)

2915 (cond

2916 ((or (not (memq major-mode '(yatex-mode yahtml-mode)))

2917 (string-match

2918 "document"

2919 (or (and (boundp 'inenv) inenv)

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

2921 (apply 'YaTeX-saved-indent-new-comment-line (if soft (list soft))))

2922 ; ((and (eq major-mode 'yahtml-mode)

2923 ; (string-match

2924 ; "^[Pp][Rr][Ee]" (yahtml-inner-environment-but "^[Aa]\\b" t)))

2925 ; (yahtml-indent-new-commnet-line))

2926 ((and (eq major-mode 'yatex-mode) ;1997/2/4

2927 (YaTeX-in-math-mode-p)) nil) ;1996/12/30

2928 (t (let (fill-prefix)

2929 (apply 'YaTeX-saved-indent-new-comment-line (if soft (list soft)))))))

2930

2931 (defun YaTeX-fill-* ()

2932 "Fill paragraph according to its condition."

2933 (interactive)

2934 (cond

2935 ((YaTeX-fill-item))

2936 ))

2937

2938 ;; Accent completion

2939 (defun YaTeX-read-accent-char (x)

2940 "Read char in accent braces."

2941 (let ((c (read-char)))

2942 (concat

2943 (if (and (or (= c ?i) (= c ?j))

2944 (not (string-match (regexp-quote x) "cdb")))

2945 "\\" "")

2946 (char-to-string c))))

2947

2948 (defun YaTeX-make-accent ()

2949 "Make accent usage."

2950 (interactive)

2951 (message "1:` 2:' 3:^ 4:\" 5:~ 6:= 7:. u v H t c d b")

2952 (let ((c (read-char))(case-fold-search nil))

2953 (setq c (cond ((and (> c ?0) (< c ?8))

2954 (substring "`'^\"~=." (1- (- c ?0)) (- c ?0)))

2955 ((= c ?h) "H")

2956 (t (char-to-string c))))

2957 (if (not (string-match c "`'^\"~=.uvHtcdb")) nil

2958 (insert "\\" c "{}")

2959 (backward-char 1)

2960 (insert (YaTeX-read-accent-char c))

2961 (if (string= c "t") (insert (YaTeX-read-accent-char c)))

2962 (forward-char 1))))

2963

2964 ;; Indentation

2965 (defun YaTeX-current-indentation ()

2966 "Return the indentation of current environment."

2967 (save-excursion

2968 ;;(beginning-of-line)

2969 (if (YaTeX-beginning-of-environment t)

2970 (goto-char (get 'YaTeX-inner-environment 'point))

2971 (forward-line -1)

2972 (beginning-of-line)

2973 (skip-chars-forward " \t"))

2974 (current-column)))

2975

2976 (defun YaTeX-previous-line-indentation ()

2977 (save-excursion

2978 (forward-line -1)

2979 (skip-chars-forward " \t")

2980 (current-column)))

2981

2982 (defvar YaTeX-noindent-env-regexp "verbatim\\*?\\|alltt"

2983 "*Regexp of environment names that should begin with no indentation.

2984 All verbatime-like environment name should match with.")

2985 (defun YaTeX-indent-line ()

2986 "Indent corrent line referrin current environment."

2987 (interactive)

2988 (let ((indent-relative

2989 (function

2990 (lambda (&optional additional)

2991 (YaTeX-reindent

2992 (+ (YaTeX-current-indentation)

2993 (or additional 0)

2994 YaTeX-environment-indent)))))

2995 sect depth iteminfo (p (point)) pp (peol (point-end-of-line)) begend

2996 ;;inenv below is sometimes defined in YaTeX-indent-new-comment-line

2997 (inenv (or (and (boundp 'inenv) inenv) (YaTeX-inner-environment t))))

2998 ;;(if NTT-jTeX ;;Do you need this section?

2999 ;; (save-excursion

3000 ;; (end-of-line)

3001 ;; (let ((p (point)))

3002 ;; (forward-line -1)

3003 ;; (end-of-line)

3004 ;; (or (= p (point))

3005 ;; (progn (backward-char (length YaTeX-comment-prefix))

3006 ;; (not (looking-at (regexp-quote YaTeX-comment-prefix))))

3007 ;; (progn

3008 ;; (skip-chars-backward YaTeX-comment-prefix)

3009 ;; (kill-line))))))

3010 (or inenv (setq inenv "document")) ;is the default environment

3011 (cond

3012 ((and

3013 (prog1 (YaTeX-on-begin-end-p)

3014 (setq begend (match-beginning 0)))

3015 (or (match-beginning 2) ;if \end

3016 (and (match-beginning 3) ;if \) \]

3017 (= (char-syntax (char-after (1+ (match-beginning 3)))) ?\)))))

3018 (YaTeX-reindent

3019 (save-excursion

3020 (YaTeX-goto-corresponding-environment)

3021 (current-column))))

3022 ;; on the begining of verbatime line, remove all indentation

3023 ((and begend ;; match-beginning 0 of \begin

3024 YaTeX-noindent-env-regexp

3025 (stringp YaTeX-noindent-env-regexp)

3026 (save-excursion

3027 (and ;; if the \begin is the first declaration of this line

3028 (progn (beginning-of-line) (skip-chars-forward " \t")

3029 (= begend (point)))

3030 (progn

3031 (goto-char begend)

3032 (looking-at

3033 (concat YaTeX-ec-regexp

3034 "begin{\$" YaTeX-noindent-env-regexp "\$}"))))))

3035 (save-excursion

3036 (goto-char begend)

3037 (delete-region (point) (point-beginning-of-line))))

3038 ((string-match YaTeX-equation-env-regexp inenv)

3039 (YaTeX-indent-line-equation)) ;autoload-ed from yatexenv

3040 (;(YaTeX-in-environment-p '("itemize" "enumerate" "description" "list"))

3041 (string-match YaTeX-itemizing-env-regexp inenv)

3042 ;;(YaTeX-on-item-p) ??

3043 ;;(setq iteminfo (YaTeX-get-item-info t))

3044 (if (save-excursion

3045 (beginning-of-line)

3046 (re-search-forward YaTeX-item-regexp peol t))

3047 (progn

3048 (save-excursion

3049 (goto-char (1+ (match-beginning 0)))

3050 (setq depth

3051 (* YaTeX-environment-indent

3052 (cond

3053 ((looking-at "subsubsub") 3)

3054 ((looking-at "subsub") 2)

3055 ((looking-at "sub") 1)

3056 (t 0)))))

3057 (funcall indent-relative depth))

3058 (YaTeX-reindent (or (car (cdr (YaTeX-get-item-info t inenv)))

3059 (+ (save-excursion

3060 (beginning-of-line)

3061 (YaTeX-current-indentation))

3062 YaTeX-environment-indent))))

3063 )

3064 ((YaTeX-literal-p) ;verbatims

3065 (tab-to-tab-stop))

3066 ((string-match "\$tabular\\|array\$" inenv) ;1.73

3067 (let ((n 1))

3068 (condition-case err

3069 (save-excursion

3070 (beginning-of-line)

3071 (skip-chars-forward "[ \t]")

3072 ;;(if (looking-at "&") (forward-char 1))

3073 (require 'yatexenv)

3074 (setq n (car (YaTeX-array-what-column-internal))))

3075 (error nil))

3076 (YaTeX-reindent

3077 (+ (YaTeX-current-indentation)

3078 YaTeX-environment-indent

3079 (* (1- n) YaTeX-tabular-indentation)))))

3080 ((and inenv (not (equal "document" inenv)))

3081 (funcall indent-relative))

3082 ((YaTeX-on-section-command-p YaTeX-sectioning-regexp)

3083 (require 'yatexsec) ;to know YaTeX-sectioning-level

3084 (setq sect (YaTeX-match-string 1))

3085 (if (string-match "\\*$" sect)

3086 (setq sect (substring sect 0 -1)))

3087 (YaTeX-reindent

3088 (* (max

3089 (1- ;I want chapter to have indentation 0

3090 (or (cdr (assoc sect YaTeX-sectioning-level))

3091 0))

3092 0)

3093 YaTeX-environment-indent)))

3094 ;;Default movement

3095 ((and (bolp) fill-prefix) (insert fill-prefix))

3096 (t (save-excursion

3097 (beginning-of-line)

3098 (if fill-prefix

3099 (progn

3100 (delete-region (point)

3101 (progn (skip-chars-forward " \t")

3102 (point)))

3103 (insert fill-prefix))

3104 (skip-chars-forward " \t")

3105 (if (bobp)

3106 nil

3107 (indent-relative-maybe))))

3108 (skip-chars-forward " \t")))

3109 ;;if current line is \begin, re-indent \end too

3110 (if (and (YaTeX-on-begin-end-p) (match-beginning 1))

3111 (save-excursion

3112 ;;(beginning-of-line)

3113 ;;(search-forward "\\begin")

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

3115 (setq depth (current-column))

3116 (YaTeX-goto-corresponding-environment)

3117 (YaTeX-reindent depth)))

3118 (if (or

3119 (and NTT-jTeX

3120 (save-excursion (beginning-of-line) (looking-at "[ \t]")))

3121 (save-excursion

3122 (beginning-of-line)

3123 (and

3124 (not (bobp))

3125 (progn

3126 (backward-char 1)

3127 (re-search-backward

3128 "\\\\\$\\(page\$?ref\\|cite\\){" (point-beginning-of-line) t))

3129 (goto-char (1- (match-end 0)))

3130 (> (save-excursion

3131 (condition-case ()

3132 (progn (forward-list 1) (point))

3133 (error (point-max))))

3134 (point-end-of-line)))))

3135 (save-excursion

3136 (end-of-line)

3137 (let ((p (point)))

3138 (forward-line -1)

3139 (end-of-line)

3140 (or (= p (point))

3141 (looking-at (regexp-quote YaTeX-comment-prefix))

3142 (bobp) (bolp)

3143 (save-excursion

3144 (backward-word 1)

3145 (looking-at "\\sw+")) ;is not japanese string

3146 (insert YaTeX-comment-prefix)))))))

3147

3148 (defun YaTeX-comment-line-break (&optional soft)

3149 "Call comment-indent-new-line and YaTeX-indent-line"

3150 (comment-indent-new-line soft)

3151 (YaTeX-indent-line))

3152

3153 (defun YaTeX-latex2e-p ()

3154 (let ((b (current-buffer))

3155 (ptn (concat YaTeX-ec "documentclass")))

3156 (unwind-protect

3157 (or (save-excursion (search-backward ptn nil t))

3158 (progn

3159 (YaTeX-visit-main t)

3160 (save-excursion (search-backward ptn nil t))))

3161 (set-buffer b))))

3162

3163 (provide 'yatex)

3164 (defvar yatex-mode-load-hook nil

3165 "*List of functions to be called when yatex.el is loaded.")

3166 (if (and YaTeX-emacs-19 YaTeX-display-color-p (not (featurep 'yatex19)))

3167 (load "yatex19"))

3168 (load "yatexhks" t)

3169

3170 ;;-------------------- Final hook jobs --------------------

3171 (substitute-all-key-definition

3172 'fill-paragraph 'YaTeX-fill-paragraph YaTeX-mode-map)

3173 (substitute-all-key-definition

3174 'kill-buffer 'YaTeX-kill-buffer YaTeX-mode-map)

3175 (run-hooks 'yatex-mode-load-hook)

3176

3177 ;; `History' was moved to ChangeLog

3178 ;----------------------------- End of yatex.el -----------------------------

3179

3180 ; Local variables:

3181 ; coding: sjis

3182 ; End: