From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 5 Apr 1998 03:19:59 +0000 (+0000)
Subject: (webjump): Use assoc-ignore-case for locating the proper URL.
X-Git-Tag: emacs-20.3~1713
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5e6e69169e03a50d43ae6190afd0a0f7ff88b266;p=emacs.git

(webjump): Use assoc-ignore-case for locating the proper URL.
---

diff --git a/lisp/webjump.el b/lisp/webjump.el
index 3273a5bbecc..42d0a4d4f2d 100644
--- a/lisp/webjump.el
+++ b/lisp/webjump.el
@@ -274,8 +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 (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