emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

tools/pdf: fix 1826

Browse source 
Error occurs if pdf-annot is never loaded before kill-buffer hook runs.
This commit is contained in:
Henrik Lissner 2019-09-26 13:15:44 -04:00
parent 45240699e0
commit a940f56fb4
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 12 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

23
modules/tools/pdf/config.el
View file

@ -5,17 +5,18 @@
:config :config
(map! :map pdf-view-mode-map :gn "q" #'kill-current-buffer) (map! :map pdf-view-mode-map :gn "q" #'kill-current-buffer)
(defun +pdf-cleanup-windows-h () (after! pdf-annot
"Kill left-over annotation buffers when the document is killed." (defun +pdf-cleanup-windows-h ()
(when (buffer-live-p pdf-annot-list-document-buffer) "Kill left-over annotation buffers when the document is killed."
(pdf-info-close pdf-annot-list-document-buffer)) (when (buffer-live-p pdf-annot-list-document-buffer)
(when (buffer-live-p pdf-annot-list-buffer) (pdf-info-close pdf-annot-list-document-buffer))
(kill-buffer pdf-annot-list-buffer)) (when (buffer-live-p pdf-annot-list-buffer)
(let ((contents-buffer (get-buffer "*Contents*"))) (kill-buffer pdf-annot-list-buffer))
(when (and contents-buffer (buffer-live-p contents-buffer)) (let ((contents-buffer (get-buffer "*Contents*")))
(kill-buffer contents-buffer)))) (when (and contents-buffer (buffer-live-p contents-buffer))
(add-hook! 'pdf-view-mode-hook (kill-buffer contents-buffer))))
(add-hook 'kill-buffer-hook #'+pdf-cleanup-windows-h nil t)) (add-hook! 'pdf-view-mode-hook
(add-hook 'kill-buffer-hook #'+pdf-cleanup-windows-h nil t)))
(setq-default pdf-view-display-size 'fit-page (setq-default pdf-view-display-size 'fit-page
pdf-view-use-scaling t pdf-view-use-scaling t