Double check completions-group customization variable in Icomplete

bug#48545

* lisp/icomplete.el (icomplete--augment): Double check completions-group.

diff --git a/lisp/icomplete.el b/lisp/icomplete.el
index 03616f9b6aaa85e3319f6e6b7c0ba943b435e244..0fa5f367349c5e5b3fb05a24ab746fb529ede8bf 100644 (file)
--- 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))