From 6db31cbc79b4e5251b2b9b2e4e6b9349d57410c1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 1 Nov 2004 07:41:08 +0000 Subject: [PATCH] (idlwave-shell-send-char): Don't use interactive-p. --- lisp/progmodes/idlw-shell.el | 6 +++--- 1 file 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." (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)))) -- 2.39.2