Use load-read-function in byte-compile-from-buffer

* lisp/emacs-lisp/bytecomp.el (byte-compile-from-buffer): Use
load-read-function.

* src/lread.c (syms_of_lread): Adjust doc string (bug#33723).

diff --git a/etc/NEWS b/etc/NEWS
index 95e53852cea7d4bbbad953b52097c3fe56e233cf..048f6d5598b86be23251a4d9d5ecd8f0df7f315c 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -872,6 +872,10 @@ Emacs buffers, like indentation and the like.  The new ert function
 \f
 * Incompatible Lisp Changes in Emacs 29.1
 
+---
+** 'byte-compile-from-buffer' now uses 'load-read-function'.
+It previously called 'read' directly.
+
 ** User option 'mail-source-ignore-errors' is now obsolete.
 The whole mechanism for prompting users to continue in case of
 mail-source errors has been removed, so this option is no longer
@@ -977,6 +981,7 @@ functions.
 \f
 * Lisp Changes in Emacs 29.1
 
++++
 ** New function 'readablep'.
 This function says whether an object can be written out and then
 read back by the Emacs Lisp reader.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 7dfe21441bd5c1133d379d533b9aa63604daeaec..436783819faff89a658ade4f84328502bb77a599 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -2294,7 +2294,7 @@ With argument ARG, insert value in current buffer after the form."
          (setq byte-compile-read-position (point)
                byte-compile-last-position byte-compile-read-position)
           (let* ((lread--unescaped-character-literals nil)
-                 (form (read inbuffer))
+                 (form (funcall load-read-function inbuffer))
                  (warning (byte-run--unescaped-character-literals-warning)))
             (when warning (byte-compile-warn "%s" warning))
            (byte-compile-toplevel-file-form form)))

diff --git a/src/lread.c b/src/lread.c
index 2eff20f15df4634b487cbe1a16823a1095ddf2d4..a0af98fa0fbe2081a5975b8073dccdf577fafbea 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -5272,7 +5272,9 @@ of the file, regardless of whether or not it has the `.elc' extension.  */);
   Vcurrent_load_list = Qnil;
 
   DEFVAR_LISP ("load-read-function", Vload_read_function,
-              doc: /* Function used by `load' and `eval-region' for reading expressions.
+              doc: /* Function used for reading expressions.
+It is used by `load', `eval-region' and `byte-compile-from-buffer'.
+
 Called with a single argument (the stream from which to read).
 The default is to use the function `read'.  */);
   DEFSYM (Qread, "read");