From 95da5522bbfacdcda9c0ef0dd85387bbdcacc71b Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sat, 30 Oct 2004 01:06:58 +0000 Subject: [PATCH] (variable-at-point): read -> intern. --- lisp/help-fns.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 57b0b39767e..8f2a1b7fa6e 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -473,7 +473,7 @@ Return 0 if there is no such symbol." (and (symbolp obj) (boundp obj) obj)))) (error nil)) (let* ((str (find-tag-default)) - (obj (if str (read str)))) + (obj (if str (intern str)))) (and (symbolp obj) (boundp obj) obj)) 0)) -- 2.39.5