Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 21:37:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(tex-send-command): Wait for output first,

Browse source 
if text has not changed since previous tex-send-command.
(tex-send-command-modified-tick): New buffer-local variable.
This commit is contained in:
Richard M. Stallman 1993-11-20 22:21:30 +00:00
parent 4cdc1d4b2d
commit 30803a05ce
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/textmodes/tex-mode.el
View file

@ -791,6 +791,9 @@ line numbers for the errors."
(set-buffer buffer)
(setq default-directory directory))))
(defvar tex-send-command-modified-tick 0)
(make-variable-buffer-local 'tex-send-command-modified-tick)
(defun tex-send-command (command &optional file background)
"Send COMMAND to TeX shell process, substituting optional FILE for *.
Do this in background if optional BACKGROUND is t. If COMMAND has no *,
@ -809,10 +812,15 @@ evaluates to a command string."
(concat cmd " " file))
cmd)
(if background "&" ""))))
;; If text is unchanged since previous tex-send-command,
;; we haven't got any output. So wait for output now.
(if (= (buffer-modified-tick) tex-send-command-modified-tick)
(accept-process-output proc))
(set-buffer (process-buffer proc))
(goto-char (process-mark proc))
(insert string)
(comint-send-input))))
(comint-send-input)
(setq tex-send-command-modified-tick (buffer-modified-tick)))))
(defun tex-delete-last-temp-files ()
"Delete any junk files from last temp file."