scratch/sqlite 1fd05f2 1/2: Allow passing in the storage

[Lars Ingebrigtsen]

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

    Allow passing in the storage
---
 lisp/emacs-lisp/multisession.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/multisession.el b/lisp/emacs-lisp/multisession.el
index 20412e6..cd33f1e 100644
--- a/lisp/emacs-lisp/multisession.el
+++ b/lisp/emacs-lisp/multisession.el
@@ -77,7 +77,8 @@ DOC should be a doc string, and ARGS are keywords as 
applicable to
   (cached-value multisession--unbound)
   (cached-sequence 0))
 
-(cl-defun make-multisession (&key key initial-value package synchronized)
+(cl-defun make-multisession (&key key initial-value package synchronized
+                                  storage)
   "Create a multisession object."
   (unless package
     (error "No package for the multisession object"))
@@ -91,7 +92,8 @@ DOC should be a doc string, and ARGS are keywords as 
applicable to
    :key key
    :synchronized synchronized
    :initial-value initial-value
-   :package package))
+   :package package
+   :storage (or storage multisession-storage)))
 
 (defun multisession-value (object)
   "Return the value of the multisession OBJECT."