Parent Directory | Revision Log | Patch
revision 1.259.4.6 by miles, Wed Oct 27 05:41:58 2004 UTC | revision 1.259.4.7 by miles, Thu Nov 4 08:55:35 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 |