Mercurial > hg > xemacs-beta

comparison src/doc.c @ 4381:3906442b491b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Improve style and add tests for 'built-in-symbol-file'.
author Stephen J. Turnbull <stephen@xemacs.org>
date Thu, 03 Jan 2008 01:33:59 -0800
parents 751d82f59283
children 061e030e3270
comparison
equal deleted inserted replaced
4380:461fdb92f3b6 4381:3906442b491b
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 && !NILP(fun = Fcdr_safe (fun)) 522 && (fun = Fcdr_safe (fun), SUBRP (fun))))
523 && (SUBRP (fun))))
524 { 523 {
525 if (XSUBR (fun)->doc == 0) 524 if (XSUBR (fun)->doc == 0)
526 return Qnil; 525 return Qnil;
527 526
528 if ((EMACS_INT) XSUBR (fun)->doc >= 0) 527 if ((EMACS_INT) XSUBR (fun)->doc >= 0)