diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-05-18 08:13:37 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-05-18 08:13:37 +0000 |
| commit | e629f0884e5803c0d303d07dd137d4321c7477ce (patch) | |
| tree | 41ef57751430cca649b804004226987b7ae9d24c /src/doc.c | |
| parent | 1f7773424fb8c9b1b51f9eec2dd7ee7ade029ba5 (diff) | |
| download | emacs-e629f0884e5803c0d303d07dd137d4321c7477ce.tar.gz | |
entered into RCS
Diffstat (limited to 'src/doc.c')
| -rw-r--r-- | src/doc.c | 23 |
1 files changed, 10 insertions, 13 deletions
diff --git a/src/doc.c b/src/doc.c index 48f6c4df685..6dceb587fcb 100644 --- a/src/doc.c +++ b/src/doc.c @@ -105,19 +105,14 @@ DEFUN ("documentation", Fdocumentation, Sdocumentation, 1, 2, 0, "Return the documentation string of FUNCTION.\n\ Unless a non-nil second argument is given, the\n\ string is passed through `substitute-command-keys'.") - (fun1, raw) - Lisp_Object fun1, raw; + (function, raw) + Lisp_Object function, raw; { Lisp_Object fun; Lisp_Object funcar; Lisp_Object tem, doc; - fun = fun1; - while (XTYPE (fun) == Lisp_Symbol) - { - QUIT; - fun = Fsymbol_function (fun); - } + fun = Findirect_function (function); switch (XTYPE (fun)) { @@ -149,11 +144,11 @@ string is passed through `substitute-command-keys'.") funcar = Fcar (fun); if (XTYPE (funcar) != Lisp_Symbol) return Fsignal (Qinvalid_function, Fcons (fun, Qnil)); - if (XSYMBOL (funcar) == XSYMBOL (Qkeymap)) + else if (EQ (funcar, Qkeymap)) return build_string ("Prefix command (definition is a keymap associating keystrokes with\n\ subcommands.)"); - if (XSYMBOL (funcar) == XSYMBOL (Qlambda) - || XSYMBOL (funcar) == XSYMBOL (Qautoload)) + else if (EQ (funcar, Qlambda) + || EQ (funcar, Qautoload)) { tem = Fcar (Fcdr (Fcdr (fun))); if (XTYPE (tem) == Lisp_String) @@ -162,10 +157,12 @@ subcommands.)"); doc = get_doc_string (XFASTINT (tem)); else return Qnil; + + break; } - if (XSYMBOL (funcar) == XSYMBOL (Qmocklisp)) + else if (EQ (funcar, Qmocklisp)) return Qnil; - if (XSYMBOL (funcar) == XSYMBOL (Qmacro)) + else if (EQ (funcar, Qmacro)) return Fdocumentation (Fcdr (fun), raw); /* Fall through to the default to report an error. */ |