scratch/sqlite 7e7d51a 2/2: Put into a directory structure to prepare for other backends

[Lars Ingebrigtsen]

branch: scratch/sqlite
commit 7e7d51ab5365da3043a3d82cc397e4ceb79a04bd
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Put into a directory structure to prepare for other backends
---
 lisp/emacs-lisp/multisession.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/multisession.el b/lisp/emacs-lisp/multisession.el
index 52a38d6..b3119e7 100644
--- a/lisp/emacs-lisp/multisession.el
+++ b/lisp/emacs-lisp/multisession.el
@@ -28,7 +28,8 @@
 (require 'sqlite)
 
 (defcustom multisession-database-file
-  (expand-file-name "multisession.sqlite" user-emacs-directory)
+  (expand-file-name "multisession/sqlite/multisession.sqlite"
+                    user-emacs-directory)
   "File to store multisession variables."
   :type 'file
   :version "29.1"
@@ -77,6 +78,9 @@ DOC should be a doc string, and ARGS are keywords as 
applicable to
 
 (defun multisession--ensure-db ()
   (unless multisession--db
+    (let ((dir (file-name-directory multisession-database-file)))
+      (unless (file-exists-p dir)
+        (make-directory dir t)))
     (setq multisession--db (sqlite-open multisession-database-file))
     (with-sqlite-transaction multisession--db
       (unless (sqlite-select