[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master cb0c697e21: elisp-completion-at-point: Replace last usage of 'rea
From: |
Dmitry Gutov |
Subject: |
master cb0c697e21: elisp-completion-at-point: Replace last usage of 'read' |
Date: |
Fri, 10 Jun 2022 20:45:55 -0400 (EDT) |
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,
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master cb0c697e21: elisp-completion-at-point: Replace last usage of 'read',
Dmitry Gutov <=