Mercurial > emacs
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))))