changeset 23761:a99c30431979

(tex-feed-input): New function. (tex-define-common-keys): Add binding for C-c C-m.
author Richard M. Stallman <rms@gnu.org>
date Wed, 25 Nov 1998 01:07:19 +0000
parents 63e98b81cc29
children f69129948f65
files lisp/textmodes/tex-mode.el
diffstat 1 files changed, 10 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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")))