* lisp/files.el (get-free-disk-space): Wrap body with `save-match-data'.

Several `*-insert-directory' functions could fail otherwise.

diff --git a/lisp/files.el b/lisp/files.el
index 91aa95d631cc3c3a610a008e12d73fac512b67ce..75d3b7b1e729a940102ef0883d2863bb39e35626 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -6473,9 +6473,10 @@ The return value is a string describing the amount of free
 space (normally, the number of free 1KB blocks).
 
 If DIR's free space cannot be obtained, this function returns nil."
-  (let ((avail (nth 2 (file-system-info dir))))
-    (if avail
-       (format "%.0f" (/ avail 1024)))))
+  (save-match-data
+    (let ((avail (nth 2 (file-system-info dir))))
+      (if avail
+         (format "%.0f" (/ avail 1024))))))
 
 ;; The following expression replaces `dired-move-to-filename-regexp'.
 (defvar directory-listing-before-filename-regexp