Re: Recursive Fload and eval-after-load forms. (See bug #43116.)

[Stefan Monnier]

> -        (cond ((symbolp load) (ignore-errors (require load)))
> +        (cond ((being-loaded-p load))   ; For bug #43116
> +              ((symbolp load) (ignore-errors (require load)))

Maybe a simpler test that doesn't require a new ad-hoc primitive is to
test whether that group has already been defined?


        Stefan


diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 466727630f..8f1e5968b5 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -4844,7 +4844,8 @@ custom-menu-create
     (if (and (or (not (boundp 'custom-menu-nesting))
                 (>= custom-menu-nesting 0))
             (progn
-              (custom-load-symbol symbol)
+              (unless (get symbol 'group-documentation)
+                (custom-load-symbol symbol))
               (< (length (get symbol 'custom-group)) widget-menu-max-size)))
        (let ((custom-prefix-list (custom-prefix-add symbol
                                                     custom-prefix-list))