# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 840936307 0
# Node ID 61e90a3e66aa7e73d342412d52b8e9085a7e7aec
# Parent  cba4fbcb4aa0c2e2b1727b7df3b64f82c49d73d9
(tex-main-file): New variable.
(tex-file): Use that.  Rename local var to source-file
so it is obviously local.

diff -r cba4fbcb4aa0 -r 61e90a3e66aa lisp/textmodes/tex-mode.el
--- 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)))