(completion--try-word-completion): Don't ignore

partial-completion if it's the only style.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7d8991d6e0f..9628a63feb6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-11-29  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * minibuffer.el (completion--try-word-completion): Don't ignore
+        partial-completion if it's the only style.
+
 2008-11-28  Juanma Barranquero  <lekktu@gmail.com>
 
         * emacs-lisp/re-builder.el (reb-auto-update): Remove redundant code.
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index d16d0362a36..84d8e658a72 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -625,7 +625,8 @@ If `minibuffer-completion-confirm' is `confirm-after-completion',
               (after (substring string point))
               ;; Disable partial-completion for this.
               (completion-styles
-               (remove 'partial-completion completion-styles))
+               (or (remove 'partial-completion completion-styles)
+                   completion-styles))
               tem)
           (while (and exts (not (consp tem)))
             (setq tem (completion-try-completion