(variable-at-point): read -> intern.

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 57b0b39767e244daccdf794d81328ac1d0733069..8f2a1b7fa6e4ad2181150e1e61c5523d4107c748 100644 (file)
--- 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))