diff options
| author | Alan Mackenzie <acm@muc.de> | 2022-02-02 18:03:00 +0000 |
|---|---|---|
| committer | Alan Mackenzie <acm@muc.de> | 2022-02-02 18:03:00 +0000 |
| commit | 27c93778ef15c887a9d26ba198fddbe322d58284 (patch) | |
| tree | 18ceaf93bb809ca61d2cc173cc1345cd71995d0c /lisp/emacs-lisp/bytecomp.el | |
| parent | 8fa8d5310b524c08bfd70ac0ce531db58985e302 (diff) | |
| download | emacs-27c93778ef15c887a9d26ba198fddbe322d58284.tar.gz emacs-27c93778ef15c887a9d26ba198fddbe322d58284.tar.bz2 emacs-27c93778ef15c887a9d26ba198fddbe322d58284.zip | |
Fix bug with M-x compile-defun in a defconst/defvar
* lisp/emacs-lisp/bytecomp.el (compile-defun): Have symbols-with-pos-enabled
bound to non-nil when the eval takes place.
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 9c664ff8fed..ff372151e1b 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -2198,20 +2198,20 @@ With argument ARG, insert value in current buffer after the form." (save-excursion (end-of-defun) (beginning-of-defun) - (let* ((print-symbols-bare t) + (let* ((print-symbols-bare t) ; For the final `message'. (byte-compile-current-file (current-buffer)) (byte-compile-current-buffer (current-buffer)) (start-read-position (point)) (byte-compile-last-warned-form 'nothing) + (symbols-with-pos-enabled t) (value (eval - (let ((symbols-with-pos-enabled t)) - (displaying-byte-compile-warnings - (byte-compile-sexp - (let ((form (read-positioning-symbols (current-buffer)))) - (push form byte-compile-form-stack) - (eval-sexp-add-defvars - form - start-read-position))))) + (displaying-byte-compile-warnings + (byte-compile-sexp + (let ((form (read-positioning-symbols (current-buffer)))) + (push form byte-compile-form-stack) + (eval-sexp-add-defvars + form + start-read-position)))) lexical-binding))) (cond (arg (message "Compiling from buffer... done.") |