annotate lisp/textmodes/tex-mode.el @ 4800:d41c009d6ac6

(INSTALL, INSTALL_PROGRAM, INSTALL_DATA): Let configure figure out the correct values for these variables. (archlibdir): Only install execuatables internally used by emacs; don't install bindir binaries here.

申鐃緒申     1 ;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands.
申鐃緒申     2 
申鐃緒申     3 ;; Copyright (C) 1985, 1986, 1989, 1992 Free Software Foundation, Inc.
申鐃緒申     4 
申鐃緒申     5 ;; Maintainer: Edward M. Reingold <[e-mail]>
申鐃緒申     6 ;; Keywords: tex
申鐃緒申     7 
申鐃緒申     8 ;; Contributions over the years by William F. Schelter, Dick King,
申鐃緒申     9 ;; Stephen Gildea, Michael Prange, and Jacob Gore.
申鐃緒申    10 
申鐃緒申    11 ;; This file is part of GNU Emacs.
申鐃緒申    12 
申鐃緒申    13 ;; GNU Emacs is free software; you can redistribute it and/or modify
申鐃緒申    14 ;; it under the terms of the GNU General Public License as published by
申鐃緒申    15 ;; the Free Software Foundation; either version 2, or (at your option)
申鐃緒申    16 ;; any later version.
申鐃緒申    17 
申鐃緒申    18 ;; GNU Emacs is distributed in the hope that it will be useful,
申鐃緒申    19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
申鐃緒申    20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
申鐃緒申    21 ;; GNU General Public License for more details.
申鐃緒申    22 
申鐃緒申    23 ;; You should have received a copy of the GNU General Public License
申鐃緒申    24 ;; along with GNU Emacs; see the file COPYING.  If not, write to
申鐃緒申    25 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
申鐃緒申    26 
申鐃緒申    27 ;;; Code:
申鐃緒申    28 
申鐃緒申    29 (require 'comint)
申鐃緒申    30 (require 'compile)
申鐃緒申    31 
申鐃緒申    32 ;;;###autoload
申鐃緒申    33 (defvar tex-shell-file-name nil
申鐃緒申    34   "*If non-nil, is file name to use for the subshell in which TeX is run.")
申鐃緒申    35 
申鐃緒申    36 ;;;###autoload
申鐃緒申    37 (defvar tex-directory "."
申鐃緒申    38   "*Directory in which temporary files are left.
申鐃緒申    39 You can make this /tmp if your TEXINPUTS has no relative directories in it
申鐃緒申    40 and you don't try to apply \\[tex-region] or \\[tex-buffer] when there are
申鐃緒申    41 \\input commands with relative directories.")
申鐃緒申    42 
申鐃緒申    43 ;;;###autoload
申鐃緒申    44 (defvar tex-offer-save t
申鐃緒申    45   "*If non-nil, ask about saving modified buffers before \\[tex-file] is run.")
申鐃緒申    46 
申鐃緒申    47 ;;;###autoload
申鐃緒申    48 (defvar tex-run-command "tex"
申鐃緒申    49   "*Command used to run TeX subjob.
申鐃緒申    50 If this string contains an asterisk (*), it will be replaced by the
申鐃緒申    51 filename; if not, the name of the file, preceded by blank, will be added to
申鐃緒申    52 this string.")
申鐃緒申    53 
申鐃緒申    54 ;;;###autoload
申鐃緒申    55 (defvar latex-run-command "latex"
申鐃緒申    56   "*Command used to run LaTeX subjob.
申鐃緒申    57 If this string contains an asterisk (*), it will be replaced by the
申鐃緒申    58 filename; if not, the name of the file, preceded by blank, will be added to
申鐃緒申    59 this string.")
申鐃緒申    60 
申鐃緒申    61 (defvar standard-latex-block-names
申鐃緒申    62       '("abstract"         "array"            "center"       "description"
申鐃緒申    63         "displaymath"      "document"         "enumerate"    "eqnarray"
申鐃緒申    64         "eqnarray*"        "equation"         "figure"       "figure*"
申鐃緒申    65         "flushleft"        "flushright"       "itemize"      "letter"
申鐃緒申    66         "list"             "minipage"         "picture"      "quotation"
申鐃緒申    67         "quote"            "slide"            "sloppypar"     "tabbing"
申鐃緒申    68         "table"            "table*"           "tabular"       "tabular*"
申鐃緒申    69         "thebibliography"  "theindex*"        "titlepage"     "trivlist"
申鐃緒申    70         "verbatim"         "verbatim*"        "verse")
申鐃緒申    71   "Standard LaTeX block names.")
申鐃緒申    72 
申鐃緒申    73 ;;;###autoload
申鐃緒申    74 (defvar latex-block-names nil
申鐃緒申    75   "*User defined LaTeX block names.
申鐃緒申    76 Combined with `standard-latex-block-names' for minibuffer completion.")
申鐃緒申    77 
申鐃緒申    78 ;;;###autoload
申鐃緒申    79 (defvar slitex-run-command "slitex"
申鐃緒申    80   "*Command used to run SliTeX subjob.
申鐃緒申    81 If this string contains an asterisk (*), it will be replaced by the
申鐃緒申    82 filename; if not, the name of the file, preceded by blank, will be added to
申鐃緒申    83 this string.")
申鐃緒申    84 
申鐃緒申    85 ;;;###autoload
申鐃緒申    86 (defvar tex-bibtex-command "bibtex"
申鐃緒申    87   "*Command used by `tex-bibtex-file' to gather bibliographic data.
申鐃緒申    88 If this string contains an asterisk (*), it will be replaced by the
申鐃緒申    89 filename; if not, the name of the file, preceded by blank, will be added to
申鐃緒申    90 this string.")
申鐃緒申    91 
申鐃緒申    92 ;;;###autoload
申鐃緒申    93 (defvar tex-dvi-print-command "lpr -d"
申鐃緒申    94   "*Command used by \\[tex-print] to print a .dvi file.
申鐃緒申    95 If this string contains an asterisk (*), it will be replaced by the
申鐃緒申    96 filename; if not, the name of the file, preceded by blank, will be added to
申鐃緒申    97 this string.")
申鐃緒申    98 
申鐃緒申    99 ;;;###autoload
申鐃緒申   100 (defvar tex-alt-dvi-print-command "lpr -d"
申鐃緒申   101   "*Command used by \\[tex-print] with a prefix arg to print a .dvi file.
申鐃緒申   102 If this string contains an asterisk (*), it will be replaced by the
申鐃緒申   103 filename; if not, the name of the file, preceded by blank, will be added to
申鐃緒申   104 this string.
申鐃緒申   105 
申鐃緒申   106 If two printers are not enough of a choice, you can define the value
申鐃緒申   107 of tex-alt-dvi-print-command to be an expression that asks what you want;
申鐃緒申   108 for example,
申鐃緒申   109 
申鐃緒申   110     (setq tex-alt-dvi-print-command
申鐃緒申   111          '(format \"lpr -P%s\" (read-string \"Use printer: \")))
申鐃緒申   112 
申鐃緒申   113 would tell \\[tex-print] with a prefix argument to ask you which printer to
申鐃緒申   114 use.")
申鐃緒申   115 
申鐃緒申   116 ;;;###autoload
申鐃緒申   117 (defvar tex-dvi-view-command nil
申鐃緒申   118   "*Command used by \\[tex-view] to display a .dvi file.
申鐃緒申   119 If this string contains an asterisk (*), it will be replaced by the
申鐃緒申   120 filename; if not, the name of the file, preceded by blank, will be added to
申鐃緒申   121 this string.
申鐃緒申   122 
申鐃緒申   123 This can be set conditionally so that the previewer used is suitable for the
申鐃緒申   124 window system being used.  For example,
申鐃緒申   125 
申鐃緒申   126     (setq tex-dvi-view-command
申鐃緒申   127           (if (eq window-system 'x) \"xdvi\" \"dvi2tty * | cat -s\"))
申鐃緒申   128 
申鐃緒申   129 would tell \\[tex-view] use xdvi under X windows and to use dvi2tty
申鐃緒申   130 otherwise.")
申鐃緒申   131 
申鐃緒申   132 ;;;###autoload
申鐃緒申   133 (defvar tex-show-queue-command "lpq"
申鐃緒申   134   "*Command used by \\[tex-show-print-queue] to show the print queue.
申鐃緒申   135 Should show the queue(s) that \\[tex-print] puts jobs on.")
申鐃緒申   136 
申鐃緒申   137 ;;;###autoload
申鐃緒申   138 (defvar tex-default-mode 'plain-tex-mode
申鐃緒申   139   "*Mode to enter for a new file that might be either TeX or LaTeX.
申鐃緒申   140 This variable is used when it can't be determined whether the file
申鐃緒申   141 is plain TeX or LaTeX or what because the file contains no commands.
申鐃緒申   142 Normally set to either 'plain-tex-mode or 'latex-mode.")
申鐃緒申   143 
申鐃緒申   144 ;;;###autoload
申鐃緒申   145 (defvar tex-open-quote "``"
申鐃緒申   146   "*String inserted by typing \\[tex-insert-quote] to open a quotation.")
申鐃緒申   147 
申鐃緒申   148 ;;;###autoload
申鐃緒申   149 (defvar tex-close-quote "''"
申鐃緒申   150   "*String inserted by typing \\[tex-insert-quote] to close a quotation.")
申鐃緒申   151 
申鐃緒申   152 (defvar tex-last-temp-file nil
申鐃緒申   153   "Latest temporary file generated by \\[tex-region] and \\[tex-buffer].
申鐃緒申   154 Deleted when the \\[tex-region] or \\[tex-buffer] is next run, or when the
申鐃緒申   155 tex-shell goes away.")
申鐃緒申   156 
申鐃緒申   157 (defvar tex-command nil
申鐃緒申   158   "Command to run TeX.
申鐃緒申   159 The name of the file, preceded by a blank, will be added to this string.")
申鐃緒申   160 
申鐃緒申   161 (defvar tex-trailer nil
申鐃緒申   162   "String appended after the end of a region sent to TeX by \\[tex-region].")
申鐃緒申   163 
申鐃緒申   164 (defvar tex-start-of-header nil
申鐃緒申   165   "String used by \\[tex-region] to delimit the start of the file's header.")
申鐃緒申   166 
申鐃緒申   167 (defvar tex-end-of-header nil
申鐃緒申   168   "String used by \\[tex-region] to delimit the end of the file's header.")
申鐃緒申   169 
申鐃緒申   170 (defvar tex-shell-cd-command "cd"
申鐃緒申   171   "Command to give to shell running TeX to change directory.
申鐃緒申   172 The value of tex-directory will be appended to this, separated by a space.")
申鐃緒申   173 
申鐃緒申   174 (defvar tex-zap-file nil
申鐃緒申   175   "Temporary file name used for text being sent as input to TeX.
申鐃緒申   176 Should be a simple file name with no extension or directory specification.")
申鐃緒申   177 
申鐃緒申   178 (defvar tex-last-buffer-texed nil
申鐃緒申   179   "Buffer which was last TeXed.")
申鐃緒申   180 
申鐃緒申   181 (defvar tex-print-file nil
申鐃緒申   182   "File name that \\[tex-print] prints.
申鐃緒申   183 Set by \\[tex-region], \\[tex-buffer], and \\[tex-file].")
申鐃緒申   184 
申鐃緒申   185 (defvar tex-mode-syntax-table nil
申鐃緒申   186   "Syntax table used while in TeX mode.")
申鐃緒申   187 
申鐃緒申   188 (defun tex-define-common-keys (keymap)
申鐃緒申   189   "Define the keys that we want defined both in TeX mode and in the tex-shell."
申鐃緒申   190   (define-key keymap "\C-c\C-k" 'tex-kill-job)
申鐃緒申   191   (define-key keymap "\C-c\C-l" 'tex-recenter-output-buffer)
申鐃緒申   192   (define-key keymap "\C-c\C-q" 'tex-show-print-queue)
申鐃緒申   193   (define-key keymap "\C-c\C-p" 'tex-print)
申鐃緒申   194   (define-key keymap "\C-c\C-v" 'tex-view)
申鐃緒申   195   )
申鐃緒申   196 
申鐃緒申   197 (defvar tex-mode-map nil "Keymap for TeX mode.")
申鐃緒申   198 
申鐃緒申   199 (if tex-mode-map 
申鐃緒申   200     nil
申鐃緒申   201   (setq tex-mode-map (make-sparse-keymap))
申鐃緒申   202   (tex-define-common-keys tex-mode-map)
申鐃緒申   203   (define-key tex-mode-map "\"" 'tex-insert-quote)
申鐃緒申   204   (define-key tex-mode-map "\n" 'tex-terminate-paragraph)
申鐃緒申   205   (define-key tex-mode-map "\C-c}" 'up-list)
申鐃緒申   206   (define-key tex-mode-map "\C-c{" 'tex-insert-braces)
申鐃緒申   207   (define-key tex-mode-map "\C-c\C-r" 'tex-region)
申鐃緒申   208   (define-key tex-mode-map "\C-c\C-b" 'tex-buffer)
申鐃緒申   209   (define-key tex-mode-map "\C-c\C-f" 'tex-file)
申鐃緒申   210   (define-key tex-mode-map "\C-c\C-i" 'tex-bibtex-file)
申鐃緒申   211   (define-key tex-mode-map "\C-c\C-o" 'tex-latex-block)
申鐃緒申   212   (define-key tex-mode-map "\C-c\C-e" 'tex-close-latex-block))
申鐃緒申   213 
申鐃緒申   214 (defvar tex-shell-map nil
申鐃緒申   215   "Keymap for the tex-shell.  A comint-mode-map with a few additions.")
申鐃緒申   216 
申鐃緒申   217 (defvar compare-windows-whitespace nil)	; Pacify the byte-compiler
申鐃緒申   218 
申鐃緒申   219 ;;; This would be a lot simpler if we just used a regexp search,
申鐃緒申   220 ;;; but then it would be too slow.
申鐃緒申   221 ;;;###autoload
申鐃緒申   222 (defun tex-mode ()
申鐃緒申   223   "Major mode for editing files of input for TeX, LaTeX, or SliTeX.
申鐃緒申   224 Tries to determine (by looking at the beginning of the file) whether
申鐃緒申   225 this file is for plain TeX, LaTeX, or SliTeX and calls plain-tex-mode,
申鐃緒申   226 latex-mode, or slitex-mode, respectively.  If it cannot be determined,
申鐃緒申   227 such as if there are no commands in the file, the value of tex-default-mode
申鐃緒申   228 is used."
申鐃緒申   229   (interactive)
申鐃緒申   230   (let (mode slash comment)
申鐃緒申   231     (save-excursion
申鐃緒申   232       (goto-char (point-min))
申鐃緒申   233       (while (and (setq slash (search-forward "\\" nil t))
申鐃緒申   234 		  (setq comment (let ((search-end (point)))
申鐃緒申   235 				  (save-excursion
申鐃緒申   236 				    (beginning-of-line)
申鐃緒申   237 				    (search-forward "%" search-end t))))))
申鐃緒申   238       (if (and slash (not comment))
申鐃緒申   239 	  (setq mode (if (looking-at "documentstyle")
申鐃緒申   240                          (if (looking-at "documentstyle{slides}")
申鐃緒申   241                              'slitex-mode
申鐃緒申   242                            'latex-mode)
申鐃緒申   243 		       'plain-tex-mode))))
申鐃緒申   244     (if mode (funcall mode)
申鐃緒申   245       (funcall tex-default-mode))))
申鐃緒申   246 
申鐃緒申   247 ;;;###autoload
申鐃緒申   248 (defalias 'TeX-mode 'tex-mode)
申鐃緒申   249 ;;;###autoload
申鐃緒申   250 (defalias 'LaTeX-mode 'latex-mode)
申鐃緒申   251 
申鐃緒申   252 ;;;###autoload
申鐃緒申   253 (defun plain-tex-mode ()
申鐃緒申   254   "Major mode for editing files of input for plain TeX.
申鐃緒申   255 Makes $ and } display the characters they match.
申鐃緒申   256 Makes \" insert `` when it seems to be the beginning of a quotation,
申鐃緒申   257 and '' when it appears to be the end; it inserts \" only after a \\.
申鐃緒申   258 
申鐃緒申   259 Use \\[tex-region] to run TeX on the current region, plus a \"header\"
申鐃緒申   260 copied from the top of the file (containing macro definitions, etc.),
申鐃緒申   261 running TeX under a special subshell.  \\[tex-buffer] does the whole buffer.
申鐃緒申   262 \\[tex-file] saves the buffer and then processes the file.
申鐃緒申   263 \\[tex-print] prints the .dvi file made by any of these.
申鐃緒申   264 \\[tex-view] previews the .dvi file made by any of these.
申鐃緒申   265 \\[tex-bibtex-file] runs bibtex on the file of the current buffer.
申鐃緒申   266 
申鐃緒申   267 Use \\[validate-tex-buffer] to check buffer for paragraphs containing
申鐃緒申   268 mismatched $'s or braces.
申鐃緒申   269 
申鐃緒申   270 Special commands:
申鐃緒申   271 \\{tex-mode-map}
申鐃緒申   272 
申鐃緒申   273 Mode variables:
申鐃緒申   274 tex-run-command
申鐃緒申   275 	Command string used by \\[tex-region] or \\[tex-buffer].
申鐃緒申   276 tex-directory
申鐃緒申   277 	Directory in which to create temporary files for TeX jobs
申鐃緒申   278 	run by \\[tex-region] or \\[tex-buffer].
申鐃緒申   279 tex-dvi-print-command
申鐃緒申   280 	Command string used by \\[tex-print] to print a .dvi file.
申鐃緒申   281 tex-alt-dvi-print-command
申鐃緒申   282 	Alternative command string used by \\[tex-print] (when given a prefix
申鐃緒申   283 	argument) to print a .dvi file.
申鐃緒申   284 tex-dvi-view-command
申鐃緒申   285 	Command string used by \\[tex-view] to preview a .dvi file.
申鐃緒申   286 tex-show-queue-command
申鐃緒申   287 	Command string used by \\[tex-show-print-queue] to show the print
申鐃緒申   288 	queue that \\[tex-print] put your job on.
申鐃緒申   289 
申鐃緒申   290 Entering Plain-tex mode calls the value of `text-mode-hook', then the value
申鐃緒申   291 of `tex-mode-hook', and then the value of `plain-tex-mode-hook'.  When the
申鐃緒申   292 special subshell is initiated, the value of `tex-shell-hook' is called."
申鐃緒申   293 
申鐃緒申   294   (interactive)
申鐃緒申   295   (tex-common-initialization)
申鐃緒申   296   (setq mode-name "TeX")
申鐃緒申   297   (setq major-mode 'plain-tex-mode)
申鐃緒申   298   (setq tex-command tex-run-command)
申鐃緒申   299   (setq tex-start-of-header "%**start of header")
申鐃緒申   300   (setq tex-end-of-header "%**end of header")
申鐃緒申   301   (setq tex-trailer "\\bye\n")
申鐃緒申   302   (run-hooks 'text-mode-hook 'tex-mode-hook 'plain-tex-mode-hook))
申鐃緒申   303 ;;;###autoload
申鐃緒申   304 (defalias 'plain-TeX-mode 'plain-tex-mode)
申鐃緒申   305 
申鐃緒申   306 ;;;###autoload
申鐃緒申   307 (defun latex-mode ()
申鐃緒申   308   "Major mode for editing files of input for LaTeX.
申鐃緒申   309 Makes $ and } display the characters they match.
申鐃緒申   310 Makes \" insert `` when it seems to be the beginning of a quotation,
申鐃緒申   311 and '' when it appears to be the end; it inserts \" only after a \\.
申鐃緒申   312 
申鐃緒申   313 Use \\[tex-region] to run LaTeX on the current region, plus the preamble
申鐃緒申   314 copied from the top of the file (containing \\documentstyle, etc.),
申鐃緒申   315 running LaTeX under a special subshell.  \\[tex-buffer] does the whole buffer.
申鐃緒申   316 \\[tex-file] saves the buffer and then processes the file.
申鐃緒申   317 \\[tex-print] prints the .dvi file made by any of these.
申鐃緒申   318 \\[tex-view] previews the .dvi file made by any of these.
申鐃緒申   319 \\[tex-bibtex-file] runs bibtex on the file of the current buffer.
申鐃緒申   320 
申鐃緒申   321 Use \\[validate-tex-buffer] to check buffer for paragraphs containing
申鐃緒申   322 mismatched $'s or braces.
申鐃緒申   323 
申鐃緒申   324 Special commands:
申鐃緒申   325 \\{tex-mode-map}
申鐃緒申   326 
申鐃緒申   327 Mode variables:
申鐃緒申   328 latex-run-command
申鐃緒申   329 	Command string used by \\[tex-region] or \\[tex-buffer].
申鐃緒申   330 tex-directory
申鐃緒申   331 	Directory in which to create temporary files for LaTeX jobs
申鐃緒申   332 	run by \\[tex-region] or \\[tex-buffer].
申鐃緒申   333 tex-dvi-print-command
申鐃緒申   334 	Command string used by \\[tex-print] to print a .dvi file.
申鐃緒申   335 tex-alt-dvi-print-command
申鐃緒申   336 	Alternative command string used by \\[tex-print] (when given a prefix
申鐃緒申   337 	argument) to print a .dvi file.
申鐃緒申   338 tex-dvi-view-command
申鐃緒申   339 	Command string used by \\[tex-view] to preview a .dvi file.
申鐃緒申   340 tex-show-queue-command
申鐃緒申   341 	Command string used by \\[tex-show-print-queue] to show the print
申鐃緒申   342 	queue that \\[tex-print] put your job on.
申鐃緒申   343 
申鐃緒申   344 Entering Latex mode calls the value of text-mode-hook, then the value of
申鐃緒申   345 tex-mode-hook, and then the value of latex-mode-hook.  When the special
申鐃緒申   346 subshell is initiated, the value of tex-shell-hook is called."
申鐃緒申   347   (interactive)
申鐃緒申   348   (tex-common-initialization)
申鐃緒申   349   (setq mode-name "LaTeX")
申鐃緒申   350   (setq major-mode 'latex-mode)
申鐃緒申   351   (setq tex-command latex-run-command)
申鐃緒申   352   (setq tex-start-of-header "\\documentstyle")
申鐃緒申   353   (setq tex-end-of-header "\\begin{document}")
申鐃緒申   354   (setq tex-trailer "\\end{document}\n")
申鐃緒申   355   (run-hooks 'text-mode-hook 'tex-mode-hook 'latex-mode-hook))
申鐃緒申   356 
申鐃緒申   357 ;;;###autoload
申鐃緒申   358 (defun slitex-mode ()
申鐃緒申   359   "Major mode for editing files of input for SliTeX.
申鐃緒申   360 Makes $ and } display the characters they match.
申鐃緒申   361 Makes \" insert `` when it seems to be the beginning of a quotation,
申鐃緒申   362 and '' when it appears to be the end; it inserts \" only after a \\.
申鐃緒申   363 
申鐃緒申   364 Use \\[tex-region] to run SliTeX on the current region, plus the preamble
申鐃緒申   365 copied from the top of the file (containing \\documentstyle, etc.),
申鐃緒申   366 running SliTeX under a special subshell.  \\[tex-buffer] does the whole buffer.
申鐃緒申   367 \\[tex-file] saves the buffer and then processes the file.
申鐃緒申   368 \\[tex-print] prints the .dvi file made by any of these.
申鐃緒申   369 \\[tex-view] previews the .dvi file made by any of these.
申鐃緒申   370 \\[tex-bibtex-file] runs bibtex on the file of the current buffer.
申鐃緒申   371 
申鐃緒申   372 Use \\[validate-tex-buffer] to check buffer for paragraphs containing
申鐃緒申   373 mismatched $'s or braces.
申鐃緒申   374 
申鐃緒申   375 Special commands:
申鐃緒申   376 \\{tex-mode-map}
申鐃緒申   377 
申鐃緒申   378 Mode variables:
申鐃緒申   379 slitex-run-command
申鐃緒申   380 	Command string used by \\[tex-region] or \\[tex-buffer].
申鐃緒申   381 tex-directory
申鐃緒申   382 	Directory in which to create temporary files for SliTeX jobs
申鐃緒申   383 	run by \\[tex-region] or \\[tex-buffer].
申鐃緒申   384 tex-dvi-print-command
申鐃緒申   385 	Command string used by \\[tex-print] to print a .dvi file.
申鐃緒申   386 tex-alt-dvi-print-command
申鐃緒申   387 	Alternative command string used by \\[tex-print] (when given a prefix
申鐃緒申   388 	argument) to print a .dvi file.
申鐃緒申   389 tex-dvi-view-command
申鐃緒申   390 	Command string used by \\[tex-view] to preview a .dvi file.
申鐃緒申   391 tex-show-queue-command
申鐃緒申   392 	Command string used by \\[tex-show-print-queue] to show the print
申鐃緒申   393 	queue that \\[tex-print] put your job on.
申鐃緒申   394 
申鐃緒申   395 Entering SliTeX mode calls the value of `text-mode-hook', then the value of
申鐃緒申   396 `tex-mode-hook', then the value of `latex-mode-hook', and then the value of
申鐃緒申   397 `slitex-mode-hook'.  When the special subshell is initiated, the value of
申鐃緒申   398 `tex-shell-hook' is called."
申鐃緒申   399   (interactive)
申鐃緒申   400   (tex-common-initialization)
申鐃緒申   401   (setq mode-name "SliTeX")
申鐃緒申   402   (setq major-mode 'slitex-mode)
申鐃緒申   403   (setq tex-command slitex-run-command)
申鐃緒申   404   (setq tex-start-of-header "\\documentstyle{slides}")
申鐃緒申   405   (setq tex-end-of-header "\\begin{document}")
申鐃緒申   406   (setq tex-trailer "\\end{document}\n")
申鐃緒申   407   (run-hooks
申鐃緒申   408    'text-mode-hook 'tex-mode-hook 'latex-mode-hook 'slitex-mode-hook))
申鐃緒申   409 
申鐃緒申   410 (defun tex-common-initialization ()
申鐃緒申   411   (kill-all-local-variables)
申鐃緒申   412   (use-local-map tex-mode-map)
申鐃緒申   413   (setq local-abbrev-table text-mode-abbrev-table)
申鐃緒申   414   (if (null tex-mode-syntax-table)
申鐃緒申   415       (let ((char 0))
申鐃緒申   416 	(setq tex-mode-syntax-table (make-syntax-table))
申鐃緒申   417 	(set-syntax-table tex-mode-syntax-table)
申鐃緒申   418 	(while (< char ? )
申鐃緒申   419 	  (modify-syntax-entry char ".")
申鐃緒申   420 	  (setq char (1+ char)))
申鐃緒申   421 	(modify-syntax-entry ?\C-@ "w")
申鐃緒申   422 	(modify-syntax-entry ?\t " ")
申鐃緒申   423 	(modify-syntax-entry ?\n ">")
申鐃緒申   424 	(modify-syntax-entry ?\f ">")
申鐃緒申   425 	(modify-syntax-entry ?$ "$$")
申鐃緒申   426 	(modify-syntax-entry ?% "<")
申鐃緒申   427 	(modify-syntax-entry ?\\ "/")
申鐃緒申   428 	(modify-syntax-entry ?\" ".")
申鐃緒申   429 	(modify-syntax-entry ?& ".")
申鐃緒申   430 	(modify-syntax-entry ?_ ".")
申鐃緒申   431 	(modify-syntax-entry ?@ "_")
申鐃緒申   432 	(modify-syntax-entry ?~ " ")
申鐃緒申   433 	(modify-syntax-entry ?' "w"))
申鐃緒申   434     (set-syntax-table tex-mode-syntax-table))
申鐃緒申   435   (make-local-variable 'paragraph-start)
申鐃緒申   436   (setq paragraph-start "^[ \t]*$\\|^[\f\\\\%]")
申鐃緒申   437   (make-local-variable 'paragraph-separate)
申鐃緒申   438   (setq paragraph-separate paragraph-start)
申鐃緒申   439   (make-local-variable 'comment-start)
申鐃緒申   440   (setq comment-start "%")
申鐃緒申   441   (make-local-variable 'comment-start-skip)
申鐃緒申   442   (setq comment-start-skip "\\(\\(^\\|[^\\]\\)\\(\\\\\\\\\\)*\\)\\(%+ *\\)")
申鐃緒申   443   (make-local-variable 'comment-indent-function)
申鐃緒申   444   (setq comment-indent-function 'tex-comment-indent)
申鐃緒申   445   (make-local-variable 'compare-windows-whitespace)
申鐃緒申   446   (setq compare-windows-whitespace 'tex-categorize-whitespace)
申鐃緒申   447   (make-local-variable 'tex-command)
申鐃緒申   448   (make-local-variable 'tex-start-of-header)
申鐃緒申   449   (make-local-variable 'tex-end-of-header)
申鐃緒申   450   (make-local-variable 'tex-trailer))
申鐃緒申   451 
申鐃緒申   452 (defun tex-comment-indent ()
申鐃緒申   453   (if (looking-at "%%%")
申鐃緒申   454       (current-column)
申鐃緒申   455     (skip-chars-backward " \t")
申鐃緒申   456     (max (if (bolp) 0 (1+ (current-column)))
申鐃緒申   457 	 comment-column)))
申鐃緒申   458 
申鐃緒申   459 (defun tex-categorize-whitespace (backward-limit)
申鐃緒申   460   ;; compare-windows-whitespace is set to this.
申鐃緒申   461   ;; This is basically a finite-state machine.
申鐃緒申   462   ;; Returns a symbol telling how TeX would treat
申鐃緒申   463   ;; the whitespace we are looking at: null, space, or par.
申鐃緒申   464   (let ((category 'null)
申鐃緒申   465 	(not-finished t))
申鐃緒申   466     (skip-chars-backward " \t\n\f" backward-limit)
申鐃緒申   467     (while not-finished
申鐃緒申   468       (cond ((looking-at "[ \t]+")
申鐃緒申   469 	     (goto-char (match-end 0))
申鐃緒申   470 	     (if (eql category 'null)
申鐃緒申   471 		 (setq category 'space)))
申鐃緒申   472 	    ((looking-at "\n")
申鐃緒申   473 	     (cond ((eql category 'newline)
申鐃緒申   474 		    (setq category 'par)
申鐃緒申   475 		    (setq not-finished nil))
申鐃緒申   476 		   (t
申鐃緒申   477 		    (setq category 'newline) ;a strictly internal state
申鐃緒申   478 		    (goto-char (match-end 0)))))
申鐃緒申   479 	    ((looking-at "\f+")
申鐃緒申   480 	     (setq category 'par)
申鐃緒申   481 	     (setq not-finished nil))
申鐃緒申   482 	    (t
申鐃緒申   483 	     (setq not-finished nil))))
申鐃緒申   484     (skip-chars-forward " \t\n\f")
申鐃緒申   485     (if (eql category 'newline)
申鐃緒申   486 	'space				;TeX doesn't distinguish
申鐃緒申   487       category)))
申鐃緒申   488 
申鐃緒申   489 (defun tex-insert-quote (arg)
申鐃緒申   490   "Insert the appropriate quote marks for TeX.
申鐃緒申   491 Inserts the value of `tex-open-quote' (normally ``) or `tex-close-quote'
申鐃緒申   492 \(normally '') depending on the context.  With prefix argument, always
申鐃緒申   493 inserts \" characters."
申鐃緒申   494   (interactive "*P")
申鐃緒申   495   (if arg
申鐃緒申   496       (self-insert-command (prefix-numeric-value arg))
申鐃緒申   497     (insert
申鐃緒申   498      (cond ((or (bobp)
申鐃緒申   499 		(save-excursion
申鐃緒申   500 		  (forward-char -1)
申鐃緒申   501 		  (looking-at "\\s(\\|\\s \\|\\s>")))
申鐃緒申   502 	    tex-open-quote)
申鐃緒申   503 	   ((= (preceding-char) ?\\)
申鐃緒申   504 	    ?\")
申鐃緒申   505 	   (t
申鐃緒申   506 	    tex-close-quote)))))
申鐃緒申   507 
申鐃緒申   508 (defun validate-tex-buffer ()
申鐃緒申   509   "Check current buffer for paragraphs containing mismatched $s.
申鐃緒申   510 Their positions are recorded in the buffer `*Occur*'.
申鐃緒申   511 To find a particular invalidity from `*Occur*',
申鐃緒申   512 switch to to that buffer and type C-c C-c on the line
申鐃緒申   513 for the invalidity you want to see."
申鐃緒申   514   (interactive)
申鐃緒申   515   (let ((buffer (current-buffer))
申鐃緒申   516 	(prevpos (point-min))
申鐃緒申   517 	(linenum nil))
申鐃緒申   518     (with-output-to-temp-buffer "*Occur*"
申鐃緒申   519       (princ "Mismatches:\n")
申鐃緒申   520       (save-excursion
申鐃緒申   521 	(set-buffer standard-output)
申鐃緒申   522 	(occur-mode)
申鐃緒申   523 	(setq occur-buffer buffer)
申鐃緒申   524 	(setq occur-nlines 0)
申鐃緒申   525 	(setq occur-pos-list nil))
申鐃緒申   526       (save-excursion
申鐃緒申   527 	(goto-char (point-max))
申鐃緒申   528 	(while (and (not (input-pending-p)) (not (bobp)))
申鐃緒申   529 	  (let ((end (point)))
申鐃緒申   530 	    ;; Scan the previous paragraph for invalidities.
申鐃緒申   531 	    (search-backward "\n\n" nil 'move)
申鐃緒申   532 	    (or (tex-validate-region (point) end)
申鐃緒申   533 		(let* ((end (save-excursion (forward-line 1) (point)))
申鐃緒申   534 		       start tem)
申鐃緒申   535 		  (beginning-of-line)
申鐃緒申   536 		  (setq start (point))
申鐃緒申   537 		  ;; Keep track of line number as we scan,
申鐃緒申   538 		  ;; in a cumulative fashion.
申鐃緒申   539 		  (if linenum
申鐃緒申   540 		      (setq linenum (- linenum (count-lines prevpos (point))))
申鐃緒申   541 		    (setq linenum (1+ (count-lines 1 start))))
申鐃緒申   542 		  (setq prevpos (point))
申鐃緒申   543 		  ;; Mention this mismatch in *Occur*.  
申鐃緒申   544 		  ;; Since we scan from end of buffer to beginning,
申鐃緒申   545 		  ;; add each mismatch at the beginning of *Occur*
申鐃緒申   546 		  ;; and at the beginning of occur-pos-list.
申鐃緒申   547 		  (save-excursion
申鐃緒申   548 		    (setq tem (point-marker))
申鐃緒申   549 		    (set-buffer standard-output)
申鐃緒申   550 		    (goto-char (point-min))
申鐃緒申   551 		    ;; Skip "Mismatches:" header line.
申鐃緒申   552 		    (forward-line 1)
申鐃緒申   553 		    (setq occur-pos-list (cons tem occur-pos-list))
申鐃緒申   554 		    (insert-buffer-substring buffer start end)
申鐃緒申   555 		    (forward-char (- start end))
申鐃緒申   556 		    (insert (format "%3d: " linenum))))))))
申鐃緒申   557       (save-excursion
申鐃緒申   558 	(set-buffer standard-output)
申鐃緒申   559 	(if (null occur-pos-list)
申鐃緒申   560 	    (insert "None!\n"))
申鐃緒申   561 	(if (interactive-p)
申鐃緒申   562 	    (message "%d mismatches found" (length occur-pos-list)))))))
申鐃緒申   563 
申鐃緒申   564 (defun tex-validate-region (start end)
申鐃緒申   565   "Check for mismatched braces or $'s in region.
申鐃緒申   566 Returns t if no mismatches.  Returns nil and moves point to suspect
申鐃緒申   567 area if a mismatch is found."
申鐃緒申   568   (interactive "r")
申鐃緒申   569   (let ((failure-point nil) (max-possible-sexps (- end start)))
申鐃緒申   570     (save-excursion
申鐃緒申   571       (condition-case ()
申鐃緒申   572 	  (save-restriction
申鐃緒申   573 	    (narrow-to-region start end)
申鐃緒申   574 	    (goto-char start)
申鐃緒申   575 	    (while (< 0 (setq max-possible-sexps (1- max-possible-sexps)))
申鐃緒申   576 	      (forward-sexp 1)))
申鐃緒申   577 	(error
申鐃緒申   578 	  (setq failure-point (point)))))
申鐃緒申   579     (if failure-point
申鐃緒申   580 	(progn
申鐃緒申   581 	  (goto-char failure-point)
申鐃緒申   582 	  nil)
申鐃緒申   583       t)))
申鐃緒申   584 
申鐃緒申   585 (defun tex-terminate-paragraph (inhibit-validation)
申鐃緒申   586   "Insert two newlines, breaking a paragraph for TeX.
申鐃緒申   587 Check for mismatched braces/$'s in paragraph being terminated.
申鐃緒申   588 A prefix arg inhibits the checking."
申鐃緒申   589   (interactive "*P")
申鐃緒申   590   (or inhibit-validation
申鐃緒申   591       (save-excursion
申鐃緒申   592 	(tex-validate-region
申鐃緒申   593 	  (save-excursion
申鐃緒申   594 	    (search-backward "\n\n" nil 'move)
申鐃緒申   595 	    (point))
申鐃緒申   596 	  (point)))
申鐃緒申   597       (message "Paragraph being closed appears to contain a mismatch"))
申鐃緒申   598   (insert "\n\n"))
申鐃緒申   599 
申鐃緒申   600 (defun tex-insert-braces ()
申鐃緒申   601   "Make a pair of braces and be poised to type inside of them."
申鐃緒申   602   (interactive "*")
申鐃緒申   603   (insert ?\{)
申鐃緒申   604   (save-excursion
申鐃緒申   605     (insert ?})))
申鐃緒申   606 
申鐃緒申   607 ;;; Like tex-insert-braces, but for LaTeX.
申鐃緒申   608 (defun tex-latex-block (name)
申鐃緒申   609   "Creates a matching pair of lines \\begin{NAME} and \\end{NAME} at point.
申鐃緒申   610 Puts point on a blank line between them."
申鐃緒申   611   (interactive
申鐃緒申   612    (prog2
申鐃緒申   613       (barf-if-buffer-read-only)
申鐃緒申   614       (list
申鐃緒申   615        (completing-read "LaTeX block name: "
申鐃緒申   616 			(mapcar 'list
申鐃緒申   617                                 (append standard-latex-block-names
申鐃緒申   618                                         latex-block-names))))))
申鐃緒申   619   (let ((col (current-column)))
申鐃緒申   620     (insert (format "\\begin{%s}\n" name))
申鐃緒申   621     (indent-to col)
申鐃緒申   622     (save-excursion
申鐃緒申   623       (insert ?\n)
申鐃緒申   624       (indent-to col)
申鐃緒申   625       (insert-string (format "\\end{%s}" name))
申鐃緒申   626       (if (eobp) (insert ?\n)))))
申鐃緒申   627 
申鐃緒申   628 (defun tex-last-unended-begin ()
申鐃緒申   629   "Leave point at the beginning of the last \\begin{...} that is unended."
申鐃緒申   630   (while (and (re-search-backward "\\(\\\\begin\\s *{\\)\\|\\(\\\\end\\s *{\\)")
申鐃緒申   631               (looking-at "\\\\end{"))
申鐃緒申   632     (tex-last-unended-begin)))
申鐃緒申   633 
申鐃緒申   634 (defun tex-close-latex-block ()
申鐃緒申   635   "Creates an \\end{...} to match the last unclosed \\begin{...}."
申鐃緒申   636   (interactive "*")
申鐃緒申   637   (let ((new-line-needed (bolp))
申鐃緒申   638 	text indentation)
申鐃緒申   639     (save-excursion
申鐃緒申   640       (condition-case nil
申鐃緒申   641           (tex-last-unended-begin)
申鐃緒申   642         (error (error "Couldn't find unended \\begin")))
申鐃緒申   643       (setq indentation (current-column))
申鐃緒申   644       (re-search-forward "\\\\begin\\(\\s *{[^}\n]*}\\)")
申鐃緒申   645       (setq text (buffer-substring (match-beginning 1) (match-end 1))))
申鐃緒申   646     (indent-to indentation)
申鐃緒申   647     (insert "\\end" text)
申鐃緒申   648     (if new-line-needed (insert ?\n))))
申鐃緒申   649 
申鐃緒申   650 (defun tex-compilation-parse-errors ()
申鐃緒申   651   "Parse the current buffer as error messages.
申鐃緒申   652 This makes a list of error descriptors, compilation-error-list.
申鐃緒申   653 For each source-file, line-number pair in the buffer,
申鐃緒申   654 the source file is read in, and the text location is saved in
申鐃緒申   655 compilation-error-list.  The function `next-error', assigned to
申鐃緒申   656 \\[next-error], takes the next error off the list and visits its location.
申鐃緒申   657 
申鐃緒申   658 This function works on TeX compilations only.  It is necessary for
申鐃緒申   659 that purpose, since TeX does not put file names on the same line as
申鐃緒申   660 line numbers for the errors."
申鐃緒申   661   (setq compilation-error-list nil)
申鐃緒申   662   (message "Parsing error messages...")
申鐃緒申   663   (modify-syntax-entry ?\{ "_")
申鐃緒申   664   (modify-syntax-entry ?\} "_")
申鐃緒申   665   (modify-syntax-entry ?\[ "_")
申鐃緒申   666   (modify-syntax-entry ?\] "_")
申鐃緒申   667   (let (text-buffer
申鐃緒申   668 	last-filename last-linenum)
申鐃緒申   669     ;; Don't reparse messages already seen at last parse.
申鐃緒申   670     (goto-char compilation-parsing-end)
申鐃緒申   671     ;; Don't parse the first two lines as error messages.
申鐃緒申   672     ;; This matters for grep.
申鐃緒申   673     (if (bobp)
申鐃緒申   674 	(forward-line 2))
申鐃緒申   675     (while (re-search-forward "^l\.[0-9]+ " nil t)
申鐃緒申   676       (let (linenum filename
申鐃緒申   677 	    error-marker text-marker)
申鐃緒申   678 	;; Extract file name and line number from error message.
申鐃緒申   679 	;; Line number is 2 away from beginning of line: "l.23"
申鐃緒申   680 	(beginning-of-line)
申鐃緒申   681 	(goto-char (+ (point) 2))
申鐃緒申   682 	(setq linenum (read (current-buffer)))
申鐃緒申   683 	;; The file is the one that was opened last and is still open.
申鐃緒申   684 	;; We need to find the last open parenthesis.
申鐃緒申   685 	(insert ?\))
申鐃緒申   686 	(backward-sexp)
申鐃緒申   687 	(forward-char)
申鐃緒申   688 	(setq filename (current-word))
申鐃緒申   689 	;; Locate the erring file and line.
申鐃緒申   690 	(if (and (equal filename last-filename)
申鐃緒申   691 		 (= linenum last-linenum))
申鐃緒申   692 	    nil
申鐃緒申   693 	  (skip-chars-backward "^(")
申鐃緒申   694 	  (backward-char)
申鐃緒申   695 	  (forward-sexp)
申鐃緒申   696 	  (backward-delete-char 1)
申鐃緒申   697 	  (setq error-marker (point-marker))
申鐃緒申   698 	  ;; text-buffer gets the buffer containing this error's file.
申鐃緒申   699 	  (if (not (equal filename last-filename))
申鐃緒申   700 	      (setq text-buffer
申鐃緒申   701 		    (and (file-exists-p (setq last-filename filename))
申鐃緒申   702 			 (find-file-noselect filename))
申鐃緒申   703 		    last-linenum 0))
申鐃緒申   704 	  (if text-buffer
申鐃緒申   705 	      ;; Go to that buffer and find the erring line.
申鐃緒申   706 	      (save-excursion
申鐃緒申   707 		(set-buffer text-buffer)
申鐃緒申   708 		(if (zerop last-linenum)
申鐃緒申   709 		    (progn
申鐃緒申   710 		      (goto-char 1)
申鐃緒申   711 		      (setq last-linenum 1)))
申鐃緒申   712 		(forward-line (- linenum last-linenum))
申鐃緒申   713 		(setq last-linenum linenum)
申鐃緒申   714 		(setq text-marker (point-marker))
申鐃緒申   715 		(setq compilation-error-list
申鐃緒申   716 		      (cons (list error-marker text-marker)
申鐃緒申   717 			    compilation-error-list)))))
申鐃緒申   718 	(forward-line 1)))
申鐃緒申   719     (setq compilation-parsing-end (point-max)))
申鐃緒申   720   (message "Parsing error messages...done")
申鐃緒申   721   (setq compilation-error-list (nreverse compilation-error-list)))
申鐃緒申   722 
申鐃緒申   723 ;;; Invoking TeX in an inferior shell.
申鐃緒申   724 
申鐃緒申   725 ;;; Why use a shell instead of running TeX directly?  Because if TeX
申鐃緒申   726 ;;; gets stuck, the user can switch to the shell window and type at it.
申鐃緒申   727 
申鐃緒申   728 ;;; The utility functions:
申鐃緒申   729 
申鐃緒申   730 (defun tex-start-shell ()
申鐃緒申   731   (save-excursion
申鐃緒申   732     (set-buffer
申鐃緒申   733      (make-comint
申鐃緒申   734       "tex-shell"
申鐃緒申   735       (or tex-shell-file-name (getenv "ESHELL") (getenv "SHELL") "/bin/sh")
申鐃緒申   736       nil "-v"))
申鐃緒申   737     (let ((proc (get-process "tex-shell")))
申鐃緒申   738       (set-process-sentinel proc 'tex-shell-sentinel)
申鐃緒申   739       (process-kill-without-query proc)
申鐃緒申   740       (setq tex-shell-map (copy-keymap comint-mode-map))
申鐃緒申   741       (tex-define-common-keys tex-shell-map)
申鐃緒申   742       (use-local-map tex-shell-map)
申鐃緒申   743       (run-hooks 'tex-shell-hook)
申鐃緒申   744       (while (zerop (buffer-size))
申鐃緒申   745           (sleep-for 1)))))
申鐃緒申   746 
申鐃緒申   747 (defun tex-shell-sentinel (proc msg)
申鐃緒申   748   (cond ((null (buffer-name (process-buffer proc)))
申鐃緒申   749 	 ;; buffer killed
申鐃緒申   750 	 (set-process-buffer proc nil)
申鐃緒申   751          (tex-delete-last-temp-files))
申鐃緒申   752 	((memq (process-status proc) '(signal exit))
申鐃緒申   753          (tex-delete-last-temp-files))))
申鐃緒申   754 
申鐃緒申   755 (defun tex-set-buffer-directory (buffer directory)
申鐃緒申   756   "Set BUFFER's default directory to be DIRECTORY."
申鐃緒申   757   (setq directory (file-name-as-directory (expand-file-name directory)))
申鐃緒申   758   (if (not (file-directory-p directory))
申鐃緒申   759       (error "%s is not a directory" directory)
申鐃緒申   760     (save-excursion
申鐃緒申   761       (set-buffer buffer)
申鐃緒申   762       (setq default-directory directory))))
申鐃緒申   763 
申鐃緒申   764 (defun tex-send-command (command &optional file background)
申鐃緒申   765   "Send COMMAND to tex-shell, substituting optional FILE for *.
申鐃緒申   766 Do this in background if optional BACKGROUND is t.  If COMMAND has no *,
申鐃緒申   767 FILE will be appended, preceded by a blank, to COMMAND.  If FILE is nil, no
申鐃緒申   768 substitution will be made in COMMAND.  COMMAND can be any expression that
申鐃緒申   769 evaluates to a command string."
申鐃緒申   770   (save-excursion
申鐃緒申   771     (let* ((cmd (eval command))
申鐃緒申   772            (star (string-match "\\*" cmd))
申鐃緒申   773            (front (substring cmd 0 star))
申鐃緒申   774            (back (if star (substring cmd (1+ star)) "")))
申鐃緒申   775       (comint-proc-query (get-process "tex-shell")
申鐃緒申   776                          (concat
申鐃緒申   777                           (if file (if star (concat front file back)
申鐃緒申   778                                      (concat cmd " " file))
申鐃緒申   779                             cmd)
申鐃緒申   780                           (if background "&\n" "\n"))))))
申鐃緒申   781 
申鐃緒申   782 (defun tex-delete-last-temp-files ()
申鐃緒申   783   "Delete any junk files from last temp file."
申鐃緒申   784   (if tex-last-temp-file
申鐃緒申   785       (let* ((dir (file-name-directory tex-last-temp-file))
申鐃緒申   786              (list (file-name-all-completions
申鐃緒申   787                     (file-name-nondirectory tex-last-temp-file) dir)))
申鐃緒申   788         (while list
申鐃緒申   789           (delete-file (concat dir (car list)))
申鐃緒申   790           (setq list (cdr list))))))
申鐃緒申   791 
申鐃緒申   792 (add-hook 'kill-emacs-hook 'tex-delete-last-temp-files)
申鐃緒申   793 
申鐃緒申   794 ;;; The commands:
申鐃緒申   795 
申鐃緒申   796 (defun tex-region (beg end)
申鐃緒申   797   "Run TeX on the current region, via a temporary file.
申鐃緒申   798 The file's name comes from the variable `tex-zap-file' and the
申鐃緒申   799 variable `tex-directory' says where to put it.
申鐃緒申   800 
申鐃緒申   801 If the buffer has a header, the header is given to TeX before the
申鐃緒申   802 region itself.  The buffer's header is all lines between the strings
申鐃緒申   803 defined by `tex-start-of-header' and `tex-end-of-header' inclusive.
申鐃緒申   804 The header must start in the first 100 lines of the buffer.
申鐃緒申   805 
申鐃緒申   806 The value of `tex-trailer' is given to TeX as input after the region.
申鐃緒申   807 
申鐃緒申   808 The value of `tex-command' specifies the command to use to run TeX."
申鐃緒申   809   (interactive "r")
申鐃緒申   810   (if (tex-shell-running)
申鐃緒申   811       (tex-kill-job)
申鐃緒申   812     (tex-start-shell))
申鐃緒申   813   (or tex-zap-file
申鐃緒申   814       (setq tex-zap-file (tex-generate-zap-file-name)))
申鐃緒申   815   (let* ((temp-buffer (get-buffer-create " TeX-Output-Buffer"))
申鐃緒申   816          ; Temp file will be written and TeX will be run in zap-directory.
申鐃緒申   817          ; If the TEXINPUTS file has relative directories or if the region has
申鐃緒申   818          ; \input of files, this must be the same directory as the file for
申鐃緒申   819          ; TeX to access the correct inputs.  That's why it's safest if
申鐃緒申   820          ; tex-directory is ".".
申鐃緒申   821          (zap-directory
申鐃緒申   822           (file-name-as-directory (expand-file-name tex-directory)))
申鐃緒申   823          (tex-out-file (concat zap-directory tex-zap-file)))
申鐃緒申   824     (tex-delete-last-temp-files)
申鐃緒申   825     ;; Write the new temp file.
申鐃緒申   826     (save-excursion
申鐃緒申   827       (save-restriction
申鐃緒申   828 	(widen)
申鐃緒申   829 	(goto-char (point-min))
申鐃緒申   830 	(forward-line 100)
申鐃緒申   831 	(let ((search-end (point))
申鐃緒申   832 	      (hbeg (point-min)) (hend (point-min))
申鐃緒申   833 	      (default-directory zap-directory))
申鐃緒申   834 	  (goto-char (point-min))
申鐃緒申   835 	  ;; Initialize the temp file with either the header or nothing
申鐃緒申   836 	  (if (search-forward tex-start-of-header search-end t)
申鐃緒申   837 	      (progn
申鐃緒申   838 		(beginning-of-line)
申鐃緒申   839 		(setq hbeg (point))	;mark beginning of header
申鐃緒申   840 		(if (search-forward tex-end-of-header nil t)
申鐃緒申   841 		    (progn (forward-line 1)
申鐃緒申   842 			   (setq hend (point)))	;mark end of header
申鐃緒申   843 		  (setq hbeg (point-min))))) ;no header
申鐃緒申   844 	  (write-region (min hbeg beg) hend
申鐃緒申   845                         (concat tex-out-file ".tex") nil nil)
申鐃緒申   846 	  (write-region (max beg hend) end (concat tex-out-file ".tex") t nil))
申鐃緒申   847 	(let ((local-tex-trailer tex-trailer))
申鐃緒申   848 	  (set-buffer temp-buffer)
申鐃緒申   849 	  (erase-buffer)
申鐃緒申   850 	  ;; make sure trailer isn't hidden by a comment
申鐃緒申   851 	  (insert-string "\n")
申鐃緒申   852 	  (if local-tex-trailer (insert-string local-tex-trailer))
申鐃緒申   853 	  (tex-set-buffer-directory temp-buffer zap-directory)
申鐃緒申   854 	  (write-region (point-min) (point-max)
申鐃緒申   855                         (concat tex-out-file ".tex") t nil))))
申鐃緒申   856     ;; Record the file name to be deleted afterward.
申鐃緒申   857     (setq tex-last-temp-file tex-out-file)
申鐃緒申   858     (tex-send-command tex-shell-cd-command zap-directory)
申鐃緒申   859     (tex-send-command tex-command tex-out-file)
申鐃緒申   860     (setq tex-print-file tex-out-file)
申鐃緒申   861     (setq tex-last-buffer-texed (current-buffer))))
申鐃緒申   862 
申鐃緒申   863 (defun tex-buffer ()
申鐃緒申   864   "Run TeX on current buffer.  See \\[tex-region] for more information.
申鐃緒申   865 Does not save the buffer, so it's useful for trying experimental versions.
申鐃緒申   866 See \\[tex-file] for an alternative."
申鐃緒申   867   (interactive)
申鐃緒申   868   (tex-region (point-min) (point-max)))
申鐃緒申   869 
申鐃緒申   870 (defun tex-file ()
申鐃緒申   871   "Prompt to save all buffers and run TeX (or LaTeX) on current buffer's file.
申鐃緒申   872 This function is more useful than \\[tex-buffer] when you need the
申鐃緒申   873 `.aux' file of LaTeX to have the correct name."
申鐃緒申   874   (interactive)
申鐃緒申   875   (let ((tex-out-file
申鐃緒申   876          (if (buffer-file-name)
申鐃緒申   877              (file-name-nondirectory (buffer-file-name))
申鐃緒申   878            (error "Buffer does not seem to be associated with any file")))
申鐃緒申   879 	(file-dir (file-name-directory (buffer-file-name))))
申鐃緒申   880     (if tex-offer-save
申鐃緒申   881         (save-some-buffers))
申鐃緒申   882     (if (tex-shell-running)
申鐃緒申   883         (tex-kill-job)
申鐃緒申   884       (tex-start-shell))
申鐃緒申   885     (tex-send-command tex-shell-cd-command file-dir)
申鐃緒申   886     (tex-send-command tex-command tex-out-file))
申鐃緒申   887   (setq tex-last-buffer-texed (current-buffer))
申鐃緒申   888   (setq tex-print-file (buffer-file-name)))
申鐃緒申   889 
申鐃緒申   890 (defun tex-generate-zap-file-name ()
申鐃緒申   891   "Generate a unique name suitable for use as a file name."
申鐃緒申   892   ;; Include the shell process number and host name
申鐃緒申   893   ;; in case there are multiple shells (for same or different user).
申鐃緒申   894   (format "#tz%d%s"
申鐃緒申   895           (process-id (get-buffer-process "*tex-shell*"))
申鐃緒申   896 	  (tex-strip-dots (system-name))))
申鐃緒申   897 
申鐃緒申   898 (defun tex-strip-dots (s)
申鐃緒申   899   (setq s (copy-sequence s))
申鐃緒申   900   (while (string-match "\\." s)
申鐃緒申   901     (aset s (match-beginning 0) ?-))
申鐃緒申   902   s)
申鐃緒申   903 
申鐃緒申   904 ;; This will perhaps be useful for modifying TEXINPUTS.
申鐃緒申   905 ;; Expand each file name, separated by colons, in the string S.
申鐃緒申   906 (defun tex-expand-files (s)
申鐃緒申   907   (let (elts (start 0))
申鐃緒申   908     (while (string-match ":" s start)
申鐃緒申   909       (setq elts (cons (substring s start (match-beginning 0)) elts))
申鐃緒申   910       (setq start (match-end 0)))
申鐃緒申   911     (or (= start 0)
申鐃緒申   912 	(setq elts (cons (substring s start) elts)))
申鐃緒申   913     (mapconcat 'expand-file-name (nreverse elts) ":")))
申鐃緒申   914 
申鐃緒申   915 (defun tex-shell-running ()
申鐃緒申   916   (and (get-process "tex-shell")
申鐃緒申   917        (eq (process-status (get-process "tex-shell")) 'run)))
申鐃緒申   918 
申鐃緒申   919 (defun tex-kill-job ()
申鐃緒申   920   "Kill the currently running TeX job."
申鐃緒申   921   (interactive)
申鐃緒申   922   (quit-process (get-process "tex-shell") t))
申鐃緒申   923 
申鐃緒申   924 (defun tex-recenter-output-buffer (linenum)
申鐃緒申   925   "Redisplay buffer of TeX job output so that most recent output can be seen.
申鐃緒申   926 The last line of the buffer is displayed on
申鐃緒申   927 line LINE of the window, or centered if LINE is nil."
申鐃緒申   928   (interactive "P")
申鐃緒申   929   (let ((tex-shell (get-buffer "*tex-shell*"))
申鐃緒申   930 	(old-buffer (current-buffer)))
申鐃緒申   931     (if (null tex-shell)
申鐃緒申   932 	(message "No TeX output buffer")
申鐃緒申   933       (pop-to-buffer tex-shell)
申鐃緒申   934       (bury-buffer tex-shell)
申鐃緒申   935       (goto-char (point-max))
申鐃緒申   936       (recenter (if linenum
申鐃緒申   937 		    (prefix-numeric-value linenum)
申鐃緒申   938 		  (/ (window-height) 2)))
申鐃緒申   939       (pop-to-buffer old-buffer))))
申鐃緒申   940 
申鐃緒申   941 (defun tex-print (&optional alt)
申鐃緒申   942   "Print the .dvi file made by \\[tex-region], \\[tex-buffer] or \\[tex-file].
申鐃緒申   943 Runs the shell command defined by `tex-dvi-print-command'.  If prefix argument
申鐃緒申   944 is provided, use the alternative command, `tex-alt-dvi-print-command'."
申鐃緒申   945   (interactive "P")
申鐃緒申   946   (let ((print-file-name-dvi (tex-append tex-print-file ".dvi"))
申鐃緒申   947 	test-name)
申鐃緒申   948     (if (and (not (equal (current-buffer) tex-last-buffer-texed))
申鐃緒申   949 	     (file-newer-than-file-p
申鐃緒申   950 	      (setq test-name (tex-append (buffer-file-name) ".dvi"))
申鐃緒申   951 	      print-file-name-dvi))
申鐃緒申   952 	(setq print-file-name-dvi test-name))
申鐃緒申   953     (if (not (file-exists-p print-file-name-dvi))
申鐃緒申   954         (error "No appropriate `.dvi' file could be found")
申鐃緒申   955       (tex-send-command
申鐃緒申   956         (if alt tex-alt-dvi-print-command tex-dvi-print-command)
申鐃緒申   957         print-file-name-dvi t))))
申鐃緒申   958 
申鐃緒申   959 (defun tex-view ()
申鐃緒申   960   "Preview the last `.dvi' file made by running TeX under Emacs.
申鐃緒申   961 This means, made using \\[tex-region], \\[tex-buffer] or \\[tex-file].
申鐃緒申   962 The variable `tex-dvi-view-command' specifies the shell command for preview."
申鐃緒申   963   (interactive)
申鐃緒申   964   (let ((tex-dvi-print-command tex-dvi-view-command))
申鐃緒申   965     (tex-print)))
申鐃緒申   966 
申鐃緒申   967 (defun tex-append (file-name suffix)
申鐃緒申   968   "Append to FILENAME the suffix SUFFIX, using same algorithm TeX uses.
申鐃緒申   969 Scans for the first (not last) period.
申鐃緒申   970 No period is retained immediately before SUFFIX,
申鐃緒申   971 so normally SUFFIX starts with one."
申鐃緒申   972   (if (stringp file-name)
申鐃緒申   973       (let ((file (file-name-nondirectory file-name)))
申鐃緒申   974 	(concat (file-name-directory file-name)
申鐃緒申   975 		(substring file 0
申鐃緒申   976 			   (string-match "\\." file))
申鐃緒申   977 		suffix))
申鐃緒申   978     " "))
申鐃緒申   979 
申鐃緒申   980 ;;; Use this code after discussing with rms.  ([e-mail])
申鐃緒申   981 ;;; Date: Tue, 31 Aug 1993 14:30:26 EDT
申鐃緒申   982 ;;; From: Stephen Gildea <[e-mail]>
申鐃緒申   983 ;;; Sender: [e-mail]
申鐃緒申   984 ;;; Resent-From: [e-mail]
申鐃緒申   985 ;;; 
申鐃緒申   986 ;;; The function tex-append in Emacs 19.19 needs to be updated for the
申鐃緒申   987 ;;; newer C version of TeX, which parses filenames differently.
申鐃緒申   988 ;;; Pascal-based TeX scans for the first period; C TeX uses the last.
申鐃緒申   989 ;;; Here is a version of tex-append which tries both ways.
申鐃緒申   990 ;;; 
申鐃緒申   991 ;;; (defun tex-append (file-name suffix)
申鐃緒申   992 ;;;   "Append to FILENAME the suffix SUFFIX, using same algorithm TeX uses.
申鐃緒申   993 ;;; Pascal-based TeX scans for the first period, C TeX uses the last.
申鐃緒申   994 ;;; No period is retained immediately before SUFFIX,
申鐃緒申   995 ;;; so normally SUFFIX starts with one."
申鐃緒申   996 ;;;   (if (stringp file-name)
申鐃緒申   997 ;;;       (let ((file (file-name-nondirectory file-name))
申鐃緒申   998 ;;; 	    trial-name)
申鐃緒申   999 ;;; 	;; try spliting on first period
申鐃緒申  1000 ;;; 	(setq trial-name
申鐃緒申  1001 ;;; 	      (concat (file-name-directory file-name)
申鐃緒申  1002 ;;; 		      (substring file 0
申鐃緒申  1003 ;;; 				 (string-match "\\." file))
申鐃緒申  1004 ;;; 		      suffix))
申鐃緒申  1005 ;;; 	(if (or (file-exists-p trial-name)
申鐃緒申  1006 ;;; 		(file-exists-p (concat trial-name ".aux"))) ;for BibTeX files
申鐃緒申  1007 ;;; 	    trial-name
申鐃緒申  1008 ;;; 	  ;; not found, so split on last period
申鐃緒申  1009 ;;; 	  (concat (file-name-directory file-name)
申鐃緒申  1010 ;;; 		  (substring file 0
申鐃緒申  1011 ;;; 			     (string-match "\\.[^.]*$" file))
申鐃緒申  1012 ;;; 		  suffix)))
申鐃緒申  1013 ;;;     " "))
申鐃緒申  1014 
申鐃緒申  1015 (defun tex-show-print-queue ()
申鐃緒申  1016   "Show the print queue that \\[tex-print] put your job on.
申鐃緒申  1017 Runs the shell command defined by `tex-show-queue-command'."
申鐃緒申  1018   (interactive)
申鐃緒申  1019   (if (tex-shell-running)
申鐃緒申  1020       (tex-kill-job)
申鐃緒申  1021     (tex-start-shell))
申鐃緒申  1022   (tex-send-command tex-show-queue-command))
申鐃緒申  1023 
申鐃緒申  1024 (defun tex-bibtex-file ()
申鐃緒申  1025   "Run BibTeX on the current buffer's file."
申鐃緒申  1026   (interactive)
申鐃緒申  1027   (if (tex-shell-running)
申鐃緒申  1028       (tex-kill-job)
申鐃緒申  1029     (tex-start-shell))
申鐃緒申  1030   (let ((tex-out-file
申鐃緒申  1031          (tex-append (file-name-nondirectory (buffer-file-name)) ""))
申鐃緒申  1032 	(file-dir (file-name-directory (buffer-file-name))))
申鐃緒申  1033     (tex-send-command tex-shell-cd-command file-dir)
申鐃緒申  1034     (tex-send-command tex-bibtex-command tex-out-file)))
申鐃緒申  1035 
申鐃緒申  1036 (run-hooks 'tex-mode-load-hook)
申鐃緒申  1037 
申鐃緒申  1038 (provide 'tex-mode)
申鐃緒申  1039 
申鐃緒申  1040 ;;; tex-mode.el ends here
申鐃緒申  1041