Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* minibuffer.el (completion-table-case-fold): New function for

Browse source 
creating a case-insensitive completion table.
This commit is contained in:
Tassilo Horn 2011-02-12 19:30:13 +01:00
parent 563790b6db
commit e2784c8718
2 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2011-02-12 Tassilo Horn <tassilo@member.fsf.org>
* minibuffer.el (completion-table-case-fold): New function for
creating a case-insensitive completion table.
2011-02-12 Teodor Zlatanov <tzz@lifelogs.com>
* net/tramp.el (tramp-default-method): Also check if

4
lisp/minibuffer.el
View file

@ -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.