X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/5895f7fd1a20b2197951395a3c33d4e90ca7f992..a568a2cc4fb321d9370a94136a9a36960e58b20e:/lisp/cus-edit.el?ds=sidebyside

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 04570b1512..951b14f7f0 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1963,7 +1963,7 @@ If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"."
 			   symbol)
 			  buttons)
 		    (setq parents (cons symbol parents))))))
-    (and (null (get symbol 'custom-links)) ;No links of its own.
+    (and (null (get name 'custom-links)) ;No links of its own.
          (= (length parents) 1)         ;A single parent.
          (let* ((links (get (car parents) 'custom-links))
                 (many (> (length links) 2)))