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

diff --git a/lisp/rlogin.el b/lisp/rlogin.el
index 28d09028038373c5f1dc71c6c09b33b27ea4bdac..acb7ed9d091c370df40f1f494eabe57861ac40df 100644 (file)
--- 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