diff options
Diffstat (limited to 'lib/doc/jao-doc-session.el')
-rw-r--r-- | lib/doc/jao-doc-session.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/doc/jao-doc-session.el b/lib/doc/jao-doc-session.el index 3eee781..669b191 100644 --- a/lib/doc/jao-doc-session.el +++ b/lib/doc/jao-doc-session.el @@ -48,8 +48,8 @@ (let ((docs '()) (cb (and skip-current (current-buffer)))) (dolist (b (buffer-list)) - (when-let (fn (and (not (eq cb b)) (jao-doc-session-is-doc b))) - (add-to-list 'docs fn))) + (when-let (fs (and (not (eq cb b)) (jao-doc-session-is-doc b))) + (dolist (f fs) (add-to-list 'docs f)))) (when (or force (> (length docs) 0)) (jao-doc-session--save-to-file jao-doc-session-file docs)))) @@ -60,7 +60,9 @@ t)) (defun jao-doc-session-mark (&optional path) - (setq jao-doc-session--is-doc (or path (buffer-file-name))) + (unless (listp jao-doc-session--is-doc) + (setq jao-doc-session--is-doc (ensure-list jao-doc-session--is-doc))) + (cl-pushnew (or path (buffer-file-name)) jao-doc-session--is-doc) (jao-doc-session--save-session)) (defun jao-doc-session--save-1 () |