Commit 95da5522 authored by Juri Linkov's avatar Juri Linkov
Browse files

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

parent 707994d2
......@@ -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))
......
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