Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatex19.el @ 58:3a7c0c2bf16d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
author yuuji
date Thu, 01 Feb 1996 18:55:47 +0000
parents 18f4939986e6
children 48ac97a6b6ce
comparison
equal deleted inserted replaced
57:18f4939986e6 58:3a7c0c2bf16d
1 ;;; -*- Emacs-Lisp -*- 1 ;;; -*- Emacs-Lisp -*-
2 ;;; YaTeX facilities for Emacs 19 2 ;;; YaTeX facilities for Emacs 19
3 ;;; (c )1994-1995 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp] 3 ;;; (c )1994-1995 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
4 ;;; Last modified Sun Dec 3 03:29:56 1995 on inspire 4 ;;; Last modified Wed Dec 20 22:32:21 1995 on supra
5 ;;; $Id$ 5 ;;; $Id$
6 6
7 ;;; とりあえず hilit19 を使っている時に色が付くようにして 7 ;;; とりあえず hilit19 を使っている時に色が付くようにして
8 ;;; メニューバーでごにょごにょできるようにしただけ。 8 ;;; メニューバーでごにょごにょできるようにしただけ。
9 ;;; いったい誰がメニューバー使ってLaTeXソース書くんだろうか? 9 ;;; いったい誰がメニューバー使ってLaTeXソース書くんだろうか?
261 261
262 (defvar YaTeX-hilit-patterns-alist 262 (defvar YaTeX-hilit-patterns-alist
263 '( 263 '(
264 ;; comments 264 ;; comments
265 (YaTeX-19-region-comment "\\([^\\]\\|^\\)\\(%\\).*$" comment) 265 (YaTeX-19-region-comment "\\([^\\]\\|^\\)\\(%\\).*$" comment)
266 266
267 (YaTeX-19-region-section-type "\\\\footnote\\(mark\\|text\\)?{" keyword) 267 (YaTeX-19-region-section-type "\\\\footnote\\(mark\\|text\\)?{" keyword)
268 ("\\\\[a-z]+box" 0 keyword) 268 ("\\\\[a-z]+box" 0 keyword)
269 (YaTeX-19-region-section-type "\\\\\\(v\\|h\\)space\\(\*\\)?{" keyword) 269 (YaTeX-19-region-section-type "\\\\\\(v\\|h\\)space\\(\*\\)?{" keyword)
270 270
271 ;; (re-)define new commands/environments/counters 271 ;; (re-)define new commands/environments/counters
272 (YaTeX-19-region-section-type 272 (YaTeX-19-region-section-type
273 "\\\\\\(re\\)?new\\(environment\\|command\\|theorem\\){" defun) 273 "\\\\\\(re\\)?new\\(environment\\|command\\|theorem\\){" defun)
274 (YaTeX-19-region-section-type 274 (YaTeX-19-region-section-type
275 "\\\\\\(re\\)?new\\(length\\|counter\\){" define) 275 "\\\\\\(re\\)?new\\(length\\|counter\\){" define)
297 "\\\\caption\\(\\[[^]]*\\]\\)?{" label) 297 "\\\\caption\\(\\[[^]]*\\]\\)?{" label)
298 298
299 ;; formulas 299 ;; formulas
300 ("[^\\]\\\\(" "\\\\)" formula) ; \( \) 300 ("[^\\]\\\\(" "\\\\)" formula) ; \( \)
301 ("[^\\]\\\\\\[" "\\\\\\]" formula) ; \[ \] 301 ("[^\\]\\\\\\[" "\\\\\\]" formula) ; \[ \]
302 ("\\\\begin{\\(eqn\\|equation\\)" "\\\\end{\\(eqn\\|equation\\)" formula) 302 ("\\\\begin{\\(eqn\\|equation\\|x?x?align\\|split\\|multiline\\|gather\\)"
303 ("[^\\$]\\($\\($[^$]*\\$\\|[^$]*\\)\\$\\)" 1 formula) ; '$...$' or '$$...$$' 303 "\\\\end{\\(eqn\\|equation\\|x?x?align\\|split\\|multiline\\|gather\\).*}"
304 formula)
305 ("[^\\$]\\($\\($[^$]*\\$\\|[^$]*\\)\\$\\)" 1 formula); '$...$' or '$$...$$'
304 306
305 ;; things that bring in external files 307 ;; things that bring in external files
306 ("\\\\\\(include\\|input\\|bibliography\\){" "}" include) 308 ("\\\\\\(include\\|input\\|bibliography\\){" "}" include)
307 309
308 ;; "wysiwyg" emphasis -- these don't work with nested expressions 310 ;; "wysiwyg" emphasis -- these don't work with nested expressions
314 ("``" "''" string) 316 ("``" "''" string)
315 317
316 ;; things that do some sort of cross-reference 318 ;; things that do some sort of cross-reference
317 (YaTeX-19-region-section-type 319 (YaTeX-19-region-section-type
318 "\\\\\\(\\(no\\)?cite\\|\\(page\\)?ref\\|label\\|index\\|glossary\\){" 320 "\\\\\\(\\(no\\)?cite\\|\\(page\\)?ref\\|label\\|index\\|glossary\\){"
319 crossref) 321 crossref))
320 ) 322 "*Hiliting pattern alist for LaTeX text.")
321 "*Hiliting pattern alist for LaTeX text.")
322 323
323 ;;(defvar YaTeX-hilit-pattern-adjustment-default nil) 324 ;;(defvar YaTeX-hilit-pattern-adjustment-default nil)
324 ;; ↑いらなくなった。 325 ;; ↑いらなくなった。
325 (defvar YaTeX-hilit-pattern-adjustment-private nil 326 (defvar YaTeX-hilit-pattern-adjustment-private nil
326 "*Adjustment hilit-pattern-alist for default yatex-mode's pattern.") 327 "*Adjustment hilit-pattern-alist for default yatex-mode's pattern.")
503 ;;; (hilit-translate 504 ;;; (hilit-translate
504 ;;; string 'mediumspringgreen 505 ;;; string 'mediumspringgreen
505 ;;; formula 'khaki 506 ;;; formula 'khaki
506 ;;; label 'yellow-underlined)) 507 ;;; label 'yellow-underlined))
507 (and YaTeX-emacs-19 508 (and YaTeX-emacs-19
508 (eval-when-compile 509 (boundp 'byte-compile-current-file)
509 (if (and (boundp 'window-system) window-system) 510 (if (and (boundp 'window-system) window-system)
510 (require 'hilit19) 511 (require 'hilit19)
511 (error "Byte compile this file on window system! Not `-nw'!")))) 512 (error "Byte compile this file on window system! Not `-nw'!")))
512 513
513 (provide 'yatex19) 514 (provide 'yatex19)

yatex.org