comparison lisp/kermit.el @ 744:4c7627a869df

*** empty log message ***

743:4c88459587e3

;;; kermit.el --- additions to shell mode for use with kermit, etc.

;;Feb 1988, Jeff Norden - [e-mail]
;; Copyright (C) 1988 Free Software Foundation, Inc.

;; This file is part of GNU Emacs.

      (insert-before-markers str)
      (while (re-search-backware "[\r\C-a]+" beg t)
	(replace-match "")))))

(defun kermit-clean-on ()
  "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)
  (set-process-filter (get-buffer-process (current-buffer))
		      'kermit-clean-filter))

(defun kermit-clean-off ()
  "Cancel a previous kermit-clean-shell-on command."
  (interactive)
  (set-process-filter (get-buffer-process (current-buffer)) nil))

;;; kermit.el ends here

744:4c7627a869df

;;Additions to shell mode for use with kermit, etc.
;;Feb 1988, Jeff Norden - [e-mail]
;; Copyright (C) 1988 Free Software Foundation, Inc.

;; This file is part of GNU Emacs.

      (insert-before-markers str)
      (while (re-search-backware "[\r\C-a]+" beg t)
	(replace-match "")))))

(defun kermit-clean-on ()
  "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)
  (set-process-filter (get-buffer-process (current-buffer))
		      'kermit-clean-filter))

(defun kermit-clean-off ()
  "Cancel a previous kermit-clean-shell-on command."
  (interactive)
  (set-process-filter (get-buffer-process (current-buffer)) nil))