From 49d58cd764a36584fcb62ed14d808ee8d9b1726d Mon Sep 17 00:00:00 2001 From: David Morgan Date: Tue, 11 Oct 2022 13:32:34 +0100 Subject: [PATCH] Make recompile function interactive --- .emacs.d/lisp/init-emacs-lisp.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/.emacs.d/lisp/init-emacs-lisp.el b/.emacs.d/lisp/init-emacs-lisp.el index b206d90..1de66c0 100644 --- a/.emacs.d/lisp/init-emacs-lisp.el +++ b/.emacs.d/lisp/init-emacs-lisp.el @@ -21,12 +21,14 @@ (eval-defun edebug-it))) ;; Based on prelude-emacs-lisp.el (defun recompile-init-lisp () + "Recompile elisp files in `user-emacs-directory/lisp'." + (interactive) (when (and (string-prefix-p (expand-file-name "lisp" user-emacs-directory) (file-truename buffer-file-name)) (file-exists-p (byte-compile-dest-file buffer-file-name))) (emacs-lisp-byte-compile))) (defun recompile-init-lisp-on-save () - "Recompile your elc when saving an elisp file. (Adds buffer-local hook)" + "Recompile your elc when saving an elisp file. (Adds buffer-local hook)." (add-hook 'after-save-hook 'recompile-init-lisp nil t)) ;; From prelude-emacs-lisp.el (defun visit-ielm ()