From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 6 May 2003 13:58:30 +0000 (+0000)
Subject: (ad-make-advised-docstring): Adjust usage for new help-add-fundoc-usage.
X-Git-Tag: ttn-vms-21-2-B4~10299
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=824c61ddc607ae740b244d8cee999defc3eae7a0;p=emacs.git

(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 a211e1ebba1..bc047802720 100644
--- 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))