procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(get-free-disk-space): Ensure that default-directory is

Browse source 
usable before calling call-process.  Suggested by Kevin
Ryde (Bug#2631).
This commit is contained in:
Chong Yidong 2009-03-15 02:31:45 +00:00
parent 9e127d66de
commit 86c7144b37
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/files.el
View file

@ -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))