1137 |
(goto-char save-point)) |
(goto-char save-point)) |
1138 |
(set-buffer save-buffer)))) |
(set-buffer save-buffer)))) |
1139 |
|
|
1140 |
(defun idlwave-shell-send-char (c &optional no-error) |
(defun idlwave-shell-send-char (c &optional error) |
1141 |
"Send one character to the shell, without a newline." |
"Send one character to the shell, without a newline." |
1142 |
(interactive "cChar to send to IDL: ") |
(interactive "cChar to send to IDL: \np") |
1143 |
(let ((errf (if (interactive-p) 'error 'message)) |
(let ((errf (if error 'error 'message)) |
1144 |
buf proc) |
buf proc) |
1145 |
(if (or (not (setq buf (get-buffer (idlwave-shell-buffer)))) |
(if (or (not (setq buf (get-buffer (idlwave-shell-buffer)))) |
1146 |
(not (setq proc (get-buffer-process buf)))) |
(not (setq proc (get-buffer-process buf)))) |