[elpa] externals/doc-toc 10b254ef2c 58/84: Fix auto pagenumber contents OCR

[ELPA Syncer]

branch: externals/doc-toc
commit 10b254ef2c5a527affc3236f84cda9c5845c0aa9
Author: Daniel Nicolai <dalanicolai@gmail.com>
Commit: Daniel Nicolai <dalanicolai@gmail.com>

    Fix auto pagenumber contents OCR
---
 toc-mode.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/toc-mode.el b/toc-mode.el
index fc75873842..43f884caf5 100644
--- a/toc-mode.el
+++ b/toc-mode.el
@@ -398,10 +398,11 @@ unprocessed text."
   (interactive "P")
   (let ((mode (derived-mode-p 'pdf-view-mode 'djvu-read-mode)))
     (if mode
-        (let* ((page (string-to-number
-                      (read-string "Enter start-pagenumber for extraction: ")))
+        (let* ((startpage (string-to-number
+                           (read-string "Enter start-pagenumber for 
extraction: ")))
                (endpage (string-to-number
                          (read-string "Enter end-pagenumber for extraction: 
")))
+               (page startpage)
                (source-buffer (current-buffer))
                (ext (url-file-extension (buffer-file-name (current-buffer))))
                (buffer (file-name-sans-extension (buffer-name)))
@@ -430,7 +431,7 @@ unprocessed text."
             (flyspell-mode))
           (setq-local doc-buffer source-buffer)
           (unless arg
-            (toc--cleanup page t)))
+            (toc--cleanup startpage t)))
       (message "Buffer not in pdf-view- or djvu-read-mode"))))
 
 ;;;###autoload