# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 760482823 0
# Node ID 85abf27f701f0a159872fc9a664aad129a8d9a2a
# Parent  242985a124fc1273304e19a479b41375eb122f0e
(rlogin-delchar-or-send-Ctrl-D): Call rlogin-send-Ctrl-D.  Doc fix.

diff -r 242985a124fc -r 85abf27f701f lisp/rlogin.el
--- a/lisp/rlogin.el	Sat Feb 05 21:00:13 1994 +0000
+++ b/lisp/rlogin.el	Sat Feb 05 21:13:43 1994 +0000
@@ -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 @@
   (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