[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master f4af1137e6: Bind print-symbols-bare to t in byte-compile-from-buf
From: |
Alan Mackenzie |
Subject: |
master f4af1137e6: Bind print-symbols-bare to t in byte-compile-from-buffer |
Date: |
Sun, 23 Jan 2022 11:42:48 -0500 (EST) |
branch: master
commit f4af1137e663f2644a30778a5466909cac26b4b3
Author: Alan Mackenzie <acm@muc.de>
Commit: Alan Mackenzie <acm@muc.de>
Bind print-symbols-bare to t in byte-compile-from-buffer
* lisp/emacs-lisp/bytecomp.el (byte-compile-from-buffer): Bind
print-symbols-bare to t here for the benefit of non-defining forms in
buffers.
---
lisp/emacs-lisp/bytecomp.el | 13 +++++++------
1 file changed, 7 insertions(+), 6 deletions(-)
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 794dc531ea..b4604d0735 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -468,7 +468,7 @@ Return the compile-time value of FORM."
;; 3.2.3.1, "Processing of Top Level Forms". The semantics are very
;; subtle: see test/lisp/emacs-lisp/bytecomp-tests.el for interesting
;; cases.
- (let ((print-symbols-bare t))
+ (let ((print-symbols-bare t)) ; Possibly redundant binding.
(setf form (macroexp-macroexpand form byte-compile-macro-environment)))
(if (eq (car-safe form) 'progn)
(cons 'progn
@@ -510,7 +510,7 @@ Return the compile-time value of FORM."
;; Don't compile here, since we don't know
;; whether to compile as byte-compile-form
;; or byte-compile-file-form.
- (let* ((print-symbols-bare t)
+ (let* ((print-symbols-bare t) ; Possibly
redundant binding.
(expanded
(macroexpand--all-toplevel
form
@@ -2239,6 +2239,7 @@ With argument ARG, insert value in current buffer after
the form."
(case-fold-search nil)
(print-length nil)
(print-level nil)
+ (print-symbols-bare t)
;; Prevent edebug from interfering when we compile
;; and put the output into a file.
;; (edebug-all-defs nil)
@@ -2370,7 +2371,7 @@ Call from the source buffer."
;; Spill output for the native compiler here
(push (make-byte-to-native-top-level :form form :lexical lexical-binding)
byte-to-native-top-level-forms))
- (let ((print-symbols-bare t)
+ (let ((print-symbols-bare t) ; Possibly redundant binding.
(print-escape-newlines t)
(print-length nil)
(print-level nil)
@@ -2407,7 +2408,7 @@ list that represents a doc string reference.
(let ((dynamic-docstrings byte-compile-dynamic-docstrings))
(with-current-buffer byte-compile--outbuffer
(let (position
- (print-symbols-bare t))
+ (print-symbols-bare t)) ; Possibly redundant binding.
;; Insert the doc string, and make it a comment with #@LENGTH.
(and (>= (nth 1 info) 0)
dynamic-docstrings
@@ -2517,7 +2518,7 @@ list that represents a doc string reference.
byte-compile-jump-tables nil))))
(defun byte-compile-preprocess (form &optional _for-effect)
- (let ((print-symbols-bare t))
+ (let ((print-symbols-bare t)) ; Possibly redundant binding.
(setq form (macroexpand-all form byte-compile-macro-environment)))
;; FIXME: We should run byte-optimize-form here, but it currently does not
;; recurse through all the code, so we'd have to fix this first.
@@ -3329,7 +3330,7 @@ lambda-expression."
(setq byte-compile-noruntime-functions
(delq fn byte-compile-noruntime-functions))
;; Delegate the rest to the normal macro definition.
- (let ((print-symbols-bare t))
+ (let ((print-symbols-bare t)) ; Possibly redundant binding.
(macroexpand `(declare-function ,fn ,file ,@args))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master f4af1137e6: Bind print-symbols-bare to t in byte-compile-from-buffer,
Alan Mackenzie <=