(defun pnh-reinit-libs ()
  (interactive)
  (let ((generated-autoload-file (concat user-emacs-directory "/" user-login-name "/my-autoload.el"))
        (default-directory (concat user-emacs-directory "lib")))
    (dolist (d (directory-files (concat user-emacs-directory "lib") t "^[^\.]"))
      (dolist (f (directory-files d t "\\.el$"))
        (byte-compile-file f))
      (update-directory-autoloads d))))

Generated by Phil Hagelberg using scpaste at Thu Nov 9 10:45:02 2023. PST. (original)