# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1237084305 0
# Node ID f4063dcd103bf3d883ad6e749fbae4199bd5c793
# Parent  7787d540233a8b9e9dc449511bf6483c6c13e1e9
(get-free-disk-space): Ensure that default-directory is
usable before calling call-process.  Suggested by Kevin
Ryde (Bug#2631).

diff -r 7787d540233a -r f4063dcd103b lisp/files.el
--- a/lisp/files.el	Sun Mar 15 02:29:23 2009 +0000
+++ b/lisp/files.el	Sun Mar 15 02:31:45 2009 +0000
@@ -5336,10 +5336,17 @@
       (save-match-data
 	(with-temp-buffer
 	  (when (and directory-free-space-program
-		     (eq 0 (call-process directory-free-space-program
+		     (let ((default-directory
+			     (if (and (not (file-remote-p default-directory))
+				      (file-directory-p default-directory)
+				      (file-readable-p default-directory))
+				 default-directory
+			       (expand-file-name "~/"))))
+		       (eq (call-process directory-free-space-program
 					 nil t nil
 					 directory-free-space-args
-					 dir)))
+					 dir)
+			   0)))
 	    ;; Usual format is a header line followed by a line of
 	    ;; numbers.
 	    (goto-char (point-min))