summaryrefslogtreecommitdiff
path: root/lisp/minibuffer.el
diff options
context:
space:
mode:
authorNicolas Richard <theonewiththeevillook@yahoo.fr>2014-02-24 16:41:46 +0100
committerJuanma Barranquero <lekktu@gmail.com>2014-02-24 16:41:46 +0100
commit0e38ae052eb194ac509b77ba9be4b0ab70c784f4 (patch)
treecfe4f94ea7cf74eea2c19dbe855459d5680cda92 /lisp/minibuffer.el
parent7c56ecf5f550703a28831c8ac8de940cc7d88599 (diff)
downloademacs-0e38ae052eb194ac509b77ba9be4b0ab70c784f4.tar.gz
lisp/minibuffer.el: Fix bug#16808.
(completion--try-word-completion): Fix error when completing M-x commands.
Diffstat (limited to 'lisp/minibuffer.el')
-rw-r--r--lisp/minibuffer.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index edc4c950104..737172e359f 100644
--- 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