From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 4 Nov 2022 15:59:51 +0000 (-0400)
Subject: * lisp/simple.el (function-documentation): Fix bug#59014
X-Git-Tag: emacs-29.0.90~1616^2~308
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=616aa23d8a130a664a2ce3bb05f3518ce0f5a018;p=emacs.git

* lisp/simple.el (function-documentation): Fix bug#59014
---

diff --git a/lisp/simple.el b/lisp/simple.el
index e804f717b01..5f676ea50de 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2647,10 +2647,7 @@ function as needed."
       ((or `(lambda ,_args . ,body) `(closure ,_env ,_args . ,body)
            `(autoload ,_file . ,body))
        (let ((doc (car body)))
-	 (when (and (funcall docstring-p doc)
-	            ;; Handle a doc reference--but these never come last
-	            ;; in the function body, so reject them if they are last.
-	            (or (cdr body) (eq 'autoload (car-safe function))))
+	 (when (funcall docstring-p doc)
            doc)))
       (_ (signal 'invalid-function (list function))))))