From f0e0271dcc4ed4cb7258d1a76510672cd90f629f Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 4 Apr 2017 22:19:37 -0400 Subject: [PATCH] lang/emacs-lisp: reload recompiled file if older version is loaded --- modules/lang/emacs-lisp/config.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/modules/lang/emacs-lisp/config.el b/modules/lang/emacs-lisp/config.el index 24f95a4c2..b1cbfd60a 100644 --- a/modules/lang/emacs-lisp/config.el +++ b/modules/lang/emacs-lisp/config.el @@ -59,7 +59,15 @@ :commands auto-compile-on-save-mode :config (setq auto-compile-display-buffer nil - auto-compile-use-mode-line nil)) + auto-compile-use-mode-line nil) + (defun +emacs-lisp*load-after-compile (success) + "Reload the current emacs-lisp file after it's recompiled, if an older +version is loaded." + (when (eq success t) + (let ((buffer-path (file-truename buffer-file-name))) + (when (assoc buffer-path load-history) + (load-file buffer-path))))) + (advice-add 'auto-compile-byte-compile :filter-return '+emacs-lisp*load-after-compile)) (def-package! highlight-quoted