# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 911956039 0
# Node ID a99c30431979e9db3024c4a495327bd73057f17d
# Parent  63e98b81cc29d9b79adb5cc8e1e9d65702f45c36
(tex-feed-input): New function.
(tex-define-common-keys): Add binding for C-c C-m.

diff -r 63e98b81cc29 -r a99c30431979 lisp/textmodes/tex-mode.el
--- a/lisp/textmodes/tex-mode.el	Tue Nov 24 09:01:32 1998 +0000
+++ b/lisp/textmodes/tex-mode.el	Wed Nov 25 01:07:19 1998 +0000
@@ -337,6 +337,7 @@
   "Define the keys that we want defined both in TeX mode and in the TeX shell."
   (define-key keymap "\C-c\C-k" 'tex-kill-job)
   (define-key keymap "\C-c\C-l" 'tex-recenter-output-buffer)
+  (define-key keymap "\C-c\C-m" 'tex-feed-input)
   (define-key keymap "\C-c\C-q" 'tex-show-print-queue)
   (define-key keymap "\C-c\C-p" 'tex-print)
   (define-key keymap "\C-c\C-v" 'tex-view)
@@ -990,6 +991,15 @@
       (while (zerop (buffer-size))
 	(sleep-for 1)))))
 
+(defun tex-feed-input ()
+  "Send input to the tex shell process.
+In the tex buffer this can be used to continue an interactive tex run.
+In the tex shell buffer this command behaves like `comint-send-input'." 
+  (interactive)
+  (set-buffer (process-buffer (get-process "tex-shell")))
+  (comint-send-input)
+  (tex-recenter-output-buffer nil))
+
 (defun tex-display-shell ()
   "Make the TeX shell buffer visible in a window."
   (display-buffer (process-buffer (get-process "tex-shell")))