From: Juri Linkov <juri@jurta.org>
Date: Sat, 30 Oct 2004 01:06:58 +0000 (+0000)
Subject: (variable-at-point): read -> intern.
X-Git-Tag: ttn-vms-21-2-B4~4318
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=95da5522bbfacdcda9c0ef0dd85387bbdcacc71b;p=emacs.git

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

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))