34 |
"String to insert to distinguish commands entered by user.") |
"String to insert to distinguish commands entered by user.") |
35 |
|
|
36 |
(defvar subprocess-running nil) |
(defvar subprocess-running nil) |
37 |
|
(defvar subprocess-buf nil) |
38 |
|
|
39 |
(defvar command-mode-map |
(defvar command-mode-map |
40 |
(let ((map (make-sparse-keymap))) |
(let ((map (make-sparse-keymap))) |
41 |
(define-key map "\C-m" 'command-send-input) |
(define-key map "\C-m" 'command-send-input) |
46 |
"Handles input from a subprocess. Called by Emacs." |
"Handles input from a subprocess. Called by Emacs." |
47 |
(if display-subprocess-window |
(if display-subprocess-window |
48 |
(display-buffer subprocess-buf)) |
(display-buffer subprocess-buf)) |
49 |
(let ((old-buffer (current-buffer))) |
(with-current-buffer subprocess-buf |
|
(set-buffer subprocess-buf) |
|
50 |
(goto-char (point-max)) |
(goto-char (point-max)) |
51 |
(insert str) |
(insert str ?\n))) |
|
(insert ?\n) |
|
|
(set-buffer old-buffer))) |
|
52 |
|
|
53 |
(defun subprocess-exit (name) |
(defun subprocess-exit (name) |
54 |
"Called by Emacs upon subprocess exit." |
"Called by Emacs upon subprocess exit." |