[Emacs-diffs] Changes to emacs/lisp/cus-edit.el

[Juri Linkov]

Index: emacs/lisp/cus-edit.el
diff -c emacs/lisp/cus-edit.el:1.243 emacs/lisp/cus-edit.el:1.244
*** emacs/lisp/cus-edit.el:1.243        Sun Dec  4 02:39:24 2005
--- emacs/lisp/cus-edit.el      Thu Dec  8 07:49:40 2005
***************
*** 2155,2161 ****
                  (setq parents (cons symbol parents)))))
      (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)))
             (when links
               (insert "\nParent documentation: ")
--- 2155,2165 ----
                  (setq parents (cons symbol parents)))))
      (and (null (get name 'custom-links)) ;No links of its own.
           (= (length parents) 1)         ;A single parent.
!          (let* ((links (delq nil (mapcar (lambda (w)
!                                          (unless (eq (widget-type w)
!                                                      'custom-group-link)
!                                            w))
!                                        (get (car parents) 'custom-links))))
                  (many (> (length links) 2)))
             (when links
               (insert "\nParent documentation: ")