diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2021-12-17 14:41:16 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2021-12-17 14:41:16 +0200 |
| commit | ccb602836426f1fc2e43fa3506427744668f24c6 (patch) | |
| tree | b63e4ade67250cc7428f673b31884598d2d03022 | |
| parent | efdfe22704581dca8bc8b32672f7b5ae142f1fd5 (diff) | |
| download | emacs-ccb602836426f1fc2e43fa3506427744668f24c6.tar.gz | |
Improve multisession test results on MS-Windows
* lisp/emacs-lisp/multisession.el
(multisession--backend-set-value): Force 'fsync'ing the temporary
file.
| -rw-r--r-- | lisp/emacs-lisp/multisession.el | 3 |
1 files changed, 2 insertions, 1 deletions
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))) |