diff options
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -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)) |