Parent Directory | Revision Log | Patch
revision 1.56 by pfeiffer, Wed Oct 13 18:54:21 2004 UTC | revision 1.57 by jurta, Sat Oct 30 01:06:58 2004 UTC | |
---|---|---|
# | Line 473 Return 0 if there is no such symbol." | Line 473 Return 0 if there is no such symbol." |
473 | (and (symbolp obj) (boundp obj) obj)))) | (and (symbolp obj) (boundp obj) obj)))) |
474 | (error nil)) | (error nil)) |
475 | (let* ((str (find-tag-default)) | (let* ((str (find-tag-default)) |
476 | (obj (if str (read str)))) | (obj (if str (intern str)))) |
477 | (and (symbolp obj) (boundp obj) obj)) | (and (symbolp obj) (boundp obj) obj)) |
478 | 0)) | 0)) |
479 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |