lisp/minibuffer.el: Fix bug#16808.

(completion--try-word-completion): Fix error when completing M-x commands.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a7927fd092a26b5c671dcfb7228c6d2713c48e98..da0d2ea44997f3c512e59d381c240d9ef1942a3e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-02-24  Nicolas Richard  <theonewiththeevillook@yahoo.fr>
+
+       * minibuffer.el (completion--try-word-completion):
+       Fix error when completing M-x commands (bug#16808).
+
 2014-02-24  Leo Liu  <sdl.web@gmail.com>
 
        * emacs-lisp/easy-mmode.el (define-minor-mode): Fix debug spec.

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index edc4c950104b60d2ac1e3da5037cc45d75c26f20..737172e359f230ed0edb517666ed42c3b16c1cc4 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -1371,7 +1371,7 @@ appear to be a match."
                                   (concat before ext after)
                                   table predicate (1+ point) md))
                                exts))))
-         (when (and (= 1 (length comps) (consp (car comps))))
+         (when (and (null (cdr comps)) (consp (car comps)))
            (setq comp (car comps)))))
 
       ;; Completing a single word is actually more difficult than completing