1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 20:32:00 -08:00

(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.
This commit is contained in:
Noah Friedman 1998-10-03 00:44:26 +00:00
parent f467e98486
commit bbdbc4effb

View file

@ -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)
"\