[Emacs-diffs] /srv/bzr/emacs/trunk r103235: * minibuffer.el (completion-table-case-fold): New function for

[Tassilo Horn]

------------------------------------------------------------
revno: 103235
committer: Tassilo Horn <address@hidden>
branch nick: trunk
timestamp: Sat 2011-02-12 19:30:13 +0100
message:
  * minibuffer.el (completion-table-case-fold): New function for
  creating a case-insensitive completion table.
modified:
  lisp/ChangeLog
  lisp/minibuffer.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-02-12 17:51:02 +0000
+++ b/lisp/ChangeLog    2011-02-12 18:30:13 +0000
@@ -1,3 +1,8 @@
+2011-02-12  Tassilo Horn  <address@hidden>
+
+       * minibuffer.el (completion-table-case-fold): New function for
+       creating a case-insensitive completion table.
+
 2011-02-12  Teodor Zlatanov  <address@hidden>
 
        * net/tramp.el (tramp-default-method): Also check if

=== modified file 'lisp/minibuffer.el'
--- a/lisp/minibuffer.el        2011-01-25 04:08:28 +0000
+++ b/lisp/minibuffer.el        2011-02-12 18:30:13 +0000
@@ -196,6 +196,10 @@
           (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.