Mercurial > emacs

changeset 50842:b64d29a02737

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ad-make-advised-docstring): Adjust usage for new help-add-fundoc-usage.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 06 May 2003 13:58:30 +0000
parents e19ad6e42e63
children bc3a5a6b96ab
files lisp/emacs-lisp/advice.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))