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).
2022-06-11 03:45:46 +03:00 · 2022-06-11 03:45:46 +03:00 · cb0c697e21
commit cb0c697e21
parent 3247c31d67
1 changed files with 4 additions and 1 deletions
--- 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,