*** empty log message ***

[gnu-emacs] / lisp / cus-edit.el

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 04570b1512ea503c08fa0da89e837a53b87115a7..951b14f7f05cfe4ae45f151f8129687f4c0894cd 100644 (file)
--- 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)))