(rlogin-send-Ctrl-C): Use process-send-string, not send-string.

(rlogin-send-Ctrl-D): Here also.
(rlogin-send-Ctrl-Z): Here also.
(rlogin-send-Ctrl-backslash): Here also.

diff --git a/lisp/rlogin.el b/lisp/rlogin.el
index 6d9409868019420d184703a782274fbcfdcd87e7..09e3b13066c856e4222b0ef7bd65d0248e9cfc03 100644 (file)
--- a/lisp/rlogin.el
+++ b/lisp/rlogin.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Noah Friedman <friedman@splode.com>
 ;; Keywords: unix, comm
 
-;; $Id: rlogin.el,v 1.42 1998/06/24 09:23:00 schwab Exp $
+;; $Id: rlogin.el,v 1.43 1998/09/11 01:22:53 friedman Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -339,19 +339,19 @@ local one share the same directories (through NFS)."
 
 (defun rlogin-send-Ctrl-C ()
   (interactive)
-  (send-string nil "\C-c"))
+  (process-send-string nil "\C-c"))
 
 (defun rlogin-send-Ctrl-D ()
   (interactive)
-  (send-string nil "\C-d"))
+  (process-send-string nil "\C-d"))
 
 (defun rlogin-send-Ctrl-Z ()
   (interactive)
-  (send-string nil "\C-z"))
+  (process-send-string nil "\C-z"))
 
 (defun rlogin-send-Ctrl-backslash ()
   (interactive)
-  (send-string nil "\C-\\"))
+  (process-send-string nil "\C-\\"))
 
 (defun rlogin-delchar-or-send-Ctrl-D (arg)
   "\