emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

feature/lookup: properly report errors in +lookup/online

Browse source
This commit is contained in:
Henrik Lissner 2018-01-20 21:44:18 -05:00
parent 1024cfa23c
commit f663123f5a
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
modules/feature/lookup/autoload/lookup.el
View file

@ -216,7 +216,7 @@ for the provider."
(region-end))) (region-end)))
(read-string "Search for: " (thing-at-point 'symbol t))) (read-string "Search for: " (thing-at-point 'symbol t)))
(+lookup--online-provider current-prefix-arg))) (+lookup--online-provider current-prefix-arg)))
(condition-case _ex (condition-case ex
(let ((url (cdr (assoc provider +lookup-provider-url-alist)))) (let ((url (cdr (assoc provider +lookup-provider-url-alist))))
(unless url (unless url
(error "'%s' is an invalid search engine" provider)) (error "'%s' is an invalid search engine" provider))
@ -227,7 +227,8 @@ for the provider."
(user-error "The search query is empty")) (user-error "The search query is empty"))
(funcall +lookup-open-url-fn (format url (url-encode-url search)))) (funcall +lookup-open-url-fn (format url (url-encode-url search))))
('error ('error
(map-delete +lookup--last-provider major-mode)))) (map-delete +lookup--last-provider major-mode)
(message "Failed: %s" ex))))
;;;###autoload ;;;###autoload
(defun +lookup/online-select () (defun +lookup/online-select ()