(provide (quote TeX-mode)) (require (quote VorTeX-common)) (require (quote backquote)) (defvar tex-speller "/usr/bin/spell") (defvar tex-spellin "/usr/bin/spellin") (defvar tex-spellout "/usr/bin/spellout") (defvar tex-dictionary "/usr/dict/words") (defvar tex-hsl-global "/usr/dict/hlista" "\ Global hashed spelling list.") (defvar tex-hsl-default nil "\ User-defined default hashed spelling list.") (defvar tex-usl-default nil "\ User-defined default unhashed spelling list.") (defvar tex-look "/usr/bin/look") (defvar tex-egrep "/usr/bin/egrep") (defvar tex-detex "/usr/sww/bin/detex -i") (defvar tex-delatex "/usr/sww/bin/delatex") (defvar tex-bib-month-regexp (vortex-mkstring nil nil (quote ("jan" "feb" "mar" "apr" "may" "jun" "jul" "aug" "sep" "oct" "nov" "dec"))) "\ List of abbreviations for months pre-defined in BibTeX") (defvar tex-cite-case-fold-search default-case-fold-search) (defvar tex-cite-use-full-query nil) (defvar tex-cite-query-fields (quote (("ANYFIELD") ("AUTHOR" "EDITOR") ("TITLE") ("JOURNAL" "BOOKTITLE") ("INSTITUTION" "ORGANIZATION" "SCHOOL") ("YEAR")))) (defvar tex-delimiters-auto nil "\ List of custom-made automatic matching delimiters") (defvar tex-delimiters-semi nil "\ List of custom-made semi-automatic matching delimiters") (defvar tex-latex-envs nil "\ List of custom-made LaTeX env matching delimiters") (defvar tex-index-level-on nil "\ True if index level specification is required.") (defvar tex-index-actual-on nil "\ True if there needs to be an actual field.") (defvar tex-index-encap-on nil "\ True if page numbers are to be encapsulated.") (defvar tex-index-keyptrn-on nil "\ True if [key, ptrn] needs to be saved.") (defvar tex-index-command-prefix "\\index{") (defvar tex-index-command-suffix "}") (defvar tex-index-level "!") (defvar tex-index-actual "@") (defvar tex-index-encap "|") (defvar tex-index-processor "makeindex") (defvar tex-insp-use-dvi nil) (defvar tex-insp-dvi2x-flags "=700x200") (defvar tex-boundary-check-on t "\ Do or not do boundary checking") (defvar tex-latex-indentation 2 "\ Default LaTeX environment indentation") (defconst tex-formatter-specs-for-x (\` (("latex" "latex" "LaTeX" "RET/L(aTeX)" (13 108 76) "retex -f latex" (\, tex-delatex) nil "\\end{document} ") ("tex" "tex" "TeX" "T(eX)" (116 84) "retex" (\, tex-detex) "" "\\bye ") ("amstex" "amstex" "AmSTeX" "A(msTeX)" (97 65) "retex -f amstex" (\, tex-detex) "\\document " "\\enddocument ") ("slitex" "slitex" "SliTeX" "S(liTeX)" (115 83) "retex -f slitex" (\, tex-delatex) nil "\\end{document} ")))) (defconst tex-formatter-specs-for-sunview (\` (("latex" "latex" "LaTeX" "RET/L(aTeX)" (13 108 76) "latexdvi" (\, tex-delatex) nil "\\end{document} ") ("tex" "tex" "TeX" "T(eX)" (116 84) "texdvi" (\, tex-detex) "" "\\bye ") ("amstex" "amstex" "AmSTeX" "A(msTeX)" (97 65) "amstexdvi" (\, tex-detex) "\\document " "\\enddocument ") ("slitex" "slitex" "SliTeX" "S(liTeX)" (115 83) "slitexdvi" (\, tex-delatex) nil "\\end{document} ")))) (defvar tex-formatter-specs (cond ((eq window-system (quote x)) tex-formatter-specs-for-x) ((eq window-system (quote sunview)) tex-formatter-specs-for-sunview) (t tex-formatter-specs-for-sunview)) "\ Summary of information that differs between formatters.") (defvar tex-dvisend "dvisend" "\ Processor which talks to DVI previewer; X only.") (defvar tex-softcopy (cond ((and (eq window-system (quote x)) (eq window-system-version 11)) "dvi2x11") ((eq window-system (quote x)) "dvi2x") (t "dvitool")) "\ TeX DVI previewer.") (defconst tex-bib-env "BIBINPUTS") (defconst tex-bib-path (vortex-mkpath tex-bib-env)) (defconst tex-inputs-env "TEXINPUTS") (defconst tex-inputs-path (vortex-mkpath tex-inputs-env)) (defconst tex-input "\\\\input\\|\\\\blackandwhite\\|\\\\colorslides") (defvar tex-mode-syntax-table nil "\ Syntax table in use in TeX mode buffers.") (defvar tex-mode-abbrev-table nil "\ Abbrev table in use in TeX mode buffers.") (defvar tex-mode-customization nil "\ Flag t when TeX mode is customized.") (defvar tex-mode-initialization nil "\ Flag t after tex-mode initialized") (defun tex-mode (&optional quiet) "\ Major mode for editing TeX documents." (interactive) (byte-code "ƈ ? !ʉˉ! ?( ʼn ?7 ʼn" [tex-mode-initialization tex-mode-map major-mode mode-name tex-mode-customization t nil kill-all-local-variables tex-mode-init use-local-map tex-mode "TeX" run-hooks tex-mode-hook tex-mode-customize tex-local-startup tex-mode-copyright] 9)) (defun tex-mode-init nil (byte-code " \" \"\"\"\" \" 0!> \" >!) ?X! S Wlj)" [nil tex-mode-syntax-table init load-path vortex-default-printer env tex-printer-query t tex-mode-keymap-init define-abbrev-table tex-mode-abbrev-table make-syntax-table modify-syntax-entry 123 "(}" 125 "){" 91 "(]" 93 ")[" vortex-file-exists-p "TeX-init.el" load "TeX-init" "TeX-init.elc" getenv "PRINTER"] 14)) (defun tex-mode-customize nil (byte-code "  " [tex-delimiters-auto tex-delimiters-semi tex-latex-envs tex-mkgrp-auto tex-mkgrp-semi tex-mkgrp-env] 4)) (defun tex-mode-help nil (interactive) (byte-code "! U!eb!‰!" [nil buffer-read-only t pop-to-buffer "--- TeX-mode Help ---" buffer-size 0 insert-string " --- Categories --- Format/Display Preview/Print Debugging Facilities Spelling Checking Bibliography Processing Indexing Basic Matching Zone Matching Word Matching Automatic Matching LaTeX Environments Customized Matching Mode & Global Operations Useful Variables --- Format/Display --- C-c C-f d tex-format-document C-c C-d d tex-display-document C-c C-f b tex-format-buffer C-c C-d b tex-display-buffer C-c C-f r tex-format-region C-c C-d r tex-display-region --- Preview/Print --- C-c C-v SPC tex-view-all C-c C-v DEL tex-view-partial C-c C-x SPC tex-x-view-all C-c C-x DEL tex-x-view-partial C-c C-p SPC tex-print-all C-c C-p DEL tex-print-partial --- Debugging Facilities --- C-c C-c tex-comment-region C-c C-u tex-uncomment-region C-c C-@ tex-goto-error --- Spelling Checking --- C-c C-s d tex-spell-document C-c C-s b tex-spell-buffer C-c C-s p tex-spell-paragraph C-c C-s r tex-spell-region C-c C-s w tex-spell-word C-c C-s SPC tex-spell-complete --- Bibliography Processing --- C-c C-b c tex-cite-cite C-c C-b n tex-cite-nocite C-c C-b f tex-cite-forms-toggle C-c C-b C tex-cite-case-toggle C-c C-b x tex-cite-clear-file-list C-c C-b i tex-insp-inspect C-c C-b R tex-insp-reread-file C-c C-b d tex-bib-document C-c C-b b tex-bib-buffer C-c C-b SPC tex-bib-recover C-c C-b s tex-bib-save C-c C-b p tex-bib-preprocess C-c C-b u tex-bib-unify --- Indexing --- C-c C-i m tex-index-make C-c C-i s tex-index-save [C-u] C-c C-i d tex-index-document [C-u] C-c C-i b tex-index-buffer C-c C-i r tex-index-region C-c C-i w tex-index-word C-c C-i A tex-index-authors C-c C-i c tex-index-chmod C-c C-i l tex-index-level-toggle C-c C-i a tex-index-actual-toggle C-c C-i e tex-index-encap-toggle C-c C-i k tex-index-keyptrn-toggle --- Basic Matching --- C-c ( tex-bounce-backward C-c ) tex-bounce-forward C-c C-t ESC tex-toggle-boundary-check --- Zone Matching --- C-c SPC tex-zone-open C-c DEL tex-zone-close C-c C-z tex-zone-inspect C-c ESC-' tex-zone-single-quote C-c ESC-\" tex-zone-double-quote C-c ESC-$ tex-zone-math C-c ESC-d tex-zone-display-math C-c ESC-c tex-zone-centerline C-c ESC-h tex-zone-hbox C-c ESC-v tex-zone-vbox C-c ESC-b tex-zone-bf C-c ESC-i tex-zone-it C-c ESC-r tex-zone-rm C-c ESC-s tex-zone-sl C-c ESC-t tex-zone-tt C-c ESC-e tex-zone-em --- Word Matching (Backward) --- C-c ' tex-word-single-quote C-c \" tex-word-double-quote C-c $ tex-word-math C-c d tex-word-display-math C-c c tex-word-centerline C-c h tex-word-hbox C-c v tex-word-vbox C-c b tex-word-bf C-c i tex-word-it C-c r tex-word-rm C-c s tex-word-sl C-c t tex-word-tt C-c e tex-word-em --- Word Matching (Forward) --- C-c-4 ' tex-word-forward-single-quote C-c-4 \" tex-word-forward-double-quote C-c-4 $ tex-word-forward-math C-c-4 d tex-word-forward-display-math C-c-4 c tex-word-forward-centerline C-c-4 h tex-word-forward-hbox C-c-4 v tex-word-forward-vbox C-c-4 b tex-word-forward-bf C-c-4 i tex-word-forward-it C-c-4 r tex-word-forward-rm C-c-4 s tex-word-forward-sl C-c-4 t tex-word-forward-tt C-c-4 e tex-word-forward-em --- Automatic Matching --- $ tex-dollar \" tex-quote C-c C-t $ tex-toggle-dollar C-c C-t \" tex-toggle-quote --- LaTeX Environments --- C-c C-l SPC tex-latex-open C-c C-l DEL tex-latex-close C-c C-l LFD tex-latex-skip C-c C-l a tex-latex-array C-c C-l c tex-latex-center C-c C-l D tex-latex-document C-c C-l d tex-latex-description C-c C-l e tex-latex-enumerate C-c C-l f tex-latex-figure C-c C-l i tex-latex-itemize C-c C-l l tex-latex-flushleft C-c C-l p tex-latex-picture C-c C-l Q tex-latex-quotation C-c C-l q tex-latex-quote C-c C-l r tex-latex-flushright C-c C-l TAB tex-latex-tabbing C-c C-l T tex-latex-table C-c C-l t tex-latex-tabular C-c C-l v tex-latex-verbatim --- Custimized Matching --- C-c C-\\ a tex-make-auto C-c C-\\ s tex-make-semi C-c C-\\ e tex-make-env --- Mode & Global Operations --- C-c C-h tex-mode-help unbound tex-mode-version C-c C-a SPC tex-abbrev-enable C-c C-a DEL tex-abbrev-disable C-c LFD SPC tex-autofill-enable C-c LFD DEL tex-autofill-disable C-c C-\\ SPC tex-make-preamble C-c C-\\ DEL tex-make-postamble C-c 0 tex-set-master-file C-c 1 tex-set-document-type C-c C-e tex-execute LFD tex-newline-indent --- Useful Variables --- tex-delatex tex-detex tex-delimiters-auto tex-delimiters-semi tex-latex-envs tex-latex-indentation vortex-default-print-command tex-softcopy vortex-default-printer vortex-printer-data tex-cite-use-full-query tex-cite-case-fold-search tex-insp-use-dvi" set-buffer-modified-p other-window 1] 6)) (defun tex-local-startup nil (byte-code " !҉! !ʼn!ʼn!Ӊ!ԉ!ʼn !Չ !ʼn !͉ !ʼn !͉! \"! \"" [local-abbrev-table tex-mode-abbrev-table paragraph-start paragraph-separate tex-insp-symbolic-point nil tex-insp-actual-point comment-start comment-start-skip tex-zone-marker-stack tex-zone-marker-count tex-dollar-list tex-match-dollar-on t tex-match-quote-on tex-par-start tex-par-end make-local-variable "^ *$\\|^ \\|\\\\begin{.*} *$\\|\\\\end{.*} *$\\|^%$" "%" "[^\\]\\(\\\\\\\\\\)*%+ *" 0 tex-quote-list set-marker make-marker 1] 20)) (defvar tex-symbol-marker nil) (defvar tex-symbol-marker-pos 0) (defconst tex-par "^ *$" "\ Regexp for paragraph separation") (defconst tex-bslash-sign 92) (defconst tex-dollar-sign 36) (defconst tex-dollar-string "\\$") (defconst tex-dollar-regexp "^\\$\\|[^\\]\\$") (defconst tex-quote-sign 34) (defconst tex-quote-string "\"") (defconst tex-quote-regexp "^\"\\|[^\\]\"") (defun tex-bouncing-point (m) (byte-code " !.` \\ \" `\" `\" $-)" [pos1 pos2 m sym msg1 msg2 pos-visible-in-window-p sit-for 1 buffer-substring beginning-of-line end-of-line message "%s`%s'%s"] 12)) (defun tex-locate-delimiter (pos sym symlst) (byte-code "ȍ," [marker nil marker-pos pair t head 0 loop (byte-code "b@ !S \" f UY V>   B?YGɉ! T\"B\"\"Alɉ T\"B!" [symlst marker marker-pos pos sym tex-symbol-marker-pos tex-symbol-marker head pair nil marker-position /= throw loop append reverse set-marker make-marker] 12)] 4)) (defun tex-auto-dollar nil "\ Verify if the current paragraph is the same as last. If so, do nothing, otherwise reset tex-par-begin and tex-par-end and reconstruct the symbol-list." (byte-code " # `) #`TdT)!\"7\"É! \"K \"É ‰b # g Uw!`x`\"C\"Y)+" [start tex-par nil t end init tex-par-start tex-par-end tex-dollar-list tex-dollar-regexp tex-dollar-sign re-search-backward 1 re-search-forward /= marker-position set-marker append make-marker forward-char] 17)) (defun tex-dollar nil (interactive) (byte-code "Ȉh`` Uc UNȉ V6 ZfU@ SK!c TbQc  #   bhUv`Zf\"! bc) ?c! ς!),c!" [tex-match-dollar-on pc pos pt single t tex-bslash-sign tex-dollar-sign nil tex-dollar-list tex-symbol-marker tex-symbol-marker-pos tex-auto-dollar 2 backward-char 1 tex-locate-delimiter /= tex-bouncing-point tex-toggle-dollar] 9)) (defun tex-toggle-dollar (&optional quiet) (interactive) (byte-code "ˆ 1‰‰ \" \"# +‚.!?lj#!" [tex-match-dollar-on quiet nil tex-dollar-list tex-par-start tex-par-end tex-mode-map t set-marker 1 define-key "$" self-insert-command message "Automatic $ matching disabled." tex-dollar "Automatic $ matching enabled."] 8)) (defun tex-auto-delimiter (sym-lst sym-regexp) "\ Verify if the current paragraph is the same as last. If so, do nothing, otherwise reset tex-par-begin and tex-par-end and reconstruct the SYM-LST." (byte-code " # `) #`TdT)!U1‚:\"É! UH‚Q \"É {E!b #zEE!b)+" [start tex-par nil t end init tex-par-start tex-par-end sym-lst sym-regexp re-search-backward 1 re-search-forward marker-position set-marker eval setq append (list (set-marker (make-marker) (point)))] 15)) (defun tex-delimiter (match-p toggle sym-lst sym-regexp sym-sign) (byte-code "!:h` \" c Uǂ6 FE!6 b!)*B c \"" [match-p pc pos sym-lst sym-regexp sym-sign tex-bslash-sign nil tex-symbol-marker tex-symbol-marker-pos toggle t eval tex-auto-delimiter setq tex-locate-delimiter tex-bouncing-point 1 funcall] 9)) (defun tex-toggle-delimiter (sym-on sym-lst sym-string sym-func &optional quiet) (byte-code "! :E! E! \" \"# 2‚7\"OE! #\"" [sym-on quiet nil sym-lst tex-par-start tex-par-end tex-mode-map sym-string t sym-func eval setq set-marker 1 define-key self-insert-command message "Automatic %s matching disabled." "Automatic %s matching enabled."] 12)) (defun tex-quote nil (interactive) (byte-code "ˆ %" [tex-quote-regexp tex-quote-sign nil tex-delimiter tex-match-quote-on tex-toggle-quote tex-quote-list] 6)) (defun tex-toggle-quote (&optional quiet) (interactive) (byte-code "ˆ %" [tex-quote-string quiet nil tex-toggle-delimiter tex-match-quote-on tex-quote-list tex-quote] 6)) (defun tex-newline-indent nil (interactive) (byte-code "  j)" [ind nil current-indentation newline] 3)) (defconst tex-latex-nofill-pattern " *\\begin{.*}$" "\ LaTeX env pattern that does not need to be filled.") (defun fill-paragraph (arg) "\ Fill paragraph at or after point. Prefix arg means justify as well. This function is a modification of the one under the same name in fill.el." (interactive "P") (byte-code "È n !` ! ` #))" [end tex-latex-nofill-pattern arg nil forward-paragraph newline 1 backward-paragraph looking-at end-of-line fill-region-as-paragraph] 9)) (defun tex-do-auto-fill nil "\ This is a modification of the code under the same name, but without the tex- prefix, available in simple.el. The reason to modify the default is for indentations of item's to work properly in auto-fill minor mode." (byte-code "` T!!n #!`)) bn?)I!`U)? jIb j)*" [fill-point opoint fill-column t ind move-to-column skip-chars-backward "^ " re-search-forward "[ ]" " " current-indentation indent-new-comment-line] 9)) (defun tex-auto-fill-mode (arg) "\ Toggle auto-fill mode. With arg, turn auto-fill mode on iff arg is positive. In auto-fill mode, inserting a space at a column beyond fill-column automatically breaks the line at a previous space. This code is a copy of the function available in simple.el." (interactive "P") (byte-code "ˆ ? ? !Vʼn" [auto-fill-hook arg nil prefix-numeric-value 0 tex-do-auto-fill] 3)) (defun tex-autofill-enable nil (interactive) (byte-code "!\"" [fill-column nil tex-auto-fill-mode 1 message "Auto-fill minor mode enabled (fill column is %d)."] 4)) (defun tex-autofill-disable nil (interactive) (byte-code "!!" [nil tex-auto-fill-mode 0 message "Auto-fill minor mode disabled."] 3)) (defun tex-abbrev-enable nil (interactive) (byte-code "!!" [nil abbrev-mode 1 message "Abbrev minor mode enabled."] 3)) (defun tex-abbrev-disable nil (interactive) (byte-code "!!" [nil abbrev-mode 0 message "Abbrev minor mode disabled."] 3)) (defvar tex-mode-map nil "\ Main keymap used in TeX-mode") (defvar tex-control-c-map nil "\ Secondary keymap used for most TeX-mode operations") (defvar tex-spell-map nil "\ Tertiary keymap used for TeX-mode spelling commands") (defvar tex-bib-map nil "\ Tertiary keymap used for TeX-mode bibliographic commands") (defvar tex-index-map nil "\ Tertiary keymap used for TeX-mode index commands") (defvar tex-zone-map nil "\ Tertiary keymap used for TeX-mode zone matching commands") (defvar tex-forward-map nil "\ Tertiary keymap used for TeX-mode forward matching commands") (defvar tex-latex-map nil "\ Tertiary keymap used for TeX-mode LaTeX environment commands") (defconst tex-keymap-data (quote ((nil (tex-mode-map ("" tex-control-c-map) (" " self-insert-command) (" " tex-newline-indent) ("$" tex-dollar) ("\"" tex-quote)) (tex-control-c-map (" " tex-abbrev-enable) ("" tex-abbrev-disable) (" " tex-autofill-enable) (" " tex-autofill-disable) ("$" tex-toggle-dollar) ("\"" tex-toggle-quote) ("" tex-mode-help) ("" tex-spell-map) ("" tex-bib-map) (" " tex-index-map) ("" tex-zone-map) ("4" tex-forward-map) (" " tex-latex-map))) ("TeX-match" (tex-control-c-map ("(" tex-bounce-backward) (")" tex-bounce-forward) ("" tex-toggle-boundary-check) (" " tex-zone-open) ("" tex-zone-close) ("" tex-zone-inspect) ("$" tex-word-math) ("d" tex-word-display-math) ("'" tex-word-single-quote) ("\"" tex-word-double-quote) ("c" tex-word-centerline) ("h" tex-word-hbox) ("v" tex-word-vbox) ("b" tex-word-bf) ("i" tex-word-it) ("r" tex-word-rm) ("s" tex-word-sl) ("t" tex-word-tt) ("e" tex-word-em) (nil tex-word)) (tex-zone-map ("$" tex-zone-math) ("d" tex-zone-display-math) ("'" tex-zone-single-quote) ("\"" tex-zone-double-quote) ("c" tex-zone-centerline) ("h" tex-zone-hbox) ("v" tex-zone-vbox) ("b" tex-zone-bf) ("i" tex-zone-it) ("r" tex-zone-rm) ("s" tex-zone-sl) ("t" tex-zone-tt) ("e" tex-zone-em)) (tex-forward-map ("$" tex-word-forward-math) ("d" tex-word-forward-display-math) ("'" tex-word-forward-single-quote) ("\"" tex-word-forward-double-quote) ("c" tex-word-forward-centerline) ("h" tex-word-forward-hbox) ("v" tex-word-forward-vbox) ("b" tex-word-forward-bf) ("i" tex-word-forward-it) ("r" tex-word-forward-rm) ("s" tex-word-forward-sl) ("t" tex-word-forward-tt) ("e" tex-word-forward-em)) (tex-latex-map (" " tex-latex-open) ("" tex-latex-close) (" " tex-latex-skip) ("a" tex-latex-array) ("c" tex-latex-center) ("D" tex-latex-document) ("d" tex-latex-description) ("e" tex-latex-enumerate) ("f" tex-latex-figure) ("i" tex-latex-itemize) ("l" tex-latex-flushleft) ("p" tex-latex-picture) ("Q" tex-latex-quotation) ("q" tex-latex-quote) ("r" tex-latex-flushright) (" " tex-latex-tabbing) ("T" tex-latex-table) ("t" tex-latex-tabular) ("v" tex-latex-verbatim))) ("TeX-custom" (tex-control-c-map ("a" tex-make-auto) ("s" tex-make-semi) ("e" tex-make-env) (nil tex-mkgrp-auto) (nil tex-mkgrp-semi) (nil tex-mkgrp-env))) ("TeX-misc" (tex-control-c-map (" " tex-make-preamble) ("" tex-make-postamble) ("d" tex-format-document) ("b" tex-format-buffer) ("r" tex-format-region) ("d" tex-display-document) ("b" tex-display-buffer) ("r" tex-display-region) (" " tex-view-all) ("" tex-view-partial) (" " tex-print-all) ("" tex-print-partial) (" " tex-x-view-all) ("" tex-x-view-partial) ("" tex-execute) ("0" tex-set-master-file) ("1" tex-set-document-type) ("" tex-goto-error) ("" tex-comment-region) ("" tex-uncomment-region) (nil tex-shell-init) (nil tex-get-include-files) (nil tex-confirm) (nil tex-check-input-arg) (nil tex-get-input-files) (nil tex-check-master-file) (nil tex-visit-master-file) (nil tex-check-document-type))) ("TeX-spell" (tex-spell-map (" " tex-spell-complete) ("w" tex-spell-word) ("r" tex-spell-region) ("p" tex-spell-paragraph) ("b" tex-spell-buffer) ("d" tex-spell-document))) ("TeX-bib" (tex-bib-map ("d" tex-bib-document) ("b" tex-bib-buffer) (" " tex-bib-recover) ("s" tex-bib-save) ("p" tex-bib-preprocess) ("u" tex-bib-unify))) ("TeX-cite" (tex-bib-map ("c" tex-cite-cite) ("n" tex-cite-nocite) ("f" tex-cite-forms-toggle) ("C" tex-cite-case-toggle) ("x" tex-cite-clear-file-list) (nil tex-cite-lookup))) ("TeX-insp" (tex-bib-map ("i" tex-insp-inspect) ("R" tex-insp-reread-file))) ("TeX-index" (tex-index-map ("m" tex-index-make) ("d" tex-index-document) ("b" tex-index-buffer) ("r" tex-index-region) ("w" tex-index-word) ("s" tex-index-save) ("A" tex-index-authors) ("c" tex-index-chmod) ("l" tex-index-level-toggle) ("a" tex-index-actual-toggle) ("e" tex-index-encap-toggle) ("k" tex-index-keyptrn-toggle)))))) (defun tex-mode-keymap-init nil (byte-code "\"!K" [tex-keymap-data tex-mode-map mapcar define-prefix-command (tex-control-c-map tex-spell-map tex-bib-map tex-index-map tex-zone-map tex-forward-map tex-latex-map tex-mode-map) vortex-keymap-util] 4)) (defmacro tex-formatter-specs (doc-type) (byte-code "DE" [doc-type assoc downcase tex-formatter-specs] 3)) (defmacro tex-formatter (doc-type) (byte-code "DE" [doc-type nth 1 tex-formatter-specs] 4)) (defmacro tex-doc-type (doc-type) (byte-code "DE" [doc-type nth 2 tex-formatter-specs] 4)) (defmacro tex-doc-type-prompt (doc-type) (byte-code "DE" [doc-type nth 3 tex-formatter-specs] 4)) (defmacro tex-doc-type-response (doc-type) (byte-code "DE" [doc-type nth 4 tex-formatter-specs] 4)) (defmacro tex-displayer (doc-type) (byte-code "DE" [doc-type nth 5 tex-formatter-specs] 4)) (defmacro tex-spell-filter (doc-type) (byte-code "DE" [doc-type nth 6 tex-formatter-specs] 4)) (defmacro tex-preamble (doc-type) (byte-code "DE" [doc-type nth 7 tex-formatter-specs] 4)) (defmacro tex-postamble (doc-type) (byte-code "DE" [doc-type nth 8 tex-formatter-specs] 4)) (defun tex-mode-version nil (interactive) (byte-code "!" [nil message "TeX-mode version 1.12 (1/26/92)."] 2)) (defun tex-mode-copyright nil (byte-code " \"" [message "%s C-c C-h for help. Copyright (C) Regents UC." tex-mode-version] 4))