[Emacs-diffs] Changes to emacs/lisp/minibuffer.el,v

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      08/09/01 21:34:24

Index: minibuffer.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/minibuffer.el,v
retrieving revision 1.56
retrieving revision 1.57
diff -u -b -r1.56 -r1.57
--- minibuffer.el       21 Aug 2008 17:28:58 -0000      1.56
+++ minibuffer.el       1 Sep 2008 21:34:23 -0000       1.57
@@ -1383,8 +1383,13 @@
              (case x
                       ((star any point)
                        (if (if (consp group) (memq x group) group)
-                                     "\\(.*?\\)" ".*?"))
-               (t (regexp-quote x))))
+                   "\\(.*?\\)"
+                 ".*?"))
+               (t
+               (if (and completion-ignore-case
+                        (string-match "[[:alpha:]]" x))
+                   (format "[%s%s]" (downcase x) (upcase x))
+                 (regexp-quote x)))))
            pattern
                   ""))))
     ;; Avoid pathological backtracking.