Re: doc elisp intro cross reference fixes

[Per Abrahamsen]

Luc Teirlinck <address@hidden> writes:

> 1.  (get sym 'custom-type) :
>
> Not only are there defcustom's without a :group, there also sre
> defcustom's without a :type :

Try this instead:

(let (found)
  (mapatoms (lambda (sym) 
              (let ((group (get sym 'custom-group)))
                (setq found (append group found)))))
  (mapatoms (lambda (sym)
              (and (boundp sym)
                    (get sym 'standard-value)
                   (not (assq sym found))
                   (insert (format "%S\n" sym))))))

> 2. A variable defined using a defcustom without a :group _is_ in a
>    group, the `nil' group:

Nope.