ellie.el: disable lock files in fwrite to fix hang on FUSE
This commit is contained in:
parent
051e372ae4
commit
660a36d2b1
13
ellie.el
13
ellie.el
|
|
@ -114,11 +114,14 @@ Signals `user-error' if no session is active."
|
||||||
|
|
||||||
(defun ellie--fwrite (path text)
|
(defun ellie--fwrite (path text)
|
||||||
"Write TEXT to PATH, retrying after remount on failure."
|
"Write TEXT to PATH, retrying after remount on failure."
|
||||||
(condition-case nil
|
(let ((create-lockfiles nil)
|
||||||
(write-region text nil path nil 'silent)
|
(write-region-inhibit-fsync t)
|
||||||
(file-error
|
(file-precious-flag nil))
|
||||||
(ellie--remount)
|
(condition-case nil
|
||||||
(write-region text nil path nil 'silent))))
|
(write-region text nil path nil 'silent nil nil)
|
||||||
|
(file-error
|
||||||
|
(ellie--remount)
|
||||||
|
(write-region text nil path nil 'silent nil nil)))))
|
||||||
|
|
||||||
(defun ellie--fread (path)
|
(defun ellie--fread (path)
|
||||||
"Return the contents of PATH as a string, retrying after remount on failure."
|
"Return the contents of PATH as a string, retrying after remount on failure."
|
||||||
|
|
|
||||||
Reference in New Issue