# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1115407593 0
# Node ID 96701ef6c56d553832424f6e5349bd1887123431
# Parent  9d18baf82550e38b9c1abcc5870cde451d7c6f56
(webjump): Replace `assoc-ignore-case' by `assoc-string'.

diff -r 9d18baf82550 -r 96701ef6c56d lisp/net/webjump.el
--- a/lisp/net/webjump.el	Fri May 06 19:25:57 2005 +0000
+++ b/lisp/net/webjump.el	Fri May 06 19:26:33 2005 +0000
@@ -274,9 +274,9 @@
 <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