summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--lib/doc/jao-doc-view.el13
1 files changed, 7 insertions, 6 deletions
diff --git a/lib/doc/jao-doc-view.el b/lib/doc/jao-doc-view.el
index f4c7c8b..fe26c1d 100644
--- a/lib/doc/jao-doc-view.el
+++ b/lib/doc/jao-doc-view.el
@@ -100,12 +100,13 @@
urls)))
(defun jao-doc-view--page-urls (&optional all)
- (cond ((and all (not (file-exists-p (jao-doc-view--full-txt))))
- (message "Full text not extracted yet: doing so!")
- (doc-view-doc->txt txt (lambda () (message "Text extracted")))
- 'wait)
- (all (jao-doc-view--collect-urls (jao-doc-view--full-txt)))
- (t (jao-doc-view--collect-urls (jao-doc-view-page-text nil t)))))
+ (let ((txt (jao-doc-view--full-txt)))
+ (cond ((and all (not (file-exists-p txt)))
+ (message "Full text not extracted yet: doing so!")
+ (doc-view-doc->txt txt (lambda () (message "Text extracted")))
+ 'wait)
+ (all (jao-doc-view--collect-urls txt))
+ (t (jao-doc-view--collect-urls (jao-doc-view-page-text nil t))))))
(defun jao-doc-view-visit-url (all)
"Visit URL displayed in this page."