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 --git a/lisp/quickurl.el b/lisp/quickurl.el
index 71d73ffd541e37ef20386d4d196284b1c6805272..1191fc1d7e7ebc57a0ba2f594f385ce468e152a7 100644 (file)
--- a/lisp/quickurl.el
+++ b/lisp/quickurl.el
@@ -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 @@ buffer, this default action can be modifed via
    (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))))