# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 840216091 0
# Node ID 244a4779d1b597ead86c3be26426373092a10889
# Parent  4904f9f8bf41a7cb403486e9a5b1098f085bef41
(ange-ftp-process-filter): Discard nulls.

diff -r 4904f9f8bf41 -r 244a4779d1b5 lisp/ange-ftp.el
--- 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