# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 942943322 0
# Node ID 002bf6a98f1d373fdc270d4293e597f7e1158da3
# Parent  736c6b0dc28aa37edb3f5b288fa96f93f2351637
Added defcustom of quickurl-completion-ignore-case.
(quickurl-ask): completion-ignore-case is set to the value of
quickurl-completion-ignore-case for the duration of the call to
completing-read.

diff -r 736c6b0dc28a -r 002bf6a98f1d lisp/quickurl.el
--- a/lisp/quickurl.el	Thu Nov 18 16:37:48 1999 +0000
+++ b/lisp/quickurl.el	Thu Nov 18 16:42:02 1999 +0000
@@ -135,6 +135,11 @@
   :type  'function
   :group 'quickurl)
 
+(defcustom quickurl-completion-ignore-case t
+  "*Should `quickurl-ask' ignore case when doing the input lookup?"
+  :type  'boolean
+  :group 'quickurl)
+
 (defcustom quickurl-prefix ";; -*- lisp -*-\n\n"
   "*Text to write to `quickurl-url-file' before writing the URL list."
   :type  'string
@@ -317,7 +322,8 @@
    (list
     (progn
       (quickurl-load-urls)
-      (completing-read "Lookup: " quickurl-urls nil t))))
+      (let ((completion-ignore-case quickurl-completion-ignore-case))
+        (completing-read "Lookup: " quickurl-urls nil t)))))
   (let ((url (quickurl-find-url lookup)))
     (when url
       (quickurl-insert url))))