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 | 2de8dc2fac57817ad9f56701c65c53cb0349ff61 (patch) | |
tree | 2a4e4b8247adc0d2214c0e4aba2e3bbe19d769aa /lisp/rlogin.el | |
parent | 19532eb34c089931b7cc60b74924d8d1b2040ffa (diff) | |
download | emacs-2de8dc2fac57817ad9f56701c65c53cb0349ff61.tar.gz |
(rlogin-delchar-or-send-Ctrl-D): Call rlogin-send-Ctrl-D. Doc fix.
Diffstat (limited to 'lisp/rlogin.el')
-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 |