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

creating a case-insensitive completion table.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 797624be6fba5b6e612185b4feca6e201f078a7d..e1bc8b9456403eede6a1c5bc86f8e727db3a9969 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 1b42ee1f2cebd4850cbe5128c0948061e2648b77..3c8628c9cfaccc32909a37c749f5cf57740f23c1 100644 (file)
--- 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.