;;; compiled by mycroft@hal on Tue Sep 22 05:25:21 1992
;;; from file /src/emacs-19.0/lisp/vmsproc.el
;;; emacs version 19.0.426.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(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.")
(byte-code "ÀÁ!„ ÂÀÃ!„ Â„# Ä ÅÆÇ#ˆÅÈÉ#ˆÂ‡" [boundp subprocess-running nil command-mode-map make-sparse-keymap define-key "" command-send-input "" command-kill-line] 4)
(fset 'subprocess-input (make-byte-code (quote (name str)) "ƒ Á\n!ˆp\nqˆdbˆcˆÅcˆq)‡" [display-subprocess-window display-buffer subprocess-buf old-buffer str 10] 2 "\
Handles input from a subprocess.  Called by Emacs."))
(fset 'subprocess-exit (make-byte-code (quote (name)) "À‰‡" [nil subprocess-running] 2 "\
Called by Emacs upon subprocess exit."))
(fset 'start-subprocess (make-byte-code (quote nil) "ƒ ÁÂ!ˆÃÄ!ŠqˆÆ!ˆ)ÈÉÊË#‰…$ ÌÉÍ\"‡" [subprocess-running return t get-buffer-create "*COMMAND*" subprocess-buf use-local-map command-mode-map spawn-subprocess 1 subprocess-input subprocess-exit send-command-to-subprocess "ON SEVERE_ERROR THEN CONTINUE"] 5 "\
Spawns an asynchronous subprocess with output redirected to
the buffer *COMMAND*.  Within this buffer, use C-m to send
the last line to the subprocess or to bring another line to
the end."))
(fset 'subprocess-command-to-buffer (make-byte-code (quote (command buffer)) "À‰ÄÅÆ\"OÅÆ\"ÀOÇ\nÀÀÉ	&*‡" [nil args cmd command 0 string-match " " call-process buffer "*dcl*"] 7 "\
Execute COMMAND and redirect output into BUFFER."))
(fset 'subprocess-command (make-byte-code (quote nil) "„ Á ˆ… Â!ˆdb‡" [subprocess-running start-subprocess pop-to-buffer subprocess-buf] 2 "\
Starts asynchronous subprocess if not running and switches to its window." nil))
(fset 'command-send-input (make-byte-code (quote nil) "ÀÁ!ˆÂ`Ã ˆ`\"mƒ7 „ Æ ˆ…Z ÀÁ!ˆÇÈ\"ˆ	ƒ1 ÀÁ!ˆ	cˆÊÈ!‚Z Ë ˆÌ ˆÊÈ!ˆÍ	Á	GO\"ƒX 	GÎOc‚Z c)‡" [forward-line 0 buffer-substring end-of-line current-line subprocess-running start-subprocess send-command-to-subprocess 1 command-prefix-string next-line end-of-buffer backward-char string-equal nil] 5 "\
If at last line of buffer, sends the current line to
the spawned subprocess.  Otherwise brings back current
line to the last line for resubmission." nil))
(fset 'command-kill-line (make-byte-code (quote nil) "ÀÁ!ˆÂ ‡" [forward-line 0 kill-line] 2 "\
Kills the current line.  Used in command mode." nil))
(define-key esc-map "$" (quote subprocess-command))