Mercurial > hg > xemacs-beta
comparison src/doc.c @ 4377:751d82f59283
Fix the union build--check that built-in macro function values are nil, not zero.
2008-01-02 Aidan Kehoe <kehoea@parhasard.net>
* doc.c (Fbuilt_in_symbol_file):
Don't check is fun zero in the condition, check that it's not
nil. Fixes the union build; thank you Stephen.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Wed, 02 Jan 2008 11:16:16 +0100 |
| parents | 69e6352406f0 |
| children | 3906442b491b |
comparison
equal
deleted
inserted
replaced
| 4374:4939bde48d12 | 4377:751d82f59283 |
|---|---|
| 517 if (EQ(Ffboundp(symbol), Qt) && (EQ(type, Qnil) || EQ(type, Qdefun))) | 517 if (EQ(Ffboundp(symbol), Qt) && (EQ(type, Qnil) || EQ(type, Qdefun))) |
| 518 { | 518 { |
| 519 fun = Findirect_function (symbol); | 519 fun = Findirect_function (symbol); |
| 520 | 520 |
| 521 if (SUBRP (fun) || (CONSP(fun) && (EQ (Qmacro, Fcar_safe (fun))) | 521 if (SUBRP (fun) || (CONSP(fun) && (EQ (Qmacro, Fcar_safe (fun))) |
| 522 && (fun = Fcdr_safe (fun)) | 522 && !NILP(fun = Fcdr_safe (fun)) |
| 523 && (SUBRP (fun)))) | 523 && (SUBRP (fun)))) |
| 524 { | 524 { |
| 525 if (XSUBR (fun)->doc == 0) | 525 if (XSUBR (fun)->doc == 0) |
| 526 return Qnil; | 526 return Qnil; |
| 527 | 527 |