Commit a15849cb authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(tex-delete-last-temp-files): New arg NOT-ALL.

(tex-region): Pass new arg.
parent ec26e1b9
...@@ -871,14 +871,20 @@ evaluates to a command string." ...@@ -871,14 +871,20 @@ evaluates to a command string."
(comint-send-input) (comint-send-input)
(setq tex-send-command-modified-tick (buffer-modified-tick buf))))) (setq tex-send-command-modified-tick (buffer-modified-tick buf)))))
(defun tex-delete-last-temp-files () (defun tex-delete-last-temp-files (&optional not-all)
"Delete any junk files from last temp file." "Delete any junk files from last temp file.
If NOT-ALL is non-nil, save the `.dvi' file."
(if tex-last-temp-file (if tex-last-temp-file
(let* ((dir (file-name-directory tex-last-temp-file)) (let* ((dir (file-name-directory tex-last-temp-file))
(list (file-name-all-completions (list (file-name-all-completions
(file-name-nondirectory tex-last-temp-file) dir))) (file-name-nondirectory tex-last-temp-file) dir)))
(while list (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)))))) (setq list (cdr list))))))
(add-hook 'kill-emacs-hook 'tex-delete-last-temp-files) (add-hook 'kill-emacs-hook 'tex-delete-last-temp-files)
...@@ -913,7 +919,7 @@ The value of `tex-command' specifies the command to use to run TeX." ...@@ -913,7 +919,7 @@ The value of `tex-command' specifies the command to use to run TeX."
(zap-directory (zap-directory
(file-name-as-directory (expand-file-name tex-directory))) (file-name-as-directory (expand-file-name tex-directory)))
(tex-out-file (concat zap-directory tex-zap-file))) (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. ;; Write the new temp file.
(save-excursion (save-excursion
(save-restriction (save-restriction
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment