General refactor (use map.el more)
+ map-delete is shorter and faster than assq-delete-all + map-put is simpler than the delete-then-set workflow + map-merge is great for merging default and user settings
This commit is contained in:
parent
2eeb6ce0d9
commit
392f04446f
7 changed files with 27 additions and 42 deletions
|
@ -14,8 +14,7 @@
|
|||
"Search on: "
|
||||
(mapcar #'car +lookup-provider-url-alist)
|
||||
nil t)))
|
||||
(push (cons key provider)
|
||||
(assq-delete-all key +lookup--last-provider))))))
|
||||
(map-put +lookup--last-provider key provider)))))
|
||||
|
||||
(defun +lookup--symbol-or-region (&optional initial)
|
||||
(cond (initial)
|
||||
|
@ -227,8 +226,7 @@ for the provider."
|
|||
(user-error "The search query is empty"))
|
||||
(funcall +lookup-open-url-fn (format url (url-encode-url search))))
|
||||
('error
|
||||
(setq +lookup--last-provider
|
||||
(assq-delete-all major-mode +lookup--last-provider)))))
|
||||
(map-delete +lookup--last-provider major-mode))))
|
||||
|
||||
;;;###autoload
|
||||
(defun +lookup/online-select ()
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue