pdf: inhibit saving sessions while opening them

2 files changed, 8 insertions, 4 deletions

diff --git a/lib/doc/jao-doc-view.el b/lib/doc/jao-doc-view.el
index 058fc04..95a22a6 100644
--- a/lib/doc/jao-doc-view.el
+++ b/lib/doc/jao-doc-view.el
@@ -69,10 +69,13 @@
 (defun jao-doc-view--save-session-1 ()
   (when (jao-doc-view--is-pdf) (jao-doc-view-save-session t)))
 
+(defvar jao-doc-view-inhibit-session-save nil)
+
 (defun jao-doc-view--save-session ()
   (let ((inhibit-message t)
         (message-log-max nil))
-    (jao-doc-view-save-session)
+    (when (not jao-doc-view-inhibit-session-save)
+      (jao-doc-view-save-session))
     t))
 
 (add-hook 'kill-emacs-query-functions #'jao-doc-view--save-session)
diff --git a/lib/eos/jao-afio.el b/lib/eos/jao-afio.el
index 14794fd..f62c314 100644
--- a/lib/eos/jao-afio.el
+++ b/lib/eos/jao-afio.el
@@ -72,9 +72,10 @@
 ;;;###autoload
 (defun jao-afio-open-pdf-session ()
   (interactive)
-  (dolist (doc (jao-doc-view-session))
-    (when (and (file-exists-p doc) (y-or-n-p (format "Open %s? " doc)))
-      (jao-open-doc doc))))
+  (let ((jao-doc-view-inhibit-session-save t))
+    (dolist (doc (jao-doc-view-session))
+      (when (and (file-exists-p doc) (y-or-n-p (format "Open %s? " doc)))
+        (jao-open-doc doc)))))
 
 (defun jao-afio-open-doc ()
   (interactive)