diff options
author | jao <jao@gnu.org> | 2025-09-28 02:30:33 +0100 |
---|---|---|
committer | jao <jao@gnu.org> | 2025-09-28 02:30:33 +0100 |
commit | 7e1981ef1a6b99f3e2af356f79256c4ca4f4f70d (patch) | |
tree | ce77751c85d04d938aeba8a4f2e096b0a68f7a4b /lib | |
parent | 1d005b22035b30803b65dcb36e625a568b781aca (diff) | |
download | elibs-7e1981ef1a6b99f3e2af356f79256c4ca4f4f70d.tar.gz elibs-7e1981ef1a6b99f3e2af356f79256c4ca4f4f70d.tar.bz2 |
fixes for multisession usagemain
Diffstat (limited to 'lib')
-rw-r--r-- | lib/doc/jao-doc-session.el | 6 | ||||
-rw-r--r-- | lib/eos/jao-r2e.el | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/lib/doc/jao-doc-session.el b/lib/doc/jao-doc-session.el index cea9356..d2076c1 100644 --- a/lib/doc/jao-doc-session.el +++ b/lib/doc/jao-doc-session.el @@ -20,9 +20,9 @@ ;;; Code: -(define-multisession-variable jao-doc-session "Documents session") +(define-multisession-variable jao-doc--session nil) -(defun jao-doc-session () (multisession-value jao-doc-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. @@ -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)) - (setf (jao-doc-session) docs)))) + (setf (multisession-value jao-doc--session) docs)))) (defun jao-doc-session-mark (&optional path) "Mark the current buffer's file, or PATH, as persistent across sessions." diff --git a/lib/eos/jao-r2e.el b/lib/eos/jao-r2e.el index aa44040..09b4504 100644 --- a/lib/eos/jao-r2e.el +++ b/lib/eos/jao-r2e.el @@ -162,7 +162,7 @@ (no (car f)) (entry (cdr f))) (when (yes-or-no-p (format "Delete feed '%s'" (car entry))) - (setf (jao-r2e--deleted) + (setf (multisession-value jao-r2e-deleted-feeds) (cons entry (remove entry (jao-r2e--deleted)))) (with-temp-buffer (jao-r2e--do (format "delete %s" no) (current-buffer))) @@ -181,7 +181,7 @@ (cat (when (string-match "feeds\\.\\(.+\\)@localhost" mail) (match-string 1 mail)))) (jao-r2e-subscribe (list url feed) cat t) - (setf (jao-r2e--deleted) (remove ps entries))))) + (setf (multisession-value jao-r2e-deleted-feeds) (remove ps entries))))) (defun jao-r2e--find-url () (save-excursion |