changeset 15916:61e90a3e66aa

(tex-main-file): New variable. (tex-file): Use that. Rename local var to source-file so it is obviously local.

--- a/lisp/textmodes/tex-mode.el	Sat Aug 24 23:22:22 1996 +0000
+++ b/lisp/textmodes/tex-mode.el	Sun Aug 25 01:25:07 1996 +0000
@@ -36,12 +36,17 @@
 
 ;;;###autoload
 (defvar tex-directory "."
-  "*Directory in which temporary files are left.
+  "*Directory in which temporary files are written.
 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.")
 
 ;;;###autoload
+(defvar tex-main-file
+  "*The main TeX source file which includes this buffer's file.
+The command `tex-buffer' runs TeX on `tex-main-file'if that is non-nil.")
+
+;;;###autoload
 (defvar tex-offer-save t
   "*If non-nil, ask about saving modified buffers before \\[tex-file] is run.")
 
@@ -1046,10 +1051,11 @@
 This function is more useful than \\[tex-buffer] when you need the
 `.aux' file of LaTeX to have the correct name."
   (interactive)
-  (let ((tex-out-file
-         (if (buffer-file-name)
-             (file-name-nondirectory (buffer-file-name))
-           (error "Buffer does not seem to be associated with any file")))
+  (let ((source-file
+	 (or tex-main-file 
+	     (if (buffer-file-name)
+		 (file-name-nondirectory (buffer-file-name))
+	       (error "Buffer does not seem to be associated with any file"))))
 	(file-dir (file-name-directory (buffer-file-name))))
     (if tex-offer-save
         (save-some-buffers))
@@ -1057,7 +1063,7 @@
         (tex-kill-job)
       (tex-start-shell))
     (tex-send-command tex-shell-cd-command file-dir)
-    (tex-send-command tex-command tex-out-file))
+    (tex-send-command tex-command source-file))
   (tex-display-shell)
   (setq tex-last-buffer-texed (current-buffer))
   (setq tex-print-file (buffer-file-name)))