changeset 9450:af39d29d1386

(compare-windows-whitespace): Eliminate initial value. (tex-region): Don't delete temp files if we do one buffer twice in a row.
author Richard M. Stallman <rms@gnu.org>
date Tue, 11 Oct 1994 18:51:29 +0000
parents d11a719d7bde
children bdad001a9b91
files lisp/textmodes/tex-mode.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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