procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Juri Linkov 2004-10-30 01:06:58 +00:00
parent 707994d262
commit 95da5522bb
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/help-fns.el
View file

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