# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1052229510 0
# Node ID b64d29a027371a697d4a595f47101d9010d420f8
# Parent  e19ad6e42e63ddbc351418b68fd913db4d2f4ee8
(ad-make-advised-docstring): Adjust usage for new help-add-fundoc-usage.

diff -r e19ad6e42e63 -r b64d29a02737 lisp/emacs-lisp/advice.el
--- a/lisp/emacs-lisp/advice.el	Tue May 06 13:54:21 2003 +0000
+++ b/lisp/emacs-lisp/advice.el	Tue May 06 13:58:30 2003 +0000
@@ -3005,7 +3005,7 @@
 	  (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))