Re: Defcustoms, how do users find them?

[Lennart Borgman]

On Tue, Nov 17, 2009 at 3:22 PM, Lennart Borgman
<address@hidden> wrote:
> On Tue, Nov 17, 2009 at 4:41 AM, Lennart Borgman
> <address@hidden> wrote:
>> On Tue, Nov 17, 2009 at 4:38 AM, Stefan Monnier
>> <address@hidden> wrote:
>>>> If it is really annoying to autoload defcustoms then maybe autoloading
>>>> just defgroups would be a possibility? (Or are they already autoloaded
>>>> in some way?)
>>>
>>> Yes, groups are autoloaded, thanks to cus-load.el.
>>> We could make customize-variable's completion complete to all
>>> defcustoms, using a similar scheme (and have customize-variable
>>> automatically load the var's package if it's not yet loaded).
>>> But autoloading the defcustoms is out of the question.
>>
>> I think that would solve the problem - if help/apropos functions also
>> loaded the var's package.
>
>
> As I understand it we then first have to modify
> custom-make-dependencies so that it also collects defcustoms. Changing
> the part where it write 'custom-loads to cus-dep.el should is enough
> for this I guess, see below. Is this the way to do it? (And then add
> the corresponding pieces to custom-variable-prompt etc.)
>
> *** In custom-make-dependencies change to this ****
>
>  (mapatoms (lambda (symbol)
>              (let ((members (get symbol 'custom-group))


And that was not a very good idea for how to modify
custom-make-dependencies. Something like this should make it easier to
write the rest since there is already a lot of stuff handling
'custom-loads:

  (mapatoms (lambda (symbol)
              (let ((members (get symbol 'custom-group))
                    where found
                    (sym-name (symbol-name symbol))
                    (option (get symbol 'standard-value)))
                (when members
                  (dolist (member
                           ;; So x and no-x builds won't differ.
                           (sort (mapcar 'car members) 'string<))
                    (setq where (get member 'custom-where))
                    (unless (or (null where)
                                (member where found))
                      (push where found)))
                  (when found
                    (insert "(put '" sym-name " 'custom-unloaded 'group)\n")))
                (when option
                  (setq where (get option 'custom-where))
                  (insert "(put '" sym-name " 'custom-unloaded 'option)\n")
                  (unless (or (null where)
                              (member where found))
                    (push where found)))
                (when found
                  (insert "(put '" sym-name
                          " 'custom-loads '")
                  (prin1 (nreverse found) (current-buffer))
                  (insert ")\n"))
                )))