diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-22 16:37:14 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-22 16:37:14 +0100 |
| commit | 79e54a1b757dcc127e5dd82fb492227164cb78c6 (patch) | |
| tree | 73c49a3129567245e07b4136a885f941f741f231 /lisp/emacs-lisp/bytecomp.el | |
| parent | 3b33a143806c9bc845ccb0fdc19b09f2a49afbe6 (diff) | |
| download | emacs-79e54a1b757dcc127e5dd82fb492227164cb78c6.tar.gz emacs-79e54a1b757dcc127e5dd82fb492227164cb78c6.tar.bz2 emacs-79e54a1b757dcc127e5dd82fb492227164cb78c6.zip | |
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).
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 7dfe21441bd..436783819fa 100644 --- 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))) |