# HG changeset patch # User Noah Friedman # Date 907375466 0 # Node ID e2d1e65624332b986f70f2034ff9565bc7a467b1 # Parent 7ded3a5044abc83c8c633b50924c2932f583c20e (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 -r 7ded3a5044ab -r e2d1e6562433 lisp/rlogin.el --- a/lisp/rlogin.el Fri Oct 02 18:11:14 1998 +0000 +++ b/lisp/rlogin.el Sat Oct 03 00:44:26 1998 +0000 @@ -6,7 +6,7 @@ ;; Maintainer: Noah Friedman ;; 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 @@ (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) "\