From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 1 Nov 2004 07:41:08 +0000 (+0000)
Subject: (idlwave-shell-send-char): Don't use interactive-p.
X-Git-Tag: ttn-vms-21-2-B4~4295
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6db31cbc79b4e5251b2b9b2e4e6b9349d57410c1;p=emacs.git

(idlwave-shell-send-char): Don't use interactive-p.
---

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))))