;ELC   
;;; Compiled by cyd@localhost on Mon Apr 23 22:21:16 2007
;;; from file /home/cyd/emacs/lisp/vmsproc.el
;;; in Emacs version 22.0.99
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`vmsproc.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@76 If non-nil, the subprocess window is displayed whenever input is received.
(defvar display-subprocess-window nil (#$ . 561))
#@59 String to insert to distinguish commands entered by user.
(defvar command-prefix-string "$ " (#$ . 692))
(byte-code "\302B\303\302!\204 \304\302\305\"\210\306B\303\306!\204 \304\306\305\"\210\307B\303\307!\204= \304\307\310 \311	\312\313#\210\311	\314\315#\210	)\"\210\305\207" [current-load-list map subprocess-running default-boundp set-default nil subprocess-buf command-mode-map make-sparse-keymap define-key "" command-send-input "" command-kill-line] 6)
#@51 Handle input from a subprocess.  Called by Emacs.
(defalias 'subprocess-input #[(name str) "\203 \303	!\210r	q\210db\210\n\304\261)\207" [display-subprocess-window subprocess-buf str display-buffer 10] 2 (#$ . 1169)])
#@39 Called by Emacs upon subprocess exit.
(defalias 'subprocess-exit #[(name) "\301\211\207" [subprocess-running nil] 2 (#$ . 1396)])
#@188 Spawn 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 "\203	 \303\304\305\"\210\306\307!r	q\210\310\n!\210)\311\312\313\314#\211\205$ \315\312\316\"\207" [subprocess-running subprocess-buf command-mode-map throw --cl-block-nil-- t get-buffer-create "*COMMAND*" use-local-map spawn-subprocess 1 subprocess-input subprocess-exit send-command-to-subprocess "ON SEVERE_ERROR THEN CONTINUE"] 5 (#$ . 1534)])
#@50 Execute COMMAND and redirect output into BUFFER.
(defalias 'subprocess-command-to-buffer #[(command buffer) "\304\211\n\305\306\307\n\"O\n\306\307\n\"\304O\310	\304\304\311&*\207" [args cmd command buffer nil 0 string-match " " call-process "*dcl*"] 7 (#$ . 2113)])
#@72 Start asynchronous subprocess if not running and switch to its window.
(defalias 'subprocess-command #[nil "\204 \302 \210\205 \303	!\210db\207" [subprocess-running subprocess-buf start-subprocess pop-to-buffer] 2 (#$ . 2392) nil])
#@147 If at last line of buffer, send the current line to
the spawned subprocess.  Otherwise bring back current
line to the last line for resubmission.
(defalias 'command-send-input #[nil "\303 \210`\304 {m\203/ 	\204 \305 \210	\205P \303 \210\306\307\"\210\n\203) \303 \210\nc\210\310\307!\202P db\210\311u\210\310\307!\210\312\n\313\211\314\nG&\203N \nG\313O\202O c)\207" [current-line subprocess-running command-prefix-string beginning-of-line line-end-position start-subprocess send-command-to-subprocess 1 next-line -1 compare-strings nil 0] 7 (#$ . 2635) nil])
#@47 Kill the current line.  Used in command mode.
(defalias 'command-kill-line #[nil "\300 \210\301 \207" [beginning-of-line kill-line] 1 (#$ . 3209) nil])
(define-key esc-map "$" 'subprocess-command)