From f663123f5a9e6ab3b24dd113d878dec2bf692e23 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 20 Jan 2018 21:44:18 -0500 Subject: [PATCH] feature/lookup: properly report errors in +lookup/online --- modules/feature/lookup/autoload/lookup.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/modules/feature/lookup/autoload/lookup.el b/modules/feature/lookup/autoload/lookup.el index 8ff263aca..26b8250fa 100644 --- a/modules/feature/lookup/autoload/lookup.el +++ b/modules/feature/lookup/autoload/lookup.el @@ -216,7 +216,7 @@ for the provider." (region-end))) (read-string "Search for: " (thing-at-point 'symbol t))) (+lookup--online-provider current-prefix-arg))) - (condition-case _ex + (condition-case ex (let ((url (cdr (assoc provider +lookup-provider-url-alist)))) (unless url (error "'%s' is an invalid search engine" provider)) @@ -227,7 +227,8 @@ for the provider." (user-error "The search query is empty")) (funcall +lookup-open-url-fn (format url (url-encode-url search)))) ('error - (map-delete +lookup--last-provider major-mode)))) + (map-delete +lookup--last-provider major-mode) + (message "Failed: %s" ex)))) ;;;###autoload (defun +lookup/online-select ()