diff options
| author | politza <politza@fh-trier.de> | 2019-04-13 21:42:04 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-04-13 21:42:04 +0200 |
| commit | 2478da0ae42b7cf3051417d89b06fe2f1f4a7330 (patch) | |
| tree | ae5780ba258b85d85774bc68845806ce0c9f753a | |
| parent | eaa5963f348250e37900011315faa130139c036d (diff) | |
| parent | 06217c405393668a2299df4026436cac80e7b651 (diff) | |
Merge pull request #483 from andersjohansson/current-pagelabel
Adds a function for returning the label of the current page
| -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))) |