Mercurial > emacs
changeset 13521:13e55327ef5e
(Fdocumentation): Reject a file reference
at the end of a lambda body.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 11 Nov 1995 23:48:53 +0000 |
| parents | 8c7a3533a688 |
| children | 6a97ea1245b5 |
| files | src/doc.c |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/doc.c Sat Nov 11 23:48:29 1995 +0000 +++ b/src/doc.c Sat Nov 11 23:48:53 1995 +0000 @@ -309,10 +309,15 @@ else if (EQ (funcar, Qlambda) || EQ (funcar, Qautoload)) { - tem = Fcar (Fcdr (Fcdr (fun))); + Lisp_Object tem1; + tem1 = Fcdr (Fcdr (fun)); + tem = Fcar (tem1); if (STRINGP (tem)) doc = tem; - else if (NATNUMP (tem) || CONSP (tem)) + /* Handle a doc reference--but these never come last + in the function body, so reject them if they are last. */ + else if ((NATNUMP (tem) || CONSP (tem)) + && ! NILP (XCONS (tem1)->cdr)) doc = get_doc_string (tem); else return Qnil;