From 0d548e5d7bc70e6e65f260b6c55a5b47ecedd72b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 11 Oct 1994 18:51:29 +0000 Subject: [PATCH] (compare-windows-whitespace): Eliminate initial value. (tex-region): Don't delete temp files if we do one buffer twice in a row. --- lisp/textmodes/tex-mode.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 8a89ca2dfe6..68562270308 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el @@ -239,7 +239,7 @@ Set by \\[tex-region], \\[tex-buffer], and \\[tex-file].") "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 @@ The value of `tex-command' specifies the command to use to run TeX." (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 -- 2.39.5