diff options
| -rw-r--r-- | lib/doc/jao-doc-view.el | 13 |
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." |