diff options
author | Jim Blandy <jimb@redhat.com> | 1992-08-04 04:15:43 +0000 |
---|---|---|
committer | Jim Blandy <jimb@redhat.com> | 1992-08-04 04:15:43 +0000 |
commit | c4ea28b3e90c54717a64729ed29d18736a76c6a7 (patch) | |
tree | ce3d5522aecb19af9cfcd78d2edfe4cdf40d39e0 /lisp/kermit.el | |
parent | d822e0eedf0ca4c60681b94b0f810370f8e603d4 (diff) | |
download | emacs-c4ea28b3e90c54717a64729ed29d18736a76c6a7.tar.gz |
entered into RCS
Diffstat (limited to 'lisp/kermit.el')
-rw-r--r-- | lisp/kermit.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/kermit.el b/lisp/kermit.el index e894f908bd2..66f9c18414a 100644 --- a/lisp/kermit.el +++ b/lisp/kermit.el @@ -100,7 +100,8 @@ (defun kermit-send-input-cr () "Like \\[comint-send-input] but end the line with carriage-return." (interactive) - (comint-send-input "\r")) + (comint-send-input) + (comint-send-string (get-buffer-process (current-buffer)) "\r")) ;; This is backwards of what makes sense, but ... (define-key shell-mode-map "\n" 'kermit-send-input-cr) @@ -127,11 +128,11 @@ In this state, use LFD to send a line and end it with a carriage-return." (set-buffer (process-buffer proc)) (goto-char beg) (insert-before-markers str) - (while (re-search-backware "[\r\C-a]+" beg t) + (while (re-search-backward "[\r\C-a]+" beg t) (replace-match ""))))) (defun kermit-clean-on () - "Delete all null characters and ^M's from the kermit output." + "Delete all null characters and ^M's from the kermit output. Note that another (perhaps better) way to do this is to use the command `kermit | tr -d '\\015''." (interactive) |