diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2021-11-11 10:58:10 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2021-11-11 10:58:10 +0200 |
| commit | 3020791e77872dbc757beb0ebdd8dbcb5b565f88 (patch) | |
| tree | f47ea16743c33d0d88f820a1a43770e034c9e296 /lisp/ls-lisp.el | |
| parent | f96380eb80c81824a2710b7d9846dd91b816abad (diff) | |
| download | emacs-3020791e77872dbc757beb0ebdd8dbcb5b565f88.tar.gz emacs-3020791e77872dbc757beb0ebdd8dbcb5b565f88.tar.bz2 emacs-3020791e77872dbc757beb0ebdd8dbcb5b565f88.zip | |
Fix files-tests on MS-Windows
* lisp/ls-lisp.el (ls-lisp--insert-directory): Fix free disk space
calculation. (Bug#50630)
* test/lisp/files-tests.el (files-tests-revert-buffer)
(files-tests-revert-buffer-with-fine-grain): Disable locking
files.
Diffstat (limited to 'lisp/ls-lisp.el')
| -rw-r--r-- | lisp/ls-lisp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el index 82153ff0adb..eea8089daa7 100644 --- a/lisp/ls-lisp.el +++ b/lisp/ls-lisp.el @@ -343,7 +343,7 @@ are also supported; unsupported long options are silently ignored." (goto-char (point-min)) ;; First find the line to put it on. (when (re-search-forward "^total" nil t) - (let ((available (get-free-disk-space "."))) + (let ((available (get-free-disk-space orig-file))) (when available ;; Replace "total" with "total used", to avoid confusion. (replace-match "total used in directory") |