mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Eric S. Raymond 1992-07-06 21:01:07 +00:00
parent abeffda95a
commit 94074b1950
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/kermit.el
View File

@ -1,5 +1,4 @@
;;; kermit.el --- additions to shell mode for use with kermit, etc.
;;Additions to shell mode for use with kermit, etc.
;;Feb 1988, Jeff Norden - jeff@colgate.csnet
;; Copyright (C) 1988 Free Software Foundation, Inc.
@ -125,9 +124,9 @@ In this state, use LFD to send a line and end it with a carriage-return."
(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'\"."
command `kermit | tr -d '\\015''."
(interactive)
(set-process-filter (get-buffer-process (current-buffer))
'kermit-clean-filter))
@ -137,4 +136,4 @@ command \"kermit | tr -d '\\015'\"."
(interactive)
(set-process-filter (get-buffer-process (current-buffer)) nil))
;;; kermit.el ends here