(ad-make-advised-docstring): Adjust usage for new help-add-fundoc-usage.

diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index a211e1ebba10306f21abee233b874e2128eff768..bc04780272047971f4af5d277b5a838d7ab86c62 100644 (file)
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -3005,7 +3005,7 @@ in any of these classes."
          (ad-real-documentation origdef t))
         (usage (help-split-fundoc origdoc function))
         paragraphs advice-docstring ad-usage)
-    (if usage (setq origdoc (cdr usage) usage (car usage)))
+    (setq usage (if (null usage) t (setq origdoc (cdr usage)) (car usage)))
     (if origdoc (setq paragraphs (list origdoc)))
     (unless (eq style 'plain)
       (push (concat "This " origtype " is advised.") paragraphs))