;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:57:23 1995
;;; from file /gd/gnu/emacs/19.0/lisp/vmsproc.el
;;; emacs version 19.28.90.26.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "`/gd/gnu/emacs/19.0/lisp/vmsproc.el' was compiled for Emacs 19"))


#@75 If non-nil, the suprocess window is displayed whenever input is received.
(defvar display-subprocess-window nil (#$ . 483))
#@59 String to insert to distinguish commands entered by user.
(defvar command-prefix-string "$ " (#$ . 613))
(byte-code "ÀÁ!„ ÂÁBÀÄ!„ ÂÄB\f„+ Å Æ\fÇÈ#ˆÆ\fÉÊ#ˆÂ‡" [boundp subprocess-running nil current-load-list command-mode-map make-sparse-keymap define-key "" command-send-input "" command-kill-line] 4)
#@52 Handles input from a subprocess.  Called by Emacs.
(defalias 'subprocess-input #[(name str) "ƒ Á\n!ˆp\nqˆdbˆ\fcˆÅcˆq)‡" [display-subprocess-window display-buffer subprocess-buf old-buffer str 10] 2 (#$ . 931)])
#@39 Called by Emacs upon subprocess exit.
(defalias 'subprocess-exit #[(name) "À‰‡" [nil subprocess-running] 2 (#$ . 1152)])
#@189 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.
(defalias 'start-subprocess #[nil "ƒ	 ÁÂÃ\"ˆÄÅ!ŠqˆÇ!ˆ)ÉÊËÌ#‰…' ÍÊÎ\"‡" [subprocess-running throw --cl-block-nil-- 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 (#$ . 1281)])
#@50 Execute COMMAND and redirect output into BUFFER.
(defalias 'subprocess-command-to-buffer #[(command buffer) "À‰ÄÅÆ\"OÅÆ\"ÀOÇ\nÀÀÉ	&*‡" [nil args cmd command 0 string-match " " call-process buffer "*dcl*"] 7 (#$ . 1803)])
#@75 Starts asynchronous subprocess if not running and switches to its window.
(defalias 'subprocess-command #[nil "„ Á ˆ… Â!ˆdb‡" [subprocess-running start-subprocess pop-to-buffer subprocess-buf] 2 (#$ . 2041) nil])
#@149 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.
(defalias 'command-send-input #[nil "Àyˆ`Áˆ`{mƒ3 „ Ä ˆ…U ÀyˆÅÆ\n\"ˆƒ- ÀyˆcˆÈÆ!‚U É ˆÊ ˆÈÆ!ˆ\nÀGO˜ƒS \nGÁOc‚U \nc)‡" [0 nil current-line subprocess-running start-subprocess send-command-to-subprocess 1 command-prefix-string next-line end-of-buffer backward-char] 4 (#$ . 2266) nil])
#@48 Kills the current line.  Used in command mode.
(defalias 'command-kill-line #[nil "ÀyˆÁ ‡" [0 kill-line] 1 (#$ . 2717) nil])
(define-key esc-map "$" (quote subprocess-command))