Mercurial > emacs

changeset 6479:855f4f2d24da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tex-delete-last-temp-files): New arg NOT-ALL. (tex-region): Pass new arg.
author Richard M. Stallman <rms@gnu.org>
date Wed, 23 Mar 1994 18:19:20 +0000
parents 65c2e184b5d9
children c6cafb1168b3
files lisp/textmodes/tex-mode.el
diffstat 1 files changed, 10 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/tex-mode.el	Wed Mar 23 18:18:19 1994 +0000
+++ b/lisp/textmodes/tex-mode.el	Wed Mar 23 18:19:20 1994 +0000
@@ -871,14 +871,20 @@
       (comint-send-input)
       (setq tex-send-command-modified-tick (buffer-modified-tick buf)))))
 
-(defun tex-delete-last-temp-files ()
-  "Delete any junk files from last temp file."
+(defun tex-delete-last-temp-files (&optional not-all)
+  "Delete any junk files from last temp file.
+If NOT-ALL is non-nil, save the `.dvi' file."
   (if tex-last-temp-file
       (let* ((dir (file-name-directory tex-last-temp-file))
              (list (file-name-all-completions
                     (file-name-nondirectory tex-last-temp-file) dir)))
         (while list
-          (delete-file (concat dir (car list)))
+	  (if not-all
+	      (and
+	       ;; If arg is non-nil, don't delete the .dvi file.
+	       (not (string-match "\\.dvi$" (car list)))
+	       (delete-file (concat dir (car list))))
+	    (delete-file (concat dir (car list))))
           (setq list (cdr list))))))
 
 (add-hook 'kill-emacs-hook 'tex-delete-last-temp-files)
@@ -913,7 +919,7 @@
          (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)
+    (tex-delete-last-temp-files t)
     ;; Write the new temp file.
     (save-excursion
       (save-restriction