diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-02-21 17:34:51 -0500 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-02-21 17:34:51 -0500 |
commit | f619ad4ca2ce943d53589469c010e451afab97dd (patch) | |
tree | e1b71f79518372ecab4c677ae948504450d8bf5d /lisp/minibuffer.el | |
parent | a647cb26b695a542e3a546104afdf4c7c47eb061 (diff) | |
parent | 9f8370e63f65f76887b319ab6a0368d4a332777c (diff) | |
download | emacs-f619ad4ca2ce943d53589469c010e451afab97dd.tar.gz |
Merge from trunk
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 94ba46069d5..392ec2d3dad 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -195,6 +195,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. |