# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 781901489 0
# Node ID af39d29d1386fd60031bf4b3e269105bac8b583a
# Parent  d11a719d7bdebc1ab14ca146d8519e6e3febbfe5
(compare-windows-whitespace): Eliminate initial value.

(tex-region): Don't delete temp files if we do
one buffer twice in a row.

diff -r d11a719d7bde -r af39d29d1386 lisp/textmodes/tex-mode.el
--- a/lisp/textmodes/tex-mode.el	Tue Oct 11 17:38:48 1994 +0000
+++ b/lisp/textmodes/tex-mode.el	Tue Oct 11 18:51:29 1994 +0000
@@ -239,7 +239,7 @@
   "Keymap for the TeX shell.
 Inherits `comint-mode-map' with a few additions.")
 
-(defvar compare-windows-whitespace nil)	; Pacify the byte-compiler
+(defvar compare-windows-whitespace)	; Pacify the byte-compiler
 
 ;;; This would be a lot simpler if we just used a regexp search,
 ;;; but then it would be too slow.
@@ -931,7 +931,9 @@
          (zap-directory
           (file-name-as-directory (expand-file-name tex-directory)))
          (tex-out-file (concat zap-directory tex-zap-file)))
-    (tex-delete-last-temp-files t)
+    ;; Don't delete temp files if we do the same buffer twice in a row.
+    (or (eq (current-buffer) tex-last-buffer-texed)
+	(tex-delete-last-temp-files t))
     ;; Write the new temp file.
     (save-excursion
       (save-restriction