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

2004-10-30 01:06:58 +00:00
parent 707994d262
commit 95da5522bb
1 changed files with 1 additions and 1 deletions
--- 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))