diff options
| author | Anders Johansson <mejlaandersj@gmail.com> | 2019-03-27 22:33:26 +0100 |
|---|---|---|
| committer | Anders Johansson <mejlaandersj@gmail.com> | 2019-03-27 22:33:26 +0100 |
| commit | 06217c405393668a2299df4026436cac80e7b651 (patch) | |
| tree | 6b473cc0af370e2335342f07796455317aad9cc5 | |
| parent | 9a63f3909e5a331b6974deb03abd2c4bad42c2d9 (diff) | |
Add function for returning current page label
| -rw-r--r-- | lisp/pdf-view.el | 3 |
1 files changed, 3 insertions, 0 deletions
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))) |