;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/vmsx.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/vmsx.el' was compiled for Emacs 19"))


#@75 If non-nil, the suprocess window is displayed whenever input is received.
(defvar display-subprocess-window nil (#$ . 477))
#@59 String to insert to distinguish commands entered by user.
(defvar command-prefix-string "$ " (#$ . 607))
(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 (#$ . 925)])
#@39 Called by Emacs upon subprocess exit.
(defalias 'subprocess-exit #[(name) "À‰‡" [nil subprocess-running] 2 (#$ . 1146)])
#@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 (#$ . 1275)])
#@62 *Put temporary files from subprocess-command-to-buffer here.
(defvar subprocess-command-to-buffer-tmpdir "SYS$SCRATCH:" (#$ . -1797))
#@129 Execute command and redirect output into buffer.

BUGS: only the output up to the end of the first image activation is trapped.
(defalias 'subprocess-command-to-buffer #[(command buffer) "„ Á ˆŠ\nqˆÄÅÆ!ÇRÉ!ƒ# Ê!ˆ‚ ËÌÍÎQ\"ˆËÌ\"ˆËÌÐÑR\"ˆÉ!„K ÒÓ!ˆ‚= Ô!*‡" [subprocess-running start-subprocess buffer subprocess-command-to-buffer-tmpdir "OUTPUT-FOR-" getenv "USER" ".LISTING" output-filename file-attributes delete-file send-command-to-subprocess 1 "DEFINE/USER SYS$OUTPUT " "-NEW" command "RENAME " "-NEW " sleep-for 2 insert-file] 6 (#$ . 1938)])
#@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 (#$ . 2511) 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 (#$ . 2736) nil])
#@48 Kills the current line.  Used in command mode.
(defalias 'command-kill-line #[nil "ÀyˆÁ ‡" [0 kill-line] 1 (#$ . 3187) nil])
(define-key esc-map "$" (quote subprocess-command))