X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/7c82f3e23e37cc848a38b1f8be7149fd672a6393..7c6317a0498b6690ea668909ac012cb45e6f809b:/lisp/kermit.el diff --git a/lisp/kermit.el b/lisp/kermit.el index d2a4206163..61651032f1 100644 --- a/lisp/kermit.el +++ b/lisp/kermit.el @@ -1,10 +1,9 @@ ;;; kermit.el --- additions to shell mode for use with kermit -;; Copyright (C) 1988, 2001, 2002, 2003, 2004, 2005, -;; 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc. +;; Copyright (C) 1988, 2001-2016 Free Software Foundation, Inc. ;; Author: Jeff Norden -;; Maintainer: FSF +;; Maintainer: emacs-devel@gnu.org ;; Created: 15 Feb 1988 ;; Keywords: comm @@ -64,7 +63,7 @@ ;; the -c (connect) command line option, which means you also have to specify a ;; line and baud on the command line, as in "kermit -l /dev/tty53 -b 9600 -c". ;; However, this will cause kermit to exit when the connection is closed. So -;; in order to do a file transfer, you have to think ahead and and add -r +;; in order to do a file transfer, you have to think ahead and add -r ;; (receive) to the command line. This means that you can't use the server ;; feature. The only fix I can see is to muck around with the source code for ;; kermit, although this probably wouldn't be too hard. What is needed is an @@ -136,7 +135,7 @@ In this state, use LFD to send a line and end it with a carriage-return." (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''." +command `kermit | tr -d \\='\\015\\=''." (interactive) (set-process-filter (get-buffer-process (current-buffer)) 'kermit-clean-filter))