tools/pdf: conform to new conventions

This commit is contained in:
Henrik Lissner 2019-07-23 00:00:08 +02:00
parent 0ab14efce2
commit 38d06446ba
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -8,7 +8,7 @@
(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 () (defun +pdf-cleanup-windows-h ()
"Kill left-over annotation buffers when the document is killed." "Kill left-over annotation buffers when the document is killed."
(when (buffer-live-p pdf-annot-list-document-buffer) (when (buffer-live-p pdf-annot-list-document-buffer)
(pdf-info-close pdf-annot-list-document-buffer)) (pdf-info-close pdf-annot-list-document-buffer))
@ -18,7 +18,7 @@
(when (and contents-buffer (buffer-live-p contents-buffer)) (when (and contents-buffer (buffer-live-p contents-buffer))
(kill-buffer contents-buffer)))) (kill-buffer contents-buffer))))
(add-hook! 'pdf-view-mode-hook (add-hook! 'pdf-view-mode-hook
(add-hook 'kill-buffer-hook #'+pdf|cleanup-windows nil t)) (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)
;; Turn off cua so copy works ;; Turn off cua so copy works