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

diff --git a/lisp/simple.el b/lisp/simple.el
index e804f717b01fedd45b47a051b1af28d8b33b5b93..5f676ea50de5d44fdcaf0a184d27e535a71e3c8e 100644 (file)
--- 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))))))