# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1099098418 0
# Node ID 2f9fe20953a6fdea3980fa4d1f186705aba62f95
# Parent  ad073c2f3180e7043625a328991549fa92a22c85
(variable-at-point): read -> intern.

diff -r ad073c2f3180 -r 2f9fe20953a6 lisp/help-fns.el
--- a/lisp/help-fns.el	Fri Oct 29 23:34:58 2004 +0000
+++ b/lisp/help-fns.el	Sat Oct 30 01:06:58 2004 +0000
@@ -473,7 +473,7 @@
 		(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))