From 1414d03249a933686e0a7440ed13dd79142e4c57 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 18 Nov 1999 16:42:02 +0000 Subject: [PATCH] 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. --- lisp/quickurl.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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)))) -- 2.39.5