Parent Directory | Revision Log | Patch
revision 1.34.4.4 by miles, Thu Oct 14 08:50:01 2004 UTC | revision 1.34.4.5 by miles, Thu Nov 4 08:55:36 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 |