(defun pnh-reinit-libs () (interactive) (let ((generated-autoload-file (concat user-emacs-directory "my-autoload.el"))) (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))))