Extending Info-directory-list. There's got to be a better way.

[Alan Mackenzie<none@example.invalid>]

I recently added the following to my .emacs, after much (too much)
searching of the docs:

(eval-after-load "info"
  '(progn (info-initialize)
        (push "/usr/src/packages/BUILD/emacs-21.1/info/" Info-directory-list)))

This was the only way I found of appending to the front of
Info-directory-list which works regardless of whether or not Info has
already been loaded (for example, by desktop).

Surely there's got to be a better way?  One that doesn't involve arcane
constructions like eval-after-load and calling functions like
info-initialise which feel like they ought to be internal private
functions rather than public functions.

Anybody got any ideas to share?

-- 
Alan Mackenzie (Munich, Germany)
Email: aacm@muuc.dee; to decode, wherever there is a repeated letter
(like "aa"), remove half of them (leaving, say, "a").