Don't bug out in advice--make-docstring when there's not doc string

* lisp/emacs-lisp/nadvice.el (advice--make-docstring): Don't bug
out on functions with no documentation (bug#58284).

diff --git a/lisp/emacs-lisp/nadvice.el b/lisp/emacs-lisp/nadvice.el
index b4acd423b8deea78a145f44ac67bb9ab6f0a3064..429052bfdf3e03fe776261d944514ec100fb284a 100644 (file)
--- a/lisp/emacs-lisp/nadvice.el
+++ b/lisp/emacs-lisp/nadvice.el
@@ -157,7 +157,8 @@ DOC is a string where \"FUNCTION\" and \"OLDFUN\" are expected.")
          (when before
            (insert before)
            (ensure-empty-lines 1))
-         (insert origdoc)
+         (when origdoc
+           (insert origdoc))
          (when after
            (ensure-empty-lines 1)
            (insert after))