From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 18 Nov 1999 16:42:02 +0000 (+0000)
Subject: Added defcustom of quickurl-completion-ignore-case.
X-Git-Tag: emacs-pretest-21.0.90~6058
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1414d03249a933686e0a7440ed13dd79142e4c57;p=emacs.git

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 71d73ffd541..1191fc1d7e7 100644
--- 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))))