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

if text has not changed since previous tex-send-command.
(tex-send-command-modified-tick): New buffer-local variable.

diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index eddf642468f268e29525ebee1b18dc261ccf4f74..1d2e20a223a2bf2faa82eaf0b2c824b5ec3a8006 100644 (file)
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -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."