summaryrefslogtreecommitdiff
path: root/lisp/icomplete.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/icomplete.el')
-rw-r--r--lisp/icomplete.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/icomplete.el b/lisp/icomplete.el
index 03616f9b6aa..0fa5f367349 100644
--- a/lisp/icomplete.el
+++ b/lisp/icomplete.el
@@ -760,7 +760,8 @@ by `group-function''s second \"transformation\" protocol."
(plist-get completion-extra-properties :affixation-function)))
(ann-fun (or (completion-metadata-get md 'annotation-function)
(plist-get completion-extra-properties :annotation-function)))
- (grp-fun (completion-metadata-get md 'group-function))
+ (grp-fun (and completions-group
+ (completion-metadata-get md 'group-function)))
(annotated
(cond (aff-fun
(funcall aff-fun prospects))