# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 891746399 0
# Node ID f270e8ad82763dbe23fdd5167e46b678dee8a883
# Parent  238c1cd70a27b6857de908d67397f275c53ecd02
(webjump): Use assoc-ignore-case for locating the proper URL.

diff -r 238c1cd70a27 -r f270e8ad8276 lisp/webjump.el
--- a/lisp/webjump.el	Sun Apr 05 01:05:15 1998 +0000
+++ b/lisp/webjump.el	Sun Apr 05 03:19:59 1998 +0000
@@ -274,8 +274,9 @@
 <nwv@acm.org>."
   (interactive)
   (let* ((completion-ignore-case t)
-	 (item (assoc (completing-read "WebJump to site: " webjump-sites nil t)
-		      webjump-sites))
+	 (item (assoc-ignore-case
+		(completing-read "WebJump to site: " webjump-sites nil t)
+		webjump-sites))
 	 (name (car item))
 	 (expr (cdr item)))
     (funcall browse-url-browser-function