# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1099098440 0
# Node ID 9af430d690ed4ee4beb5e9152ea35c4765a0ea51
# Parent  2f9fe20953a6fdea3980fa4d1f186705aba62f95
(function-called-at-point): read -> intern.

diff -r 2f9fe20953a6 -r 9af430d690ed lisp/help.el
--- a/lisp/help.el	Sat Oct 30 01:06:58 2004 +0000
+++ b/lisp/help.el	Sat Oct 30 01:07:20 2004 +0000
@@ -267,7 +267,7 @@
 		      (and (symbolp obj) (fboundp obj) obj))))
 	      (error nil))))
       (let* ((str (find-tag-default))
-	     (obj (if str (read str))))
+	     (obj (if str (intern str))))
 	(and (symbolp obj) (fboundp obj) obj))))