From: Basil L. Contovounesios <contovob@tcd.ie>
Date: Wed, 18 Oct 2023 13:33:51 +0000 (+0200)
Subject: Print bare symbols for EMACS_GENERATE_DYNVARS
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8fd24a559990d08d79d5a543b099cdeff6948e97;p=emacs.git

Print bare symbols for EMACS_GENERATE_DYNVARS

* lisp/emacs-lisp/bytecomp.el (byte-compile--load-dynvars): Remove
redundant goto-char.
(byte-compile-file): Bind print-symbols-bare around .dynvars file
generation.  (Bug#66628)

(cherry picked from commit dcc4cec04ada100d4389393500bdc94018e180c8)
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 11a5e2a3b7f..7a4e646ec68 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -2150,7 +2150,6 @@ If compilation is needed, this functions returns the result of
   (and file (not (equal file ""))
        (with-temp-buffer
          (insert-file-contents file)
-         (goto-char (point-min))
          (let ((vars nil)
                var)
            (while (ignore-errors (setq var (read (current-buffer))))
@@ -2373,7 +2372,8 @@ See also `emacs-lisp-byte-compile-and-load'."
         (let ((gen-dynvars (getenv "EMACS_GENERATE_DYNVARS")))
           (when (and gen-dynvars (not (equal gen-dynvars ""))
                      byte-compile--seen-defvars)
-            (let ((dynvar-file (concat target-file ".dynvars")))
+            (let ((dynvar-file (concat target-file ".dynvars"))
+                  (print-symbols-bare t))
               (message "Generating %s" dynvar-file)
               (with-temp-buffer
                 (dolist (var (delete-dups byte-compile--seen-defvars))