From: John Cummings <john@rootabega.net>
Date: Thu, 16 Sep 2021 23:00:50 +0000 (+0000)
Subject: Fix disk-free info in 'insert-directory'
X-Git-Tag: emacs-28.0.90~912
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b95157de2dcd402185927baf61ce114f554a66e2;p=emacs.git

Fix disk-free info in 'insert-directory'

* lisp/files.el (insert-directory): Call 'get-free-disk-space'
with the argument FILE, to make sure the reported info is for the
correct volume.  (Bug#50630)

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/files.el b/lisp/files.el
index 3a397f812ec..b113ff32f2f 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -7615,7 +7615,7 @@ normally equivalent short `-D' option is just passed on to
 		  ;; Replace "total" with "total used in directory" to
 		  ;; avoid confusion.
 		  (replace-match "total used in directory" nil nil nil 1)
-		  (let ((available (get-free-disk-space ".")))
+		  (let ((available (get-free-disk-space file)))
 		    (when available
 		      (end-of-line)
 		      (insert " available " available))))))))))