diff options
| author | Richard M. Stallman <[email protected]> | 2004-11-01 07:41:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2004-11-01 07:41:08 +0000 |
| commit | 6db31cbc79b4e5251b2b9b2e4e6b9349d57410c1 (patch) | |
| tree | 3207761587fd575f29e2a2126007512e30badd6c /lisp/progmodes | |
| parent | 751adbdeccb326c6f04da69f01dbfef527e739c4 (diff) | |
(idlwave-shell-send-char): Don't use interactive-p.
Diffstat (limited to 'lisp/progmodes')
| -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 ae0c43c273..692fce0234 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." (goto-char save-point)) (set-buffer save-buffer)))) -(defun idlwave-shell-send-char (c &optional no-error) +(defun idlwave-shell-send-char (c &optional error) "Send one character to the shell, without a newline." - (interactive "cChar to send to IDL: ") - (let ((errf (if (interactive-p) 'error 'message)) + (interactive "cChar to send to IDL: \np") + (let ((errf (if error 'error 'message)) buf proc) (if (or (not (setq buf (get-buffer (idlwave-shell-buffer)))) (not (setq proc (get-buffer-process buf)))) |