Commit d6288299 authored by Juri Linkov's avatar Juri Linkov
Browse files

(function-called-at-point): read -> intern.

parent 95da5522
2004-10-30 Juri Linkov <juri@jurta.org>
* help.el (function-called-at-point):
* help-fns.el (variable-at-point): read -> intern.
2004-10-30 Simon Josefsson <jas@extundo.com>
* progmodes/autoconf.el (autoconf-font-lock-keywords): Recognize
......
......@@ -267,7 +267,7 @@ If that doesn't give a function, return nil."
(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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment