changeset 21361:f270e8ad8276

(webjump): Use assoc-ignore-case for locating the proper URL.
author Richard M. Stallman <rms@gnu.org>
date Sun, 05 Apr 1998 03:19:59 +0000
parents 238c1cd70a27
children a45af443a262
files lisp/webjump.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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