diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-13 17:13:12 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-13 17:13:12 +0200 |
commit | e6b40fe511f86524c0e1aa84abc9aef1cab5d706 (patch) | |
tree | d01c82ce0a8a40971d8869ac24523a207e3f7ec7 /lisp/savehist.el | |
parent | 82e799f71d454367e71782df1e4b0440681334cb (diff) | |
download | emacs-e6b40fe511f86524c0e1aa84abc9aef1cab5d706.tar.gz |
Don't have savehist-save bug out on non-existing directory
* lisp/savehist.el (savehist-save): Ensure that the directory
exists before saving (bug#31348).
Diffstat (limited to 'lisp/savehist.el')
-rw-r--r-- | lisp/savehist.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/savehist.el b/lisp/savehist.el index 7e6ccd91c72..83591310829 100644 --- a/lisp/savehist.el +++ b/lisp/savehist.el @@ -299,7 +299,11 @@ If AUTO-SAVE is non-nil, compare the saved contents to the one last saved, ;; kill-emacs-hook, and also that multiple Emacs instances ;; could write to this file at once. (let ((file-precious-flag t) - (coding-system-for-write savehist-coding-system)) + (coding-system-for-write savehist-coding-system) + (dir (file-name-directory savehist-file))) + ;; Ensure that the directory exists before saving. + (unless (file-exists-p dir) + (make-directory dir t)) (write-region (point-min) (point-max) savehist-file nil (unless (called-interactively-p 'interactive) 'quiet))) (when savehist-file-modes |