Mercurial > emacs
comparison lisp/ange-ftp.el @ 15872:244a4779d1b5
(ange-ftp-process-filter): Discard nulls.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 16 Aug 1996 17:21:31 +0000 |
| parents | 4bc8e9119883 |
| children | 58742d1b996a |
comparison
equal
deleted
inserted
replaced
| 15871:4904f9f8bf41 | 15872:244a4779d1b5 |
|---|---|
| 1489 ;; on to ange-ftp-process-handle-line to deal with. | 1489 ;; on to ange-ftp-process-handle-line to deal with. |
| 1490 | 1490 |
| 1491 (defun ange-ftp-process-filter (proc str) | 1491 (defun ange-ftp-process-filter (proc str) |
| 1492 (let ((buffer (process-buffer proc)) | 1492 (let ((buffer (process-buffer proc)) |
| 1493 (old-buffer (current-buffer))) | 1493 (old-buffer (current-buffer))) |
| 1494 | |
| 1495 ;; Eliminate nulls. | |
| 1496 (while (string-match "\000+" str) | |
| 1497 (setq str (replace-match "" nil nil str))) | |
| 1494 | 1498 |
| 1495 ;; see if the buffer is still around... it could have been deleted. | 1499 ;; see if the buffer is still around... it could have been deleted. |
| 1496 (if (buffer-name buffer) | 1500 (if (buffer-name buffer) |
| 1497 (unwind-protect | 1501 (unwind-protect |
| 1498 (progn | 1502 (progn |