From d066d39b85cbd5e96240e481b7a8948e05779de2 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 15 Mar 2009 02:31:45 +0000 Subject: [PATCH] (get-free-disk-space): Ensure that default-directory is usable before calling call-process. Suggested by Kevin Ryde (Bug#2631). --- lisp/files.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index 00207d63b24..eb7fe021e4b 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -5336,10 +5336,17 @@ program specified by `directory-free-space-program' if that is non-nil." (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)) -- 2.11.4.GIT