From cb0c697e21f710cb8df56c33d951f780a2a1e40e Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Sat, 11 Jun 2022 03:45:46 +0300 Subject: [PATCH] elisp-completion-at-point: Replace last usage of 'read' * lisp/progmodes/elisp-mode.el (elisp-completion-at-point): Replace the last remaining usage of 'read' (bug#55491). --- lisp/progmodes/elisp-mode.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el index 77bf3f1ed18..5989e1161b5 100644 --- a/lisp/progmodes/elisp-mode.el +++ b/lisp/progmodes/elisp-mode.el @@ -697,7 +697,10 @@ functions are annotated with \"\" via the (let ((c (char-after))) (if (eq c ?\() ?\( (if (memq (char-syntax c) '(?w ?_)) - (read (current-buffer)))))) + (let ((pt (point))) + (forward-sexp) + (intern-soft + (buffer-substring pt (point)))))))) (error nil)))) (pcase parent ;; FIXME: Rather than hardcode special cases here, -- 2.39.2