diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/doc/jao-doc-view.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lib/doc/jao-doc-view.el b/lib/doc/jao-doc-view.el index f7984f0..0687518 100644 --- a/lib/doc/jao-doc-view.el +++ b/lib/doc/jao-doc-view.el @@ -32,9 +32,11 @@ (defvar jao-doc-view-session-file "~/.emacs.d/cache/doc-view-session.eld") (defvar-local jao-doc-view--is-pdf nil) -(defun jao-doc-view-session-mark () (setq-local jao-doc-view--is-pdf t)) +(defun jao-doc-view-session-mark (path) (setq-local jao-doc-view--is-pdf path)) (defun jao-doc-view--is-pdf () - (or jao-doc-view--is-pdf (derived-mode-p 'doc-view-mode 'pdf-view-mode))) + (or jao-doc-view--is-pdf + (when (derived-mode-p 'doc-view-mode 'pdf-view-mode) + (buffer-file-name)))) (defun jao-doc-view--read-file (file) (let ((buff (find-file-noselect file))) @@ -59,11 +61,11 @@ (cb (when skip-current (current-buffer)))) (dolist (b (buffer-list)) (with-current-buffer b - (when (and (jao-doc-view--is-pdf) (not (equalp cb b))) - (add-to-list 'docs (buffer-file-name))))) + (when-let (fn (and (not (equalp cb b)) (jao-doc-view--is-pdf))) + (add-to-list 'docs fn)))) (when (> (length docs) 0) - (jao-doc-view--save-to-file jao-doc-view-session-file docs)) - (message "%s docs saved" (length docs)))) + (jao-doc-view--save-to-file jao-doc-view-session-file docs) + (message "%s docs saved" (length docs))))) (defun jao-doc-view--save-session-1 () (when (jao-doc-view--is-pdf) (jao-doc-view-save-session t))) |