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 | e8a57935cbb4ccde7f621eeeca22141e5a5327b4 (patch) | |
| tree | cb90c678fa9e79cf41c1b6a22d62b620aaf0e07f /lisp/kermit.el | |
| parent | 0b030df78b499fde5f8dd3f20dd24a2e002fe4ee (diff) | |
| download | emacs-e8a57935cbb4ccde7f621eeeca22141e5a5327b4.tar.gz emacs-e8a57935cbb4ccde7f621eeeca22141e5a5327b4.tar.bz2 emacs-e8a57935cbb4ccde7f621eeeca22141e5a5327b4.zip | |
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) |