Mercurial > emacs

comparison src/doc.c @ 90295:4b3d39451150

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-14 Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 58-65) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 22-28) - Update from CVS - Merge from emacs--devo--0 - Update from CVS: lisp/gnus.el: Remove bogus comment.
author Miles Bader <miles@gnu.org>
date Sat, 11 Feb 2006 00:11:19 +0000
parents c5406394f567 768bd941cf0d
children d57ee9eab157
comparison
equal deleted inserted replaced
90294:c5406394f567 90295:4b3d39451150
384 if (SYMBOLP (function) 384 if (SYMBOLP (function)
385 && (tem = Fget (function, Qfunction_documentation), 385 && (tem = Fget (function, Qfunction_documentation),
386 !NILP (tem))) 386 !NILP (tem)))
387 return Fdocumentation_property (function, Qfunction_documentation, raw); 387 return Fdocumentation_property (function, Qfunction_documentation, raw);
388 388
389 fun = Findirect_function (function); 389 fun = Findirect_function (function, Qnil);
390 if (SUBRP (fun)) 390 if (SUBRP (fun))
391 { 391 {
392 if (XSUBR (fun)->doc == 0) 392 if (XSUBR (fun)->doc == 0)
393 return Qnil; 393 return Qnil;
394 else if ((EMACS_INT) XSUBR (fun)->doc >= 0) 394 else if ((EMACS_INT) XSUBR (fun)->doc >= 0)