diff options
| author | Andrea Corallo <akrl@sdf.org> | 2023-03-06 17:27:32 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2023-03-06 17:29:36 +0100 |
| commit | 0e3c7ac13da7039d873fdd0f879c2bea75fe7d5a (patch) | |
| tree | b43e48535b324b7d499466a2a7c07b1fab56feda | |
| parent | 4a7e657389a2c6367911b381bdf86dd83c09d325 (diff) | |
| download | emacs-0e3c7ac13da7039d873fdd0f879c2bea75fe7d5a.tar.gz | |
* Fix `emacs-lisp-native-compile-and-load' for (bug#61917)
* lisp/progmodes/elisp-mode.el (emacs-lisp-native-compile-and-load):
Don't load if no compialtion happened.
| -rw-r--r-- | lisp/progmodes/elisp-mode.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el index b2709616d22..6fbb87fa3a8 100644 --- a/lisp/progmodes/elisp-mode.el +++ b/lisp/progmodes/elisp-mode.el @@ -224,7 +224,8 @@ Use `emacs-lisp-byte-compile-and-load' in combination with native compilation." (interactive nil emacs-lisp-mode) (emacs-lisp--before-compile-buffer) - (load (native-compile buffer-file-name))) + (when-let ((out (native-compile buffer-file-name))) + (load out))) (defun emacs-lisp-macroexpand () "Macroexpand the form after point. |