feature/lookup: fix invalid search engine error in +lookup/online

Caused because map-put returns the full provider cons cell, rather than
just the provider.
This commit is contained in:
Henrik Lissner 2018-01-20 21:43:23 -05:00
parent 0d83834ac7
commit 1024cfa23c
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -14,7 +14,8 @@
"Search on: "
(mapcar #'car +lookup-provider-url-alist)
nil t)))
(map-put +lookup--last-provider key provider)))))
(map-put +lookup--last-provider key provider)
provider))))
(defun +lookup--symbol-or-region (&optional initial)
(cond (initial)