multisession variables instead of persist

1 files changed, 4 insertions, 4 deletions

diff --git a/lib/doc/jao-doc-session.el b/lib/doc/jao-doc-session.el
index b54a942..cea9356 100644
--- a/lib/doc/jao-doc-session.el
+++ b/lib/doc/jao-doc-session.el
@@ -20,7 +20,9 @@
 
 ;;; Code:
 
-(persist-defvar jao-doc-session nil "Documents session")
+(define-multisession-variable jao-doc-session "Documents session")
+
+(defun jao-doc-session () (multisession-value jao-doc-session))
 
 (defvar-local jao-doc-session-is-doc nil
   "Setting this variable as t in a buffer will mark it as belonging to a session.
@@ -31,8 +33,6 @@ See also `jao-doc-session-mark'.")
   "Check whether the given or current buffer belong to the doc session."
   (buffer-local-value 'jao-doc-session-is-doc (or buffer (current-buffer))))
 
-(defun jao-doc-session (&optional file) jao-doc-session)
-
 (defun jao-doc-session-save (&optional skip-current force)
   "Traverse all current buffers and update the value of `jao-doc-session'."
   (interactive)
@@ -43,7 +43,7 @@ See also `jao-doc-session-mark'.")
                   (fs (if (listp fs) fs (list (buffer-file-name b)))))
         (dolist (f fs) (add-to-list 'docs f))))
     (when (or force (> (length docs) 0))
-      (setq jao-doc-session docs))))
+      (setf (jao-doc-session) docs))))
 
 (defun jao-doc-session-mark (&optional path)
   "Mark the current buffer's file, or PATH, as persistent across sessions."