diff options
| author | Richard M. Stallman | 2004-11-01 07:41:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-11-01 07:41:08 +0000 |
| commit | 6db31cbc79b4e5251b2b9b2e4e6b9349d57410c1 (patch) | |
| tree | 3207761587fd575f29e2a2126007512e30badd6c | |
| parent | 751adbdeccb326c6f04da69f01dbfef527e739c4 (diff) | |
| download | emacs-6db31cbc79b4e5251b2b9b2e4e6b9349d57410c1.tar.gz emacs-6db31cbc79b4e5251b2b9b2e4e6b9349d57410c1.zip | |
(idlwave-shell-send-char): Don't use interactive-p.
| -rw-r--r-- | lisp/progmodes/idlw-shell.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el index ae0c43c2730..692fce0234e 100644 --- a/lisp/progmodes/idlw-shell.el +++ b/lisp/progmodes/idlw-shell.el | |||
| @@ -1137,10 +1137,10 @@ prompt is present and if `idlwave-shell-ready' is non-nil." | |||
| 1137 | (goto-char save-point)) | 1137 | (goto-char save-point)) |
| 1138 | (set-buffer save-buffer)))) | 1138 | (set-buffer save-buffer)))) |
| 1139 | 1139 | ||
| 1140 | (defun idlwave-shell-send-char (c &optional no-error) | 1140 | (defun idlwave-shell-send-char (c &optional error) |
| 1141 | "Send one character to the shell, without a newline." | 1141 | "Send one character to the shell, without a newline." |
| 1142 | (interactive "cChar to send to IDL: ") | 1142 | (interactive "cChar to send to IDL: \np") |
| 1143 | (let ((errf (if (interactive-p) 'error 'message)) | 1143 | (let ((errf (if error 'error 'message)) |
| 1144 | buf proc) | 1144 | buf proc) |
| 1145 | (if (or (not (setq buf (get-buffer (idlwave-shell-buffer)))) | 1145 | (if (or (not (setq buf (get-buffer (idlwave-shell-buffer)))) |
| 1146 | (not (setq proc (get-buffer-process buf)))) | 1146 | (not (setq proc (get-buffer-process buf)))) |