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:
parent
f467e98486
commit
bbdbc4effb
1 changed files with 5 additions and 5 deletions
|
|
@ -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)
|
||||
"\
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue