diff options
| author | Roland McGrath <roland@gnu.org> | 1994-02-05 21:13:43 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1994-02-05 21:13:43 +0000 |
| commit | 057795ba2b8c08ad49968640f93cd858e8efb499 (patch) | |
| tree | b1214963f04f19d10098cf156ae25ee62f665474 | |
| parent | 099dcd39f3b347a085407638df8085b64634c89b (diff) | |
| download | emacs-057795ba2b8c08ad49968640f93cd858e8efb499.tar.gz | |
(rlogin-delchar-or-send-Ctrl-D): Call rlogin-send-Ctrl-D. Doc fix.
| -rw-r--r-- | lisp/rlogin.el | 8 |
1 files changed, 4 insertions, 4 deletions
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 |