From 71633830f1797c17a3f395bece11c56141b33c68 Mon Sep 17 00:00:00 2001 From: jao Date: Tue, 13 Apr 2021 03:47:06 +0100 Subject: doc-view tweak --- lib/doc/jao-doc-view.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'lib/doc') diff --git a/lib/doc/jao-doc-view.el b/lib/doc/jao-doc-view.el index e19839a..cdc4502 100644 --- a/lib/doc/jao-doc-view.el +++ b/lib/doc/jao-doc-view.el @@ -210,17 +210,18 @@ (while (re-search-forward "https?://" end t) (push (thing-at-point-url-at-point) urls)) urls)) - (doc-view-doc->txt txt (lambda () (jao-doc-view--page-urls all))))))) + (doc-view-doc->txt txt (lambda () (jao-doc-view--page-urls all))) + 'wait)))) (defun jao-doc-view-visit-url (all) "Visit URL displayed in this page." (interactive "P" doc-view-mode) (let ((urls (jao-doc-view--page-urls all))) - (if (zerop (length urls)) - (message "No URLs in this page") - (when-let (url (completing-read "URL: " urls nil nil - (when (null (cdr urls)) (car urls)))) - (browse-url url))))) + (cond ((eq 'wait urls) (message "Extracting text, please wait and retry.")) + ((zerop (length urls)) (message "No URLs in this page")) + (t (when-let (url (completing-read "URL: " urls nil nil + (when (null (cdr urls)) (car urls)))) + (browse-url url)))))) (provide 'jao-doc-view) -- cgit v1.2.3