Mercurial > emacs
changeset 28334:f9cb3463ee2a
(Qfunction_documentation): New variable.
(syms_of_doc): Initialize Qfunction_documentation.
(Fdocumentation): If FUNCTION is a symbol with non-nil
`function-documentation' property, return a documentation derived
from that.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Sun, 26 Mar 2000 19:32:02 +0000 |
| parents | 45588bd8d17e |
| children | 012be509f4f4 |
| files | src/doc.c |
| diffstat | 1 files changed, 13 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/doc.c Sun Mar 26 18:45:57 2000 +0000 +++ b/src/doc.c Sun Mar 26 19:32:02 2000 +0000 @@ -43,6 +43,8 @@ Lisp_Object Vdoc_file_name, Vhelp_manyarg_func_alist; +Lisp_Object Qfunction_documentation; + extern char *index (); extern Lisp_Object Voverriding_local_map; @@ -309,12 +311,17 @@ Lisp_Object funcar; Lisp_Object tem, doc; + if (SYMBOLP (function) + && (tem = Fget (function, Qfunction_documentation), + !NILP (tem))) + return Fdocumentation_property (function, Qfunction_documentation, raw); + fun = Findirect_function (function); - if (SUBRP (fun)) { - if (XSUBR (fun)->doc == 0) return Qnil; - if ((EMACS_INT) XSUBR (fun)->doc >= 0) + if (XSUBR (fun)->doc == 0) + return Qnil; + else if ((EMACS_INT) XSUBR (fun)->doc >= 0) doc = build_string (XSUBR (fun)->doc); else doc = get_doc_string (make_number (- (EMACS_INT) XSUBR (fun)->doc), @@ -787,6 +794,9 @@ void syms_of_doc () { + Qfunction_documentation = intern ("function-documentation"); + staticpro (&Qfunction_documentation); + DEFVAR_LISP ("internal-doc-file-name", &Vdoc_file_name, "Name of file containing documentation strings of built-in symbols."); Vdoc_file_name = Qnil;