diff options
Diffstat (limited to 'pdf-view-reader.el')
| -rw-r--r-- | pdf-view-reader.el | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/pdf-view-reader.el b/pdf-view-reader.el index 80cee20..fee2090 100644 --- a/pdf-view-reader.el +++ b/pdf-view-reader.el @@ -187,13 +187,17 @@ have `pdf-view-pages-mode' enabled." (define-minor-mode pdf-view-offset-mode "Minor mode to have an offset for PDF pages in `pdf-view-mode'." :lighter (:eval (format " Off(%d)" pdf-view-offset)) - :interactive (pdf-view-mode) - (if pdf-view-offset-mode - (thread-last - (read-number "Current page: " (pdf-view-current-page)) - (- (pdf-view-current-page)) - (setq pdf-view-offset)) - (setq pdf-view-offset 0))) + :interactive (pdf-view-mode)) + +;;;###autoload +(defun pdf-view-offset-current-page (n) + "Set the offest so that going to page N goes to the current page." + (interactive + (list (read-number "Current page: " (pdf-view-current-page)))) + (unless pdf-view-offset-mode + (pdf-view-offset-mode 1)) + (setq pdf-view-offset + (- (pdf-view-current-page) n))) ;;;###autoload (defun pdf-view-offset-set (n) |