~kisaragi_hiu/yasearch

5ded46f551dae2748f3b78d7a1fee9c4d602b510 — Kisaragi Hiu 3 years ago 9cf6706
Just pass the list of keys to completing-read
1 files changed, 1 insertions(+), 4 deletions(-)

M yasearch.el
M yasearch.el => yasearch.el +1 -4
@@ 54,10 54,7 @@
  "Prompt the user to choose an engine defined in `yasearch-engine-alist'."
  (interactive)
  (intern-soft
   (completing-read "Engine: "
                    (mapcar (lambda (engine) (cons (symbol-name (car engine))
                                                   (cdr engine)))
                            yasearch-engine-alist))))
   (completing-read "Engine: " (mapcar #'car yasearch-engine-alist))))

;;;###autoload
(defun yasearch (engine query)