diff --git a/ChangeLog b/ChangeLog index 959730b6df011af434010a8a115f566f3a210c2c_Q2hhbmdlTG9n..ba8448fb1eda8f33eb6bc15f6d847dfbb402efea_Q2hhbmdlTG9n 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1998-07-14 SL Baur <steve@altair.xemacs.org> + + * rlogin.el: Global replace send-string -> process-send-string. + * ssh.el: Ditto. + 1998-06-07 Tomasz Cholewo <tjchol01@aivo.spd.louisville.edu> * jka-compr.el (jka-compr-partial-uncompress): Fix integer in concat. diff --git a/Makefile b/Makefile index 959730b6df011af434010a8a115f566f3a210c2c_TWFrZWZpbGU=..ba8448fb1eda8f33eb6bc15f6d847dfbb402efea_TWFrZWZpbGU= 100644 --- a/Makefile +++ b/Makefile @@ -19,7 +19,7 @@ # This XEmacs package contains independent single file lisp packages -VERSION = 1.08 +VERSION = 1.09 AUTHOR_VERSION = MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org> PACKAGE = os-utils diff --git a/rlogin.el b/rlogin.el index 959730b6df011af434010a8a115f566f3a210c2c_cmxvZ2luLmVs..ba8448fb1eda8f33eb6bc15f6d847dfbb402efea_cmxvZ2luLmVs 100644 --- a/rlogin.el +++ b/rlogin.el @@ -336,7 +336,7 @@ (defun rlogin-send-Ctrl-C () (interactive) - (send-string nil "\C-c")) + (process-send-string nil "\C-c")) (defun rlogin-send-Ctrl-D () (interactive) @@ -340,7 +340,7 @@ (defun rlogin-send-Ctrl-D () (interactive) - (send-string nil "\C-d")) + (process-send-string nil "\C-d")) (defun rlogin-send-Ctrl-Z () (interactive) @@ -344,7 +344,7 @@ (defun rlogin-send-Ctrl-Z () (interactive) - (send-string nil "\C-z")) + (process-send-string nil "\C-z")) (defun rlogin-send-Ctrl-backslash () (interactive) @@ -348,7 +348,7 @@ (defun rlogin-send-Ctrl-backslash () (interactive) - (send-string nil "\C-\\")) + (process-send-string nil "\C-\\")) (defun rlogin-delchar-or-send-Ctrl-D (arg) "\ diff --git a/ssh.el b/ssh.el index 959730b6df011af434010a8a115f566f3a210c2c_c3NoLmVs..ba8448fb1eda8f33eb6bc15f6d847dfbb402efea_c3NoLmVs 100644 --- a/ssh.el +++ b/ssh.el @@ -326,7 +326,7 @@ (defun ssh-send-Ctrl-C () (interactive) - (send-string nil "\C-c")) + (process-send-string nil "\C-c")) (defun ssh-send-Ctrl-D () (interactive) @@ -330,7 +330,7 @@ (defun ssh-send-Ctrl-D () (interactive) - (send-string nil "\C-d")) + (process-send-string nil "\C-d")) (defun ssh-send-Ctrl-Z () (interactive) @@ -334,7 +334,7 @@ (defun ssh-send-Ctrl-Z () (interactive) - (send-string nil "\C-z")) + (process-send-string nil "\C-z")) (defun ssh-send-Ctrl-backslash () (interactive) @@ -338,7 +338,7 @@ (defun ssh-send-Ctrl-backslash () (interactive) - (send-string nil "\C-\\")) + (process-send-string nil "\C-\\")) (defun ssh-delchar-or-send-Ctrl-D (arg) "\