* minibuffer.el (completion-pcm--pattern->regex): Fix last change.

Fixes: debbugs:6160

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 87b11285851afcf45957eb25404b088b5e593027..8c3883808f26fd30f5adb683e22bfbaad42e7ec0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-05-11  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * minibuffer.el (completion-pcm--pattern->regex):
+       Fix last change (bug#6160).
+
 2010-05-10  Juri Linkov  <juri@jurta.org>
 
        Remove nodes visited during Isearch from the Info history.
@@ -11,8 +16,8 @@
 2010-05-10  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/tramp.el (tramp-do-file-attributes-with-stat): Add space in
-       format string, in order to work around a bug in pdksh.  Reported
-       by Gilles Pion <gpion@lfdj.com>.
+       format string, in order to work around a bug in pdksh.
+       Reported by Gilles Pion <gpion@lfdj.com>.
        (tramp-handle-verify-visited-file-modtime): Do not send a command
        when the connection is not established.
        (tramp-handle-set-file-times): Simplify the check for utc.

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 869ce937b66810b2ad3d83da8b82fd00cc2cc9dc..2f27cd0d40ebdca07a81b66311cb84fa4c86f815 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -1835,8 +1835,8 @@ or a symbol chosen among `any', `star', `point', `prefix'."
                   (lambda (x)
                     (cond
                      ((stringp x) (regexp-quote x))
-                     ((if (consp group) (memq x group) group)
-                      "\\(.*?\\)" ".*?")))
+                     ((if (consp group) (memq x group) group) "\\(.*?\\)")
+                    (t ".*?")))
                   pattern
                   ""))))
     ;; Avoid pathological backtracking.