master cb0c697e21: elisp-completion-at-point: Replace last usage of 'read'

[Dmitry Gutov]

branch: master
commit cb0c697e21f710cb8df56c33d951f780a2a1e40e
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>

    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 77bf3f1ed1..5989e1161b 100644
--- a/lisp/progmodes/elisp-mode.el
+++ b/lisp/progmodes/elisp-mode.el
@@ -697,7 +697,10 @@ functions are annotated with \"<f>\" 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,