Mercurial > emacs
comparison lisp/ange-ftp.el @ 6192:b7fa2446073e
(ange-ftp-nslookup-host, ange-ftp-start-process):
Bind default-directory to some accessible directory, if necessary.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 04 Mar 1994 01:33:43 +0000 |
| parents | ec9477c8db1d |
| children | 9217f29851c2 |
comparison
equal
deleted
inserted
replaced
| 6191:84fc456177e2 | 6192:b7fa2446073e |
|---|---|
| 855 | 855 |
| 856 ;;;; ------------------------------------------------------------ | 856 ;;;; ------------------------------------------------------------ |
| 857 ;;;; Internal variables. | 857 ;;;; Internal variables. |
| 858 ;;;; ------------------------------------------------------------ | 858 ;;;; ------------------------------------------------------------ |
| 859 | 859 |
| 860 (defconst ange-ftp-version "$Revision: 1.41 $") | 860 (defconst ange-ftp-version "$Revision: 1.42 $") |
| 861 | 861 |
| 862 (defvar ange-ftp-data-buffer-name " *ftp data*" | 862 (defvar ange-ftp-data-buffer-name " *ftp data*" |
| 863 "Buffer name to hold directory listing data received from ftp process.") | 863 "Buffer name to hold directory listing data received from ftp process.") |
| 864 | 864 |
| 865 (defvar ange-ftp-netrc-modtime nil | 865 (defvar ange-ftp-netrc-modtime nil |
| 1724 | 1724 |
| 1725 (defun ange-ftp-nslookup-host (host) | 1725 (defun ange-ftp-nslookup-host (host) |
| 1726 "Attempt to resolve the given HOSTNAME using nslookup if possible." | 1726 "Attempt to resolve the given HOSTNAME using nslookup if possible." |
| 1727 (interactive "sHost: ") | 1727 (interactive "sHost: ") |
| 1728 (if ange-ftp-nslookup-program | 1728 (if ange-ftp-nslookup-program |
| 1729 (let ((proc (start-process " *nslookup*" " *nslookup*" | 1729 (let ((default-directory |
| 1730 (if (file-accessible-directory-p default-directory) | |
| 1731 default-directory | |
| 1732 exec-directory)) | |
| 1733 (proc (start-process " *nslookup*" " *nslookup*" | |
| 1730 ange-ftp-nslookup-program host)) | 1734 ange-ftp-nslookup-program host)) |
| 1731 (res host)) | 1735 (res host)) |
| 1732 (process-kill-without-query proc) | 1736 (process-kill-without-query proc) |
| 1733 (save-excursion | 1737 (save-excursion |
| 1734 (set-buffer (process-buffer proc)) | 1738 (set-buffer (process-buffer proc)) |
| 1749 (let* ((use-gateway (ange-ftp-use-gateway-p host)) | 1753 (let* ((use-gateway (ange-ftp-use-gateway-p host)) |
| 1750 (ftp-prog (if use-gateway | 1754 (ftp-prog (if use-gateway |
| 1751 ange-ftp-gateway-ftp-program-name | 1755 ange-ftp-gateway-ftp-program-name |
| 1752 ange-ftp-ftp-program-name)) | 1756 ange-ftp-ftp-program-name)) |
| 1753 (args (append (list ftp-prog) ange-ftp-ftp-program-args)) | 1757 (args (append (list ftp-prog) ange-ftp-ftp-program-args)) |
| 1758 (default-directory | |
| 1759 (if (file-accessible-directory-p default-directory) | |
| 1760 default-directory | |
| 1761 exec-directory)) | |
| 1754 proc) | 1762 proc) |
| 1755 (if use-gateway | 1763 (if use-gateway |
| 1756 (if ange-ftp-gateway-program-interactive | 1764 (if ange-ftp-gateway-program-interactive |
| 1757 (setq proc (ange-ftp-gwp-start host user name args)) | 1765 (setq proc (ange-ftp-gwp-start host user name args)) |
| 1758 (setq proc (apply 'start-process name name | 1766 (setq proc (apply 'start-process name name |