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 3a397f812ec263c6ed186d19f3a64b3d583da9a9..b113ff32f2ff2a98a3e528a74b12b7c975729d06 100644 (file)
--- 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))))))))))