[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/sqlite 7e7d51a 2/2: Put into a directory structure to prepare fo
From: |
Lars Ingebrigtsen |
Subject: |
scratch/sqlite 7e7d51a 2/2: Put into a directory structure to prepare for other backends |
Date: |
Mon, 13 Dec 2021 19:26:28 -0500 (EST) |
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