diff options
| author | jao <jao@gnu.org> | 2022-08-13 19:44:05 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-08-13 19:44:05 +0100 |
| commit | 460d921de8788a7ae8dfaebcf5aec0d776d3cbd5 (patch) | |
| tree | e4494093353f2377af84f6f7f8191e5e067fc249 /lib/eos | |
| parent | 65855b5c9980ff282234fb91a82a45d75b67f8c1 (diff) | |
| download | elibs-460d921de8788a7ae8dfaebcf5aec0d776d3cbd5.tar.gz elibs-460d921de8788a7ae8dfaebcf5aec0d776d3cbd5.tar.bz2 | |
jao-doc-session: using it
Diffstat (limited to 'lib/eos')
| -rw-r--r-- | lib/eos/jao-afio.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lib/eos/jao-afio.el b/lib/eos/jao-afio.el index 306a1d5..98a8760 100644 --- a/lib/eos/jao-afio.el +++ b/lib/eos/jao-afio.el @@ -21,6 +21,7 @@ ;;; Code: (require 'cl-lib) +(require 'jao-doc-session) (defvar jao-open-doc-fun 'find-file) (defvar jao-afio-mail-function 'gnus) @@ -74,8 +75,8 @@ ;;;###autoload (defun jao-afio-open-pdf-session () (interactive) - (let ((jao-doc-view-inhibit-session-save t)) - (dolist (doc (jao-doc-view-session)) + (let ((jao-doc-session-inhibit-save t)) + (dolist (doc (jao-doc-session)) (when (and (file-exists-p doc) (y-or-n-p (format "Open %s? " doc))) (jao-open-doc doc) (other-window 1))) @@ -85,13 +86,11 @@ (interactive) (delete-other-windows) (split-window-right) - (let ((docs (cl-remove-if-not (lambda (b) - (with-current-buffer b (jao-doc-view--is-doc))) - (buffer-list)))) + (let ((docs (cl-remove-if-not 'jao-doc-session-is-doc (buffer-list)))) (if (car docs) (progn (switch-to-buffer (car docs)) (switch-to-buffer-other-window (or (cadr docs) (car docs)))) - (when (and (jao-doc-view-session) (y-or-n-p "Load saved session? ")) + (when (and (jao-doc-session) (y-or-n-p "Load saved session? ")) (jao-afio-open-pdf-session))))) (declare w3m "w3m") |