Replace obsolete functions/commands

This commit is contained in:
Henrik Lissner 2017-04-17 02:19:20 -04:00
parent ed2e7a65f6
commit e204df3c05
9 changed files with 11 additions and 11 deletions

View file

@ -44,6 +44,6 @@
(mapcar #'car +lookup-search-url-alist)
nil t)))
(let ((url (cdr (assoc where +lookup-search-url-alist)))
(search (or search (read-input "Query: "))))
(search (or search (read-string "Query: "))))
(browse-url (format url (url-encode-url search)))))