From 119147eafdc798d4c9b2dfc160d9fc6972a298bd Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 5 May 2021 02:20:14 +0100 Subject: pdf: inhibit saving sessions while opening them --- lib/doc/jao-doc-view.el | 5 ++++- lib/eos/jao-afio.el | 7 ++++--- 2 files changed, 8 insertions(+), 4 deletions(-) (limited to 'lib') 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) -- cgit v1.2.3