From 06217c405393668a2299df4026436cac80e7b651 Mon Sep 17 00:00:00 2001 From: Anders Johansson Date: Wed, 27 Mar 2019 22:33:26 +0100 Subject: Add function for returning current page label --- lisp/pdf-view.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/pdf-view.el b/lisp/pdf-view.el index d4de336..64c1ab0 100644 --- a/lisp/pdf-view.el +++ b/lisp/pdf-view.el @@ -242,6 +242,9 @@ regarding display of the region in the later function.") ;;TODO: write documentation! `(image-mode-window-get 'window-size ,window)) +(defun pdf-view-current-pagelabel (&optional window) + (nth (1- (pdf-view-current-page window)) (pdf-info-pagelabels))) + (defun pdf-view-active-region-p nil "Return t if there are active regions." (not (null pdf-view-active-region))) -- cgit v1.0