From ccb602836426f1fc2e43fa3506427744668f24c6 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 17 Dec 2021 14:41:16 +0200 Subject: [PATCH] Improve multisession test results on MS-Windows * lisp/emacs-lisp/multisession.el (multisession--backend-set-value): Force 'fsync'ing the temporary file. --- lisp/emacs-lisp/multisession.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/multisession.el b/lisp/emacs-lisp/multisession.el index 07671114346..ac67af40004 100644 --- a/lisp/emacs-lisp/multisession.el +++ b/lisp/emacs-lisp/multisession.el @@ -321,7 +321,8 @@ DOC should be a doc string, and ARGS are keywords as applicable to ;; file for somewhat better atomicity. (let ((coding-system-for-write 'utf-8) (create-lockfiles nil) - (temp (make-temp-name file))) + (temp (make-temp-name file)) + (write-region-inhibit-fsync nil)) (write-region (point-min) (point-max) temp nil 'silent) (set-file-times temp time) (rename-file temp file t))) -- 2.39.5