From 17b85a9b30e38659f1703ef16a84a106d2f345df Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 4 Mar 1994 01:33:43 +0000 Subject: [PATCH] (ange-ftp-nslookup-host, ange-ftp-start-process): Bind default-directory to some accessible directory, if necessary. --- lisp/ange-ftp.el | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 54b30035d23..2d2cd2fa296 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -857,7 +857,7 @@ SIZE, if supplied, should be a prime number." ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.41 $") +(defconst ange-ftp-version "$Revision: 1.42 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") @@ -1726,7 +1726,11 @@ been queued with no result. CONT will still be called, however." "Attempt to resolve the given HOSTNAME using nslookup if possible." (interactive "sHost: ") (if ange-ftp-nslookup-program - (let ((proc (start-process " *nslookup*" " *nslookup*" + (let ((default-directory + (if (file-accessible-directory-p default-directory) + default-directory + exec-directory)) + (proc (start-process " *nslookup*" " *nslookup*" ange-ftp-nslookup-program host)) (res host)) (process-kill-without-query proc) @@ -1751,6 +1755,10 @@ on the gateway machine to do the ftp instead." ange-ftp-gateway-ftp-program-name ange-ftp-ftp-program-name)) (args (append (list ftp-prog) ange-ftp-ftp-program-args)) + (default-directory + (if (file-accessible-directory-p default-directory) + default-directory + exec-directory)) proc) (if use-gateway (if ange-ftp-gateway-program-interactive -- 2.39.5