diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-04-05 03:19:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-04-05 03:19:59 +0000 |
| commit | 6248e0565db33fa2073097e7b2b1ff33c8e57104 (patch) | |
| tree | 35c4fb8ae76fededef5f7dedaea085cd4148d949 /lisp/webjump.el | |
| parent | 80fa7518964efcae36c393a81a400b819328bd82 (diff) | |
| download | emacs-6248e0565db33fa2073097e7b2b1ff33c8e57104.tar.gz | |
(webjump): Use assoc-ignore-case for locating the proper URL.
Diffstat (limited to 'lisp/webjump.el')
| -rw-r--r-- | lisp/webjump.el | 5 |
1 files changed, 3 insertions, 2 deletions
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 |