diff 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
line wrap: on
line diff
--- a/lisp/ange-ftp.el	Fri Mar 04 01:08:34 1994 +0000
+++ b/lisp/ange-ftp.el	Fri Mar 04 01:33:43 1994 +0000
@@ -857,7 +857,7 @@
 ;;;; 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 @@
   "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 @@
 		       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