# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1099294868 0
# Node ID 7cda0787d8cdcd3d5de9166e3670a5983b61d151
# Parent  de4da107405e2f49796847039b8a04cd2aa48146
(idlwave-shell-send-char): Don't use interactive-p.

diff -r de4da107405e -r 7cda0787d8cd lisp/progmodes/idlw-shell.el
--- a/lisp/progmodes/idlw-shell.el	Mon Nov 01 07:39:44 2004 +0000
+++ b/lisp/progmodes/idlw-shell.el	Mon Nov 01 07:41:08 2004 +0000
@@ -1137,10 +1137,10 @@
 	(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))))