From: Roland McGrath <roland@gnu.org>
Date: Sat, 5 Feb 1994 21:13:43 +0000 (+0000)
Subject: (rlogin-delchar-or-send-Ctrl-D): Call rlogin-send-Ctrl-D.  Doc fix.
X-Git-Tag: emacs-19.34~10058
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=057795ba2b8c08ad49968640f93cd858e8efb499;p=emacs.git

(rlogin-delchar-or-send-Ctrl-D): Call rlogin-send-Ctrl-D.  Doc fix.
---

diff --git a/lisp/rlogin.el b/lisp/rlogin.el
index 28d09028038..acb7ed9d091 100644
--- a/lisp/rlogin.el
+++ b/lisp/rlogin.el
@@ -23,7 +23,7 @@
 ;;; Commentary:
 
 ;; Support for remote logins using `rlogin'.
-;; $Id: rlogin.el,v 1.15 1993/12/01 13:04:24 friedman Exp roland $
+;; $Id: rlogin.el,v 1.16 1994/02/05 21:00:13 roland Exp roland $
 
 ;;; Todo:
 
@@ -209,11 +209,11 @@ If `rlogin-mode-hook' is set, run it."
   (send-string nil "\C-\\"))
 
 (defun rlogin-delchar-or-send-Ctrl-D (arg)
-  "Delete ARG characters forward, or send a C-d to process if at end of
-buffer."  
+  "\
+Delete ARG characters forward, or send a C-d to process if at end of buffer."  
   (interactive "p") 
   (if (eobp)
-      (send-string nil "\C-d")
+      (rlogin-send-Ctrl-D)
     (delete-char arg)))
 
 ;;; rlogin.el ends here