Mercurial > emacs
comparison lisp/ange-ftp.el @ 22406:d893285c4d8a
(ange-ftp-expand-dir): Use null-device.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 09 Jun 1998 02:53:29 +0000 |
| parents | 13df619ccc57 |
| children | a9b9f92d0f4d |
comparison
equal
deleted
inserted
replaced
| 22405:9a8440593987 | 22406:d893285c4d8a |
|---|---|
| 2961 (not (eq host-type 'unix)) | 2961 (not (eq host-type 'unix)) |
| 2962 (let* ((ange-ftp-good-msgs (concat ange-ftp-expand-dir-regexp | 2962 (let* ((ange-ftp-good-msgs (concat ange-ftp-expand-dir-regexp |
| 2963 "\\|" | 2963 "\\|" |
| 2964 ange-ftp-good-msgs)) | 2964 ange-ftp-good-msgs)) |
| 2965 (result (ange-ftp-send-cmd host user | 2965 (result (ange-ftp-send-cmd host user |
| 2966 (list 'get dir grep-null-device) | 2966 (list 'get dir null-device) |
| 2967 (format "expanding %s" dir))) | 2967 (format "expanding %s" dir))) |
| 2968 (line (cdr result))) | 2968 (line (cdr result))) |
| 2969 (setq res | 2969 (setq res |
| 2970 (if (string-match ange-ftp-expand-dir-regexp line) | 2970 (if (string-match ange-ftp-expand-dir-regexp line) |
| 2971 (substring line | 2971 (substring line |