# HG changeset patch # User Richard M. Stallman # Date 916622299 0 # Node ID e1e1bb544d84811e34adafcd64ec3570ef4df731 # Parent 5f499867bc7eb2f435c9a83d02ed439ec25f2d8b (latex-run-command): Doc fix. (tex-command): Doc fix. (tex-compilation-parse-errors): Doc fix. (tex-generate-zap-file-name): Don't start the name with -. (tex-expand-files): Works now also with strings ending with ":". diff -r 5f499867bc7e -r e1e1bb544d84 lisp/textmodes/tex-mode.el --- a/lisp/textmodes/tex-mode.el Mon Jan 18 01:10:25 1999 +0000 +++ b/lisp/textmodes/tex-mode.el Mon Jan 18 01:18:19 1999 +0000 @@ -1,6 +1,6 @@ ;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands. -;; Copyright (C) 1985, 86, 89, 92, 94, 95, 96, 1997 +;; Copyright (C) 1985, 86, 89, 92, 94, 95, 96, 97, 1998 ;; Free Software Foundation, Inc. ;; Maintainer: FSF @@ -107,7 +107,8 @@ (defcustom latex-run-command "latex" "*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." +otherwise the value of `tex-start-options-string' and the file name are added +at the end, with blanks as separators." :type 'string :group 'tex-run) @@ -225,7 +226,8 @@ (defvar tex-command nil "Command to run TeX. -The name of the file, preceded by a blank, will be added to this string.") +The usual values are `tex-run-command' and `latex-run-command'. +See the documentations of these variables.") (defvar tex-trailer nil "String appended after the end of a region sent to TeX by \\[tex-region].") @@ -1110,6 +1112,7 @@ If LIMIT-SEARCH is non-nil, don't bother parsing past that location. If FIND-AT-LEAST is non-nil, don't bother parsing after finding that +many new errors. 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 @@ -1320,7 +1323,7 @@ ;; in case there are multiple shells (for same or different user). ;; Dec 1998: There is a report that some versions of xdvi ;; don't work with file names that start with #. - (format "-tz#%d%s" + (format "_TZ_%d-%s" (process-id (get-buffer-process "*tex-shell*")) (tex-strip-dots (system-name)))) @@ -1339,7 +1342,9 @@ (setq start (match-end 0))) (or (= start 0) (setq elts (cons (substring s start) elts))) - (mapconcat 'expand-file-name (nreverse elts) ":"))) + (mapconcat '(lambda (elt) + (if (= (length elt) 0) elt (expand-file-name elt))) + (nreverse elts) ":"))) (defun tex-shell-running () (and (get-process "tex-shell")