(webjump): Replace `assoc-ignore-case' by `assoc-string'.

diff --git a/lisp/net/webjump.el b/lisp/net/webjump.el
index 3f004b8864eff117e15df1b743118200b6efb545..0fc47fafa8573051d141e14282e64c355d7816e6 100644 (file)
--- a/lisp/net/webjump.el
+++ b/lisp/net/webjump.el
@@ -274,9 +274,9 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke
 <nwv@acm.org>."
   (interactive)
   (let* ((completion-ignore-case t)
-        (item (assoc-ignore-case
+        (item (assoc-string
                (completing-read "WebJump to site: " webjump-sites nil t)
-               webjump-sites))
+               webjump-sites t))
         (name (car item))
         (expr (cdr item)))
     (browse-url (webjump-url-fix