branch: externals/compat
commit 36ef4381962d6a2d0d48e7bebd584e0ab8a3f98a
Author: Philip Kaludercic <phil...@posteo.net>
Commit: Philip Kaludercic <phil...@posteo.net>
Implement and use mounted-file-systems
---
compat-26.1.el | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/compat-26.1.el b/compat-26.1.el
index 523dccd..465e136 100644
--- a/compat-26.1.el
+++ b/compat-26.1.el
@@ -279,6 +279,14 @@ same meaning as in `make-temp-file'."
(let ((temporary-file-directory (temporary-file-directory)))
(make-temp-file prefix dir-flag suffix)))))
+(compat-defvar mounted-file-systems
+ (eval-when-compile
+ (if (memq system-type '(windows-nt cygwin))
+ "^//[^/]+/"
+ (concat
+ "^" (regexp-opt '("/afs/" "/media/" "/mnt" "/net/" "/tmp_mnt/")))))
+ "File systems that ought to be mounted.")
+
(compat-defun temporary-file-directory ()
"The directory for writing temporary files.
In case of a remote `default-directory', this is a directory for
@@ -292,7 +300,7 @@ the variable `temporary-file-directory' is returned."
default-directory 'temporary-file-directory)))
(if handler
(funcall handler 'temporary-file-directory)
- (if (string-match mounted-file-systems default-directory)
+ (if (string-match compat--mounted-file-systems default-directory)
default-directory
temporary-file-directory))))
