loaddefs.el filenames as seen by `update-file-autoloads'

[Thien-Thi Nguyen <ttn@glug.org>]

ciao a tutti,

under vms, filenames are case-insensitive and are upcased w/in emacs.
lisp/loaddefs.el records autoload forms that include filename fragments.
`update-file-autoloads' compares these fragments using `string=' and
fails to recognize existing entries, resulting in two entries for those
("foo" and "FOO").  i would like to add a check:

  (let ((load-name ...))
    (when (memq system-type '(vax-vms vms
                              ;; Add other systems whose filenames
                              ;; are case insensitive and for which
                              ;; `expand-file-name' DTRT, here.
			      ))
      (setq load-name (downcase load-name)))
    ...
    (when (string= load-name ...) ...))

changing `load-name' instead of making the comparison case-insensitive
means loaddefs.el will have lowercased frags (under vms), a change that
is transparent to `expand-file-name'.  is this ok?  other ideas?

thi