(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 "" (quote command-kill-line))) (defun subprocess-input (name str) "\ Handles input from a subprocess. Called by Emacs." (byte-code "… Ä !ˆp qˆdbˆcˆÅcˆ q)‡" [display-subprocess-window subprocess-buf old-buffer str display-buffer 10] 2)) (defun subprocess-exit (name) "\ Called by Emacs upon subprocess exit." (byte-code "Á‰‡" [subprocess-running nil] 2)) (defun start-subprocess nil "\ 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." (byte-code "… ÄÁ!ˆÅÆ!‰ˆŠ qˆÇ!)ˆÈÉÊË#‰ˆ…'