Fix reference to old +lookup-symbol-or-region

Was replaced with doom-thing-at-point-or-region in 27bf3c85b
This commit is contained in:
Henrik Lissner 2020-01-25 16:03:10 -05:00
parent 57f550bc85
commit 7cf197d8ae
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -35,7 +35,7 @@ provider from `+lookup-provider-url-alist'. On consecutive uses, the last
provider will be reused. If the universal argument is supplied, always prompt provider will be reused. If the universal argument is supplied, always prompt
for the provider." for the provider."
(interactive (interactive
(list (if (use-region-p) (+lookup-symbol-or-region)) (list (if (use-region-p) (doom-thing-at-point-or-region))
(+lookup--online-provider current-prefix-arg))) (+lookup--online-provider current-prefix-arg)))
(let ((backend (cl-find-if (lambda (x) (or (stringp x) (fboundp x))) (let ((backend (cl-find-if (lambda (x) (or (stringp x) (fboundp x)))
(cdr (assoc provider +lookup-provider-url-alist))))) (cdr (assoc provider +lookup-provider-url-alist)))))