diff options
author | Tassilo Horn <tassilo@member.fsf.org> | 2011-02-12 19:30:13 +0100 |
---|---|---|
committer | Tassilo Horn <tassilo@member.fsf.org> | 2011-02-12 19:30:13 +0100 |
commit | e2784c87183787f8d5bffb0cf10e08fabe02ff91 (patch) | |
tree | 3486b3fb9c79c6ecf542c27e087a2ac8048822b1 /lisp/minibuffer.el | |
parent | 563790b6db1fed5d81809ca826e19685b78461f4 (diff) | |
download | emacs-e2784c87183787f8d5bffb0cf10e08fabe02ff91.tar.gz |
* minibuffer.el (completion-table-case-fold): New function for
creating a case-insensitive completion table.
Diffstat (limited to 'lisp/minibuffer.el')
-rw-r--r-- | lisp/minibuffer.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 1b42ee1f2ce..3c8628c9cfa 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -196,6 +196,10 @@ You should give VAR a non-nil `risky-local-variable' property." (setq ,var (,fun))) ,var)))) +(defun completion-table-case-fold (table string pred action) + (let ((completion-ignore-case t)) + (complete-with-action action table string pred))) + (defun completion-table-with-context (prefix table string pred action) ;; TODO: add `suffix' maybe? ;; Notice that `pred' may not be a function in some abusive cases. |