Mercurial > emacs

changeset 15872:244a4779d1b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ange-ftp-process-filter): Discard nulls.
author Richard M. Stallman <rms@gnu.org>
date Fri, 16 Aug 1996 17:21:31 +0000
parents 4904f9f8bf41
children 77950cb46314
files lisp/ange-ftp.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ange-ftp.el	Fri Aug 16 05:09:09 1996 +0000
+++ b/lisp/ange-ftp.el	Fri Aug 16 17:21:31 1996 +0000
@@ -1492,6 +1492,10 @@
   (let ((buffer (process-buffer proc))
 	(old-buffer (current-buffer)))
 
+    ;; Eliminate nulls.
+    (while (string-match "\000+" str)
+      (setq str (replace-match "" nil nil str))) 
+
     ;; see if the buffer is still around... it could have been deleted.
     (if (buffer-name buffer)
 	(unwind-protect