(mapc (lambda (p)
        (when (locate-library (car p))
          (autoload (cdr p) (car p) nil t) ))
      '( ( "nxml-mode"    . 'nxml-mode ) ))