Mercurial > emacs
comparison lisp/files.el @ 104707:016c8ff34021
(get-free-disk-space): Use / for default-directory.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Sat, 29 Aug 2009 14:58:15 +0000 |
parents | 09131c4d5568 |
children | 2362371c57c2 |
comparison
equal
deleted
inserted
replaced
104706:76a2a2b0cf04 | 104707:016c8ff34021 |
---|---|
5375 ;; always have df, but might have an equivalent system call. | 5375 ;; always have df, but might have an equivalent system call. |
5376 (if (fboundp 'file-system-info) | 5376 (if (fboundp 'file-system-info) |
5377 (let ((fsinfo (file-system-info dir))) | 5377 (let ((fsinfo (file-system-info dir))) |
5378 (if fsinfo | 5378 (if fsinfo |
5379 (format "%.0f" (/ (nth 2 fsinfo) 1024)))) | 5379 (format "%.0f" (/ (nth 2 fsinfo) 1024)))) |
5380 (setq dir (expand-file-name dir)) | |
5380 (save-match-data | 5381 (save-match-data |
5381 (with-temp-buffer | 5382 (with-temp-buffer |
5382 (when (and directory-free-space-program | 5383 (when (and directory-free-space-program |
5383 ;; Avoid failure if the default directory does | 5384 ;; Avoid failure if the default directory does |
5384 ;; not exist (Bug#2631, Bug#3911). | 5385 ;; not exist (Bug#2631, Bug#3911). |
5385 (let ((default-directory default-directory)) | 5386 (let ((default-directory "/") |
5386 (setq dir (expand-file-name dir)) | |
5387 (unless (and (not (file-remote-p default-directory)) | |
5388 (file-directory-p default-directory) | |
5389 (file-readable-p default-directory)) | |
5390 (setq default-directory "/")) | |
5391 (eq (call-process directory-free-space-program | 5387 (eq (call-process directory-free-space-program |
5392 nil t nil | 5388 nil t nil |
5393 directory-free-space-args | 5389 directory-free-space-args |
5394 dir) | 5390 dir) |
5395 0))) | 5391 0))) |