(tex-feed-input): New function.

(tex-define-common-keys): Add binding for C-c C-m.

1 files changed, 10 insertions, 0 deletions

diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index 41ff4204de4..92ddade1985 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -337,6 +337,7 @@ subsubsection\\|paragraph\\|subparagraph\\)\\*?[ \t]*{" nil t)
   "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 @@ Mark is left at original location."
       (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")))