From 033306e36b44c10b4ff6fc270f77655239f78866 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 25 Nov 1998 01:07:19 +0000 Subject: [PATCH] (tex-feed-input): New function. (tex-define-common-keys): Add binding for C-c C-m. --- lisp/textmodes/tex-mode.el | 10 ++++++++++ 1 file changed, 10 insertions(+) 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"))) -- 2.39.5