;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon May 1 15:32:21 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/tex-mode.el ;;; emacs version 19.28.90.55. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/tex-mode.el' was compiled for Emacs 19")) (byte-code "!!" [require shell compile] 2) #@74 *If non-nil, the shell file name to run in the subshell used to run TeX. (defvar tex-shell-file-name nil (#$ . -534)) #@242 *Directory in which temporary files are left. You can make this `/tmp' if your TEXINPUTS has no relative directories in it and you don't try to apply \[tex-region] or \[tex-buffer] when there are `\input' commands with relative directories. (defvar tex-directory "." (#$ . -659)) #@75 *If non-nil, ask about saving modified buffers before \[tex-file] is run. (defvar tex-offer-save t (#$ . -945)) #@178 *Command used to run TeX subjob. If this string contains an asterisk (`*'), that is replaced by the file name; otherwise, the file name, preceded by blank, is added at the end. (defvar tex-run-command "tex" (#$ . -1064)) #@180 *Command used to run LaTeX subjob. If this string contains an asterisk (`*'), that is replaced by the file name; otherwise, the file name, preceded by blank, is added at the end. (defvar latex-run-command "latex" (#$ . -1292)) #@29 Standard LaTeX block names. (defvar standard-latex-block-names (quote ("abstract" "array" "center" "description" "displaymath" "document" "enumerate" "eqnarray" "eqnarray*" "equation" "figure" "figure*" "flushleft" "flushright" "itemize" "letter" "list" "minipage" "picture" "quotation" "quote" "slide" "sloppypar" "tabbing" "table" "table*" "tabular" "tabular*" "thebibliography" "theindex*" "titlepage" "trivlist" "verbatim" "verbatim*" "verse")) (#$ . 1525)) #@104 *User defined LaTeX block names. Combined with `standard-latex-block-names' for minibuffer completion. (defvar latex-block-names nil (#$ . -1994)) #@181 *Command used to run SliTeX subjob. If this string contains an asterisk (`*'), that is replaced by the file name; otherwise, the file name, preceded by blank, is added at the end. (defvar slitex-run-command "slitex" (#$ . -2148)) #@210 *Command used by `tex-bibtex-file' to gather bibliographic data. If this string contains an asterisk (`*'), that is replaced by the file name; otherwise, the file name, preceded by blank, is added at the end. (defvar tex-bibtex-command "bibtex" (#$ . -2385)) #@197 *Command used by \[tex-print] to print a .dvi file. If this string contains an asterisk (`*'), that is replaced by the file name; otherwise, the file name, preceded by blank, is added at the end. (defvar tex-dvi-print-command "lpr -d" (#$ . -2651)) #@547 *Command used by \[tex-print] with a prefix arg to print a .dvi file. If this string contains an asterisk (`*'), that is replaced by the file name; otherwise, the file name, preceded by blank, is added at the end. If two printers are not enough of a choice, you can set the variable `tex-alt-dvi-print-command' to an expression that asks what you want; for example, (setq tex-alt-dvi-print-command '(format "lpr -P%s" (read-string "Use printer: "))) would tell \[tex-print] with a prefix argument to ask you which printer to use. (defvar tex-alt-dvi-print-command "lpr -d" (#$ . -2907)) #@498 *Command used by \[tex-view] to display a `.dvi' file. If this string contains an asterisk (`*'), that is replaced by the file name; otherwise, the file name, preceded by blank, is added at the end. This can be set conditionally so that the previewer used is suitable for the window system being used. For example, (setq tex-dvi-view-command (if (eq window-system 'x) "xdvi" "dvi2tty * | cat -s")) would tell \[tex-view] to use xdvi under X windows and to use dvi2tty otherwise. (defvar tex-dvi-view-command nil (#$ . -3517)) #@124 *Command used by \[tex-show-print-queue] to show the print queue. Should show the queue(s) that \[tex-print] puts jobs on. (defvar tex-show-queue-command "lpq" (#$ . -4068)) #@259 *Mode to enter for a new file that might be either TeX or LaTeX. This variable is used when it can't be determined whether the file is plain TeX or LaTeX or what because the file contains no commands. Normally set to either `plain-tex-mode' or `latex-mode'. (defvar tex-default-mode (quote plain-tex-mode) (#$ . -4249)) #@69 *String inserted by typing \[tex-insert-quote] to open a quotation. (defvar tex-open-quote "``" (#$ . -4575)) #@70 *String inserted by typing \[tex-insert-quote] to close a quotation. (defvar tex-close-quote "''" (#$ . -4691)) #@164 Latest temporary file generated by \[tex-region] and \[tex-buffer]. Deleted when the \[tex-region] or \[tex-buffer] is next run, or when the tex shell terminates. (defvar tex-last-temp-file nil (#$ . 4810)) #@94 Command to run TeX. The name of the file, preceded by a blank, will be added to this string. (defvar tex-command nil (#$ . 5023)) #@73 String appended after the end of a region sent to TeX by \[tex-region]. (defvar tex-trailer nil (#$ . 5159)) #@73 String used by \[tex-region] to delimit the start of the file's header. (defvar tex-start-of-header nil (#$ . 5274)) #@71 String used by \[tex-region] to delimit the end of the file's header. (defvar tex-end-of-header nil (#$ . 5397)) #@131 Command to give to shell running TeX to change directory. The value of `tex-directory' is appended to this, separated by a space. (defvar tex-shell-cd-command "cd" (#$ . 5517)) #@138 Temporary file name used for text being sent as input to TeX. Should be a simple file name with no extension or directory specification. (defvar tex-zap-file nil (#$ . 5701)) #@30 Buffer which was last TeXed. (defvar tex-last-buffer-texed nil (#$ . 5882)) #@91 File name that \[tex-print] prints. Set by \[tex-region], \[tex-buffer], and \[tex-file]. (defvar tex-print-file nil (#$ . 5964)) #@38 Syntax table used while in TeX mode. (defvar tex-mode-syntax-table nil (#$ . 6100)) #@77 Define the keys that we want defined both in TeX mode and in the TeX shell. (defalias 'tex-define-common-keys #[(keymap) " # # # # # !B# # # # # # #" [define-key keymap " " tex-kill-job "\f" tex-recenter-output-buffer "" tex-show-print-queue "" tex-print "" tex-view [menu-bar tex] "TeX" make-sparse-keymap [menu-bar tex tex-kill-job] ("Tex Kill" . tex-kill-job) [menu-bar tex tex-recenter-output-buffer] ("Tex Recenter" . tex-recenter-output-buffer) [menu-bar tex tex-show-print-queue] ("Show Print Queue" . tex-show-print-queue) [menu-bar tex tex-alt-print] ("Tex Print (alt printer)" . tex-alt-print) [menu-bar tex tex-print] ("Tex Print" . tex-print) [menu-bar tex tex-view] ("Tex View" . tex-view)] 6 (#$ . 6190)]) #@22 Keymap for TeX mode. (defvar tex-mode-map nil (#$ . 6974)) (byte-code "q !########################" [tex-mode-map make-sparse-keymap tex-define-common-keys define-key "\"" tex-insert-quote "\n" tex-terminate-paragraph "}" up-list "{" tex-insert-braces "" tex-region "" tex-buffer "" tex-file " " tex-bibtex-file "" tex-latex-block "" tex-close-latex-block "" tex-goto-last-unclosed-latex-block [menu-bar tex tex-bibtex-file] ("BibTeX File" . tex-bibtex-file) [menu-bar tex tex-validate-region] ("Validate Region" . tex-validate-region) [menu-bar tex validate-tex-buffer] ("Validate Buffer" . validate-tex-buffer) [menu-bar tex tex-region] ("TeX Region" . tex-region) [menu-bar tex tex-buffer] ("TeX Buffer" . tex-buffer) [menu-bar tex tex-file] ("TeX File" . tex-file) put menu-enable mark-active tex-validate-region tex-print (stringp tex-print-file) tex-alt-print (stringp tex-print-file) tex-view (stringp tex-print-file) tex-recenter-output-buffer (get-buffer "*tex-shell*") tex-kill-job (tex-shell-running)] 4) #@75 Keymap for the TeX shell. Inherits `shell-mode-map' with a few additions. (defvar tex-shell-map nil (#$ . 8139)) (byte-code " B" [compare-windows-whitespace current-load-list] 2) #@385 Major mode for editing files of input for TeX, LaTeX, or SliTeX. Tries to determine (by looking at the beginning of the file) whether this file is for plain TeX, LaTeX, or SliTeX and calls `plain-tex-mode', `latex-mode', or `slitex-mode', respectively. If it cannot be determined, such as if there are no commands in the file, the value of `tex-default-mode' says which mode to use. (defalias 'tex-mode #[nil "eb#'`y#*\n\nE E!C!?͂D΂D) O R +" [nil comment slash mode search-forward "\\" t search-end 0 "%" looking-at "documentstyle\\|documentclass\\|begin\\b\\|NeedsTeXFormat{LaTeX" "document\\(style\\|class\\)\\(\\[.*\\]\\)?{slides}" slitex-mode latex-mode plain-tex-mode tex-default-mode] 4 (#$ . 8329) nil]) (byte-code "\"\"" [defalias TeX-mode tex-mode LaTeX-mode latex-mode] 3) #@1652 Major mode for editing files of input for plain TeX. Makes $ and } display the characters they match. Makes " insert `` when it seems to be the beginning of a quotation, and '' when it appears to be the end; it inserts " only after a \. Use \[tex-region] to run TeX on the current region, plus a "header" copied from the top of the file (containing macro definitions, etc.), running TeX under a special subshell. \[tex-buffer] does the whole buffer. \[tex-file] saves the buffer and then processes the file. \[tex-print] prints the .dvi file made by any of these. \[tex-view] previews the .dvi file made by any of these. \[tex-bibtex-file] runs bibtex on the file of the current buffer. Use \[validate-tex-buffer] to check buffer for paragraphs containing mismatched $'s or braces. Special commands: \{tex-mode-map} Mode variables: tex-run-command Command string used by \[tex-region] or \[tex-buffer]. tex-directory Directory in which to create temporary files for TeX jobs run by \[tex-region] or \[tex-buffer]. tex-dvi-print-command Command string used by \[tex-print] to print a .dvi file. tex-alt-dvi-print-command Alternative command string used by \[tex-print] (when given a prefix argument) to print a .dvi file. tex-dvi-view-command Command string used by \[tex-view] to preview a .dvi file. tex-show-queue-command Command string used by \[tex-show-print-queue] to show the print queue that \[tex-print] put your job on. Entering Plain-tex mode runs the hook `text-mode-hook', then the hook `tex-mode-hook', and finally the hook `plain-tex-mode-hook'. When the special subshell is initiated, the hook `tex-shell-hook' is run. (defalias 'plain-tex-mode #[nil "  \n\f#" [tex-common-initialization "TeX" mode-name plain-tex-mode major-mode tex-run-command tex-command "%**start of header" tex-start-of-header "%**end of header" tex-end-of-header "\\bye\n" tex-trailer run-hooks text-mode-hook tex-mode-hook plain-tex-mode-hook] 4 (#$ . 9185) nil]) (defalias (quote plain-TeX-mode) (quote plain-tex-mode)) #@1621 Major mode for editing files of input for LaTeX. Makes $ and } display the characters they match. Makes " insert `` when it seems to be the beginning of a quotation, and '' when it appears to be the end; it inserts " only after a \. Use \[tex-region] to run LaTeX on the current region, plus the preamble copied from the top of the file (containing \documentstyle, etc.), running LaTeX under a special subshell. \[tex-buffer] does the whole buffer. \[tex-file] saves the buffer and then processes the file. \[tex-print] prints the .dvi file made by any of these. \[tex-view] previews the .dvi file made by any of these. \[tex-bibtex-file] runs bibtex on the file of the current buffer. Use \[validate-tex-buffer] to check buffer for paragraphs containing mismatched $'s or braces. Special commands: \{tex-mode-map} Mode variables: latex-run-command Command string used by \[tex-region] or \[tex-buffer]. tex-directory Directory in which to create temporary files for LaTeX jobs run by \[tex-region] or \[tex-buffer]. tex-dvi-print-command Command string used by \[tex-print] to print a .dvi file. tex-alt-dvi-print-command Alternative command string used by \[tex-print] (when given a prefix argument) to print a .dvi file. tex-dvi-view-command Command string used by \[tex-view] to preview a .dvi file. tex-show-queue-command Command string used by \[tex-show-print-queue] to show the print queue that \[tex-print] put your job on. Entering Latex mode runs the hook `text-mode-hook', then `tex-mode-hook', and finally `latex-mode-hook'. When the special subshell is initiated, `tex-shell-hook' is run. (defalias 'latex-mode #[nil "  \n\f#" [tex-common-initialization "LaTeX" mode-name latex-mode major-mode latex-run-command tex-command "\\documentstyle" tex-start-of-header "\\begin{document}" tex-end-of-header "\\end{document}\n" tex-trailer "[ ]*$\\|[\f%]\\|[ ]*\\$\\$\\|\\\\begin\\>\\|\\\\label\\>\\|\\\\end\\>\\|\\\\\\[\\|\\\\\\]\\|\\\\chapter\\>\\|\\\\section\\>\\|\\\\subsection\\>\\|\\\\subsubsection\\>\\|\\\\paragraph\\>\\|\\\\subparagraph\\>\\|\\\\item\\>\\|\\\\bibitem\\>\\|\\\\newline\\>\\|\\\\noindent\\>\\|\\\\[a-z]*space\\>\\|\\\\[a-z]*skip\\>\\|\\\\newpage\\>\\|\\\\[a-z]*page\\|\\\\footnote\\>\\|\\\\marginpar\\>\\|\\\\parbox\\>\\|\\\\caption\\>" paragraph-start "[ ]*$\\|[\f%]\\|[ ]*\\$\\$[ ]*$\\|\\\\begin\\>\\|\\\\label\\>\\|\\\\end\\>\\|\\\\\\[\\|\\\\\\]\\|\\\\chapter\\>\\|\\\\section\\>\\|\\\\subsection\\>\\|\\\\subsubsection\\>\\|\\\\paragraph\\>\\|\\\\subparagraph\\>\\|\\(\\\\item\\|\\\\bibitem\\|\\\\newline\\|\\\\noindent\\|\\\\[a-z]*space\\|\\\\[a-z]*skip\\|\\\\newpage\\|\\\\[a-z]*page[a-z]*\\|\\\\footnote\\|\\\\marginpar\\|\\\\parbox\\|\\\\caption\\)[ ]*\\($\\|%\\)" paragraph-separate run-hooks text-mode-hook tex-mode-hook latex-mode-hook] 4 (#$ . 11240) nil]) #@1687 Major mode for editing files of input for SliTeX. Makes $ and } display the characters they match. Makes " insert `` when it seems to be the beginning of a quotation, and '' when it appears to be the end; it inserts " only after a \. Use \[tex-region] to run SliTeX on the current region, plus the preamble copied from the top of the file (containing \documentstyle, etc.), running SliTeX under a special subshell. \[tex-buffer] does the whole buffer. \[tex-file] saves the buffer and then processes the file. \[tex-print] prints the .dvi file made by any of these. \[tex-view] previews the .dvi file made by any of these. \[tex-bibtex-file] runs bibtex on the file of the current buffer. Use \[validate-tex-buffer] to check buffer for paragraphs containing mismatched $'s or braces. Special commands: \{tex-mode-map} Mode variables: slitex-run-command Command string used by \[tex-region] or \[tex-buffer]. tex-directory Directory in which to create temporary files for SliTeX jobs run by \[tex-region] or \[tex-buffer]. tex-dvi-print-command Command string used by \[tex-print] to print a .dvi file. tex-alt-dvi-print-command Alternative command string used by \[tex-print] (when given a prefix argument) to print a .dvi file. tex-dvi-view-command Command string used by \[tex-view] to preview a .dvi file. tex-show-queue-command Command string used by \[tex-show-print-queue] to show the print queue that \[tex-print] put your job on. Entering SliTeX mode runs the hook `text-mode-hook', then the hook `tex-mode-hook', then the hook `latex-mode-hook', and finally the hook `slitex-mode-hook'. When the special subshell is initiated, the hook `tex-shell-hook' is run. (defalias 'slitex-mode #[nil "  \n\f$" [tex-common-initialization "SliTeX" mode-name slitex-mode major-mode slitex-run-command tex-command "\\documentstyle{slides}" tex-start-of-header "\\begin{document}" tex-end-of-header "\\end{document}\n" tex-trailer "[ ]*$\\|[\f%]\\|[ ]*\\$\\$\\|\\\\begin\\>\\|\\\\label\\>\\|\\\\end\\>\\|\\\\\\[\\|\\\\\\]\\|\\\\chapter\\>\\|\\\\section\\>\\|\\\\subsection\\>\\|\\\\subsubsection\\>\\|\\\\paragraph\\>\\|\\\\subparagraph\\>\\|\\\\item\\>\\|\\\\bibitem\\>\\|\\\\newline\\>\\|\\\\noindent\\>\\|\\\\[a-z]*space\\>\\|\\\\[a-z]*skip\\>\\|\\\\newpage\\>\\|\\\\[a-z]*page\\|\\\\footnote\\>\\|\\\\marginpar\\>\\|\\\\parbox\\>\\|\\\\caption\\>" paragraph-start "[ ]*$\\|[\f%]\\|[ ]*\\$\\$[ ]*$\\|\\\\begin\\>\\|\\\\label\\>\\|\\\\end\\>\\|\\\\\\[\\|\\\\\\]\\|\\\\chapter\\>\\|\\\\section\\>\\|\\\\subsection\\>\\|\\\\subsubsection\\>\\|\\\\paragraph\\>\\|\\\\subparagraph\\>\\|\\\\item[ ]*$\\|\\\\bibitem[ ]*$\\|\\\\newline[ ]*$\\|\\\\noindent[ ]*$\\|\\\\[a-z]*space[ ]*$\\|\\\\[a-z]*skip[ ]*$\\|\\\\newpage[ ]*$\\|\\\\[a-z]*page[a-z]*[ ]*$\\|\\\\footnote[ ]*$\\|\\\\marginpar[ ]*$\\|\\\\parbox[ ]*$\\|\\\\caption[ ]*$" paragraph-separate run-hooks text-mode-hook tex-mode-hook latex-mode-hook slitex-mode-hook] 5 (#$ . 14096) nil]) (defalias 'tex-common-initialization #[nil " \n!  r  !W-\"T\"\"\"\"\"\"\"\"\"\"\"\"\")v !!!!#!%!'!)!+!-!!!!" [kill-all-local-variables use-local-map tex-mode-map text-mode-abbrev-table local-abbrev-table tex-mode-syntax-table 0 char make-syntax-table set-syntax-table 32 modify-syntax-entry "." "w" 9 " " 10 ">" 12 36 "$$" 37 "<" 92 "/" 34 38 95 64 "_" 126 39 make-local-variable paragraph-start "[ ]*$\\|[\f\\\\%]\\|[ ]*\\$\\$" paragraph-separate "[ ]*$\\|[\f\\\\%]\\|[ ]*\\$\\$[ ]*$" comment-start "%" comment-start-skip "\\(\\(^\\|[^\\]\\)\\(\\\\\\\\\\)*\\)\\(%+ *\\)" comment-indent-function tex-comment-indent parse-sexp-ignore-comments t compare-windows-whitespace tex-categorize-whitespace tex-command tex-start-of-header tex-end-of-header tex-trailer] 4]) (defalias 'tex-comment-indent #[nil "!ixnĂiT ]" [looking-at "%%%" " " nil 0 comment-column] 2]) (defalias 'tex-categorize-whitespace #[(backward-limit) " x\nR!!ȕb =!> =5͉ ȕb!L͉ ͉\fw =`ɂa *" [null t not-finished category " \n\f" backward-limit looking-at "[ ]+" 0 space "\n" newline par nil "\f+"] 3]) #@210 Insert the appropriate quote marks for TeX. Inserts the value of `tex-open-quote' (normally ``) or `tex-close-quote' (normally '') depending on the context. With prefix argument, always inserts " characters. (defalias 'tex-insert-quote #[(arg) "\n!!ou!)*hU(Ȃ* c" [arg self-insert-command prefix-numeric-value -1 looking-at "\\s(\\|\\s \\|\\s>" tex-open-quote 92 34 tex-close-quote] 3 (#$ . 18387) "*P"]) #@255 Check current buffer for paragraphs containing mismatched $s. Their positions are recorded in the buffer `*Occur*'. To find a particular invalidity from `*Occur*', switch to to that buffer and type C-c C-c on the line for the invalidity you want to see. (defalias 'validate-tex-buffer #[nil "peĐ!q   \f)db o`#`\"y`)y` ^ \n`\"Ze\"T` qeby\fB\f #Zu \"c,)\")q\fct\fG\")+" [nil linenum prevpos buffer "*Occur*" princ "Mismatches:\n" standard-output occur-mode occur-buffer 0 occur-nlines occur-pos-list input-pending-p end search-backward "\n\n" move tex-validate-region 1 start tem count-lines point-marker insert-buffer-substring format "%3d: " "None!\n" message "%d mismatches found"] 5 (#$ . 18828) nil]) #@144 Check for mismatched braces or $'s in region. Returns t if no mismatches. Returns nil and moves point to suspect area if a mismatch is found. (defalias 'tex-validate-region #[(start end) " \nZƏ)\f\fb*" [nil end start max-possible-sexps failure-point (byte-code " }b SW!)‡" [start end 0 max-possible-sexps forward-sexp 1] 3) ((error (byte-code "`" [failure-point nil] 1))) t] 3 (#$ . 19656) "r"]) #@153 Insert two newlines, breaking a paragraph for TeX. Check for mismatched braces or $s in paragraph being terminated. A prefix arg inhibits the checking. (defalias 'tex-terminate-paragraph #[(inhibit-validation) "#`)`\")!c" [inhibit-validation tex-validate-region search-backward "\n\n" nil move message "Paragraph being closed appears to contain a mismatch"] 5 (#$ . 20099) "*P"]) #@61 Make a pair of braces and be poised to type inside of them. (defalias 'tex-insert-braces #[nil "cc)" [123 125] 1 (#$ . 20505) "*"]) #@117 Creates a matching pair of lines `\begin{NAME}' and `\end{NAME}' at point. Puts point on a blank line between them. (defalias 'tex-latex-block #[(name) "i \"cjcj \"!mc*" [col format "\\begin{%s}\n" name 10 insert-string "\\end{%s}"] 4 (#$ . 20649) (byte-code " \"\"\"C" [barf-if-buffer-read-only completing-read "LaTeX block name: " mapcar list append standard-latex-block-names latex-block-names] 7)]) #@73 Leave point at the beginning of the last `\begin{...}' that is unended. (defalias 'tex-last-unended-begin #[nil "!! " [re-search-backward "\\(\\\\begin\\s *{\\)\\|\\(\\\\end\\s *{\\)" looking-at "\\\\end{" tex-last-unended-begin] 2 (#$ . 21090)]) #@81 Move point to the last unclosed \begin{...}. Mark is left at original location. (defalias 'tex-goto-last-unclosed-latex-block #[nil "Ï`) b)" [nil spot (tex-last-unended-begin) ((error (error "Couldn't find unended \\begin"))) push-mark] 3 (#$ . 21359) nil]) #@62 Creates an \end{...} to match the last unclosed \begin{...}. (defalias 'tex-close-latex-block #[nil "nŏi!Ȕȕ{) j\n 'c+" [nil indentation text new-line-needed (tex-last-unended-begin) ((error (error "Couldn't find unended \\begin"))) re-search-forward "\\\\begin\\(\\s *{[^}\n]*}\\)" 1 "\\end" 10] 3 (#$ . 21635) "*"]) #@528 Parse the current buffer as error messages. This makes a list of error descriptors, compilation-error-list. For each source-file, line-number pair in the buffer, the source file is read in, and the text location is saved in compilation-error-list. The function `next-error', assigned to \[next-error], takes the next error off the list and visits its location. This function works on TeX compilations only. It is necessary for that purpose, since TeX does not put file names on the same line as line numbers for the errors. (defalias 'tex-compilation-parse-errors #[nil "!\"\"\"\"\n \f bo.y#y`\\bp!c u  k\nUx !   !!\f\n\f\fq\nUb\n\nZy\n D B)y,.d +! " [nil compilation-error-list message "Parsing error messages..." modify-syntax-entry 123 "_" 125 91 93 last-linenum last-filename text-buffer compilation-parsing-end 2 re-search-forward "^l.[0-9]+ " t text-marker error-marker filename linenum 0 read 41 backward-sexp current-word "^(" backward-char forward-sexp backward-delete-char 1 point-marker file-exists-p find-file-noselect "Parsing error messages...done"] 5 (#$ . 21985)]) (defalias 'tex-start-shell #[nil "\n!!#q!  \" !  !!! UO!A*" [make-comint "tex-shell" tex-shell-file-name getenv "ESHELL" "SHELL" "/bin/sh" nil get-process proc set-process-sentinel tex-shell-sentinel process-kill-without-query shell-prompt-pattern comint-prompt-regexp make-sparse-keymap shell-mode-map tex-shell-map tex-define-common-keys use-local-map run-hooks tex-shell-hook buffer-size 0 sleep-for 1] 4]) #@48 Make the TeX shell buffer visible in a window. (defalias 'tex-display-shell #[nil "!!!!" [display-buffer process-buffer get-process "tex-shell" tex-recenter-output-buffer nil] 4 (#$ . 23701)]) (defalias 'tex-shell-sentinel #[(proc msg) "\n!!\n\" \n!> " [buffer-name process-buffer proc set-process-buffer nil tex-delete-last-temp-files process-status (signal exit)] 3]) #@49 Set BUFFER's default directory to be DIRECTORY. (defalias 'tex-set-buffer-directory #[(buffer directory) "\n!!\n!\n\"q\n)" [file-name-as-directory expand-file-name directory file-directory-p error "%s is not a directory" buffer default-directory] 3 (#$ . 24102)]) (byte-code "! B!" [boundp tex-send-command-modified-tick 0 current-load-list make-variable-buffer-local] 2) #@324 Send COMMAND to TeX shell process, substituting optional FILE for *. Do this in background if optional BACKGROUND is t. If COMMAND has no *, FILE will be appended, preceded by a blank, to COMMAND. If FILE is nil, no substitution will be made in COMMAND. COMMAND can be any expression that evaluates to a command string. (defalias 'tex-send-command #[(command &optional file background) " !! !\n\"\n 7\n/\n\nO \n\nTOQ8\n Q8\nAЂBPq!UW ! !bc !." [eval command cmd get-process "tex-shell" proc process-buffer buf string-match "\\*" star file 0 nil " " background "&" "" string buffer-modified-tick tex-send-command-modified-tick accept-process-output process-mark comint-send-input] 5 (#$ . 24511)]) #@89 Delete any junk files from last temp file. If NOT-ALL is non-nil, save the `.dvi' file. (defalias 'tex-delete-last-temp-files #[(&optional not-all) "F!\n!!\n\"E3@\";\n@P!;\n@P!A*" [tex-last-temp-file file-name-directory dir file-directory-p file-name-all-completions file-name-nondirectory list not-all string-match "\\.dvi$" delete-file nil] 4 (#$ . 25281)]) (add-hook (quote kill-emacs-hook) (quote tex-delete-last-temp-files)) #@568 Run TeX on the current region, via a temporary file. The file's name comes from the variable `tex-zap-file' and the variable `tex-directory' says where to put it. If the buffer has a header, the header is given to TeX before the region itself. The buffer's header is all lines between the strings defined by `tex-start-of-header' and `tex-end-of-header' inclusive. The header must start in the first 100 lines of the buffer. The value of `tex-trailer' is given to TeX as input after the region. The value of `tex-command' specifies the command to use to run TeX. (defalias 'tex-region #[(beg end) "   !\n!! P\fp =2!~eby`ee eb#qy`#ny`qe^\fPى%]\fP%, q !  ! \"ed\fP%+\f%' \"(\f\" \f*p +" [tex-shell-running tex-kill-job tex-start-shell tex-zap-file tex-generate-zap-file-name get-buffer-create " TeX-Output-Buffer" temp-buffer file-name-as-directory expand-file-name tex-directory zap-directory tex-out-file tex-last-buffer-texed tex-delete-last-temp-files t 100 default-directory hend hbeg search-end search-forward tex-start-of-header 0 tex-end-of-header nil 1 write-region beg ".tex" end tex-trailer local-tex-trailer erase-buffer insert-string "\n" tex-set-buffer-directory tex-last-temp-file tex-send-command tex-shell-cd-command tex-command tex-display-shell tex-print-file] 7 (#$ . 25766) "r"]) #@180 Run TeX on current buffer. See \[tex-region] for more information. Does not save the buffer, so it's useful for trying experimental versions. See \[tex-file] for an alternative. (defalias 'tex-buffer #[nil "ed\"" [tex-region] 3 (#$ . 27223) nil]) #@190 Prompt to save all buffers and run TeX (or LaTeX) on current buffer's file. This function is more useful than \[tex-buffer] when you need the `.aux' file of LaTeX to have the correct name. (defalias 'tex-file #[nil " \f !! ! ) ,  \"\"* p " [buffer-file-name file-name-nondirectory error "Buffer does not seem to be associated with any file" file-name-directory file-dir tex-out-file tex-offer-save save-some-buffers tex-shell-running tex-kill-job tex-start-shell tex-send-command tex-shell-cd-command tex-command tex-display-shell tex-last-buffer-texed tex-print-file] 3 (#$ . 27480) nil]) #@57 Generate a unique name suitable for use as a file name. (defalias 'tex-generate-zap-file-name #[nil "!! !#" [format "#tz%d%s" process-id get-buffer-process "*tex-shell*" tex-strip-dots system-name] 5 (#$ . 28127)]) (defalias 'tex-strip-dots #[(s) " ! \" ĔI " [copy-sequence s string-match "\\." 0 45] 3]) (defalias 'tex-expand-files #[(s) "\n#\nO B\nU*\nO B #*" [nil 0 start elts string-match ":" s mapconcat expand-file-name] 4]) (defalias 'tex-shell-running #[nil "! !!=" [get-process "tex-shell" process-status run] 3]) #@37 Kill the currently running TeX job. (defalias 'tex-kill-job #[nil "!\"" [quit-process get-process "tex-shell" t] 3 (#$ . 28721) nil]) #@173 Redisplay buffer of TeX job output so that most recent output can be seen. The last line of the buffer is displayed on line LINE of the window, or centered if LINE is nil. (defalias 'tex-recenter-output-buffer #[(linenum) "!p!1 ! !db ( !, ̥!\n!*" [get-buffer "*tex-shell*" old-buffer tex-shell message "No TeX output buffer" pop-to-buffer bury-buffer recenter linenum prefix-numeric-value window-height 2] 4 (#$ . 28867) "P"]) #@224 Print the .dvi file made by \[tex-region], \[tex-buffer] or \[tex-file]. Runs the shell command defined by `tex-dvi-print-command'. If prefix argument is provided, use the alternative command, `tex-alt-dvi-print-command'. (defalias 'tex-print #[(&optional alt) " \"p# # \" \"#\f !/!? :< #*" [tex-append tex-print-file ".dvi" nil test-name print-file-name-dvi tex-last-buffer-texed buffer-file-name file-newer-than-file-p file-exists-p error "No appropriate `.dvi' file could be found" tex-send-command alt tex-alt-dvi-print-command tex-dvi-print-command t] 4 (#$ . 29331) "P"]) #@137 Print the .dvi file made by \[tex-region], \[tex-buffer] or \[tex-file]. Runs the shell command defined by `tex-alt-dvi-print-command'. (defalias 'tex-alt-print #[nil "!" [tex-print t] 2 (#$ . 29959) nil]) #@333 Preview the last `.dvi' file made by running TeX under Emacs. This means, made using \[tex-region], \[tex-buffer] or \[tex-file]. The variable `tex-dvi-view-command' specifies the shell command for preview. You must set that variable yourself before using this command, because there is no standard value that would generally work. (defalias 'tex-view #[nil "! )" [tex-dvi-view-command error "You must set `tex-dvi-view-command'" tex-dvi-print-command tex-print] 2 (#$ . 30175) nil]) #@221 Append to FILENAME the suffix SUFFIX, using same algorithm TeX uses. Pascal-based TeX scans for the first period, C TeX uses the last. No period is retained immediately before SUFFIX, so normally SUFFIX starts with one. (defalias 'tex-append #[(file-name suffix) ";:!!\f\f\"O Q !' P!+ 8!\f\f\"O Q*͇" [file-name file-name-nondirectory nil trial-name file file-name-directory 0 string-match "\\.[^.]*$" suffix file-exists-p ".aux" "\\." " "] 6 (#$ . 30677)]) #@117 Show the print queue that \[tex-print] put your job on. Runs the shell command defined by `tex-show-queue-command'. (defalias 'tex-show-print-queue #[nil "  \f! " [tex-shell-running tex-kill-job tex-start-shell tex-send-command tex-show-queue-command tex-display-shell] 2 (#$ . 31173) nil]) #@42 Run BibTeX on the current buffer's file. (defalias 'tex-bibtex-file #[nil "  !\" !  \"\f \"* " [tex-shell-running tex-kill-job tex-start-shell tex-append file-name-nondirectory buffer-file-name "" file-name-directory file-dir tex-out-file tex-send-command tex-shell-cd-command tex-bibtex-command tex-display-shell] 3 (#$ . 31486) nil]) (byte-code "!!" [run-hooks tex-mode-load-hook provide tex-mode] 2)