Merge remote-tracking branch 'upstream/patch_fix_bookmark_save_crash_when_dir_missing...

[elpher.git] / elpher.el

diff --git a/elpher.el b/elpher.el
index 72bba89..5ce6992 100644 (file)
--- a/elpher.el
+++ b/elpher.el
@@ -1638,6 +1638,9 @@ bookmark list, while URL is the url of the entry."
 (defun elpher-save-bookmarks (bookmarks)
   "Record the bookmark list BOOKMARKS to the user's bookmark file.
 Beware that this completely replaces the existing contents of the file."
+  (let ((bookmark-dir (file-name-directory elpher-bookmarks-file)))
+    (unless (file-directory-p bookmark-dir)
+      (make-directory bookmark-dir)))
   (with-temp-file elpher-bookmarks-file
     (erase-buffer)
     (insert "; Elpher bookmarks file\n\n"