diff options
| author | jao <jao@gnu.org> | 2022-09-01 04:07:54 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-09-01 04:07:54 +0100 |
| commit | 68d9a048cdd05d19fe79f87a2ec32dde14fd282b (patch) | |
| tree | 443cd9e5bbbc201ad2add60df306f8173e8c375b /lib/doc/jao-doc-session.el | |
| parent | 83d903b05d311f1811cdab188775a665f173600e (diff) | |
| download | elibs-68d9a048cdd05d19fe79f87a2ec32dde14fd282b.tar.gz elibs-68d9a048cdd05d19fe79f87a2ec32dde14fd282b.tar.bz2 | |
doc session: allowing a buffer to register more than one file
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 () |