usr/contrib/lib/emacs/lisp/vmsproc.elc


(defvar display-subprocess-window nil "\
If non-nil, the suprocess window is displayed whenever input is received.")

(defvar command-prefix-string "$ " "\
String to insert to distinguish commands entered by user.")

(defvar subprocess-running nil)

(defvar command-mode-map nil)

(if command-mode-map nil (setq command-mode-map (make-sparse-keymap)) (define-key command-mode-map "
" (quote command-send-input)) (define-key command-mode-map "\15" (quote command-kill-line)))

(defun subprocess-input (name str) "\
Handles input from a subprocess.  Called by Emacs." (byte-code "\b\85\a