changeset 26495:002bf6a98f1d

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.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 18 Nov 1999 16:42:02 +0000
parents 736c6b0dc28a
children 9e1b86424245
files lisp/quickurl.el
diffstat 1 files changed, 7 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))))