Parent Directory | Revision Log | Patch
revision 1.270 by kfstorm, Tue Oct 26 12:59:44 2004 UTC | revision 1.271 by jurta, Sat Oct 30 01:07:20 2004 UTC | |
---|---|---|
# | Line 267 If that doesn't give a function, return | Line 267 If that doesn't give a function, return |
267 | (and (symbolp obj) (fboundp obj) obj)))) | (and (symbolp obj) (fboundp obj) obj)))) |
268 | (error nil)))) | (error nil)))) |
269 | (let* ((str (find-tag-default)) | (let* ((str (find-tag-default)) |
270 | (obj (if str (read str)))) | (obj (if str (intern str)))) |
271 | (and (symbolp obj) (fboundp obj) obj)))) | (and (symbolp obj) (fboundp obj) obj)))) |
272 | ||
273 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |