diff options
| author | Alan Mackenzie <acm@muc.de> | 2022-01-24 01:08:03 +0000 |
|---|---|---|
| committer | Alan Mackenzie <acm@muc.de> | 2022-01-24 01:08:03 +0000 |
| commit | dfae76c9915454f9ef0885e1bac160a2c480e1d1 (patch) | |
| tree | f46bd79250136b97a0ed066f61e8b3609ce7052c /lisp/emacs-lisp | |
| parent | 6cea4d1fdbdcfd6810bfea70ba58d7a45f2d2384 (diff) | |
| download | emacs-dfae76c9915454f9ef0885e1bac160a2c480e1d1.tar.gz emacs-dfae76c9915454f9ef0885e1bac160a2c480e1d1.tar.bz2 emacs-dfae76c9915454f9ef0885e1bac160a2c480e1d1.zip | |
Expunge read-with-symbol-position and read-symbol-positions-list
These are remnants of the old way of determining byte compiler warning
positions.
* src/lread.c (read_internal_start, read1): Remove initializations amd
manipulations of these variables.
(syms_of_lread): Remove the declarations of the variables.
* lisp/emacs-list/bytecomp.el (compile-defun, byte-compile-from-buffer):
Remove bindings of the variables.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index b4604d07351..a34ba37c04d 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -2215,9 +2215,7 @@ With argument ARG, insert value in current buffer after the form." (start-read-position (point)) (byte-compile-last-warned-form 'nothing) (value (eval - (let ((read-with-symbol-positions (current-buffer)) - (read-symbol-positions-list nil) - (symbols-with-pos-enabled t)) + (let ((symbols-with-pos-enabled t)) (displaying-byte-compile-warnings (byte-compile-sexp (let ((form (read-positioning-symbols (current-buffer)))) @@ -2252,9 +2250,6 @@ With argument ARG, insert value in current buffer after the form." (byte-compile-depth 0) (byte-compile-maxdepth 0) (byte-compile-output nil) - ;; This allows us to get the positions of symbols read. - (read-with-symbol-positions inbuffer) - (read-symbol-positions-list nil) ;; #### This is bound in b-c-close-variables. ;; (byte-compile-warnings byte-compile-warnings) (symbols-with-pos-enabled t)) |