HIROSE Yuuji revised this on 22 Oct 2019

reloader.el

;; ;; Reload init files (defaults to .emacs, .emacs.el, .emacs.d/init.el) ;; (defvar reloader-default-init-files '("~/.emacs" "~/.emacs.el" "~/.emacs.d/init.el") "Default target files for reloading. C-u M-x reloader-reload causes prompt for loading file.") (defun reloader-reload (arg) (interactive "P") (let ((files (if arg (list (read-file-name "Reload file: ")) reloader-default-init-files)) f) (while files (setq f (car files)) (and (stringp f) (file-readable-p f) (progn (message "Reloading %s" f) (load-file f))) (setq files (cdr files))))) (define-key global-map "\C-cr" 'reloader-reload) (provide 'reloader)