Mercurial > emacs
changeset 23369:e2d1e6562433
(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.
author | Noah Friedman <friedman@splode.com> |
---|---|
date | Sat, 03 Oct 1998 00:44:26 +0000 |
parents | 7ded3a5044ab |
children | 7addb1da4b2b |
files | lisp/rlogin.el |
diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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 <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 @@ (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) "\