Improve multisession test results on MS-Windows

* lisp/emacs-lisp/multisession.el
(multisession--backend-set-value): Force 'fsync'ing the temporary
file.

diff --git a/lisp/emacs-lisp/multisession.el b/lisp/emacs-lisp/multisession.el
index 07671114346288512cf93ea2d8d1afbcc605985a..ac67af40004e16946d3dd781c87e361803609fbf 100644 (file)
--- 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)))