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)))