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

partial-completion if it's the only style.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7d8991d6e0f7d17f2b7c24bae6d089f6284b73da..9628a63feb6e068cdcc994b7a4f9d2446fc85a3a 100644 (file)
--- 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 d16d0362a36438a01c5f442971e5d57fa1ed2ed6..84d8e658a729e5fbd7069c2f549e813c4e8020a9 100644 (file)
--- 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