From: Dave Love <fx@gnu.org>
Date: Tue, 10 Aug 1999 09:51:17 +0000 (+0000)
Subject: (ad-make-single-advice-docstring): Treat case with no doctring specially.
X-Git-Tag: emacs-pretest-21.0.90~7233
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8bae7480b8bfe970f97e6afbb919ca41c28397f0;p=emacs.git

(ad-make-single-advice-docstring): Treat case with no doctring specially.
---

diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 6148435c308..9f670e8010c 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -2983,10 +2983,14 @@ Example: `(ad-map-arglists '(a &rest args) '(w x y z))' will return
 		   class (ad-advice-name advice)
 		   (if advice-docstring "\n" "")
 		   (or advice-docstring "")))
-	  (t (format "%s-advice `%s':%s%s"
-		     (capitalize (symbol-name class)) (ad-advice-name advice)
-		     (if advice-docstring "\n" "")
-		     (or advice-docstring ""))))))
+	  (t (if advice-docstring
+		 (format "%s-advice `%s':\n%s"
+			 (capitalize (symbol-name class))
+			 (ad-advice-name advice)
+			 advice-docstring)
+	       (format "%s-advice `%s'."
+		       (capitalize (symbol-name class))
+		       (ad-advice-name advice)))))))
 
 (defun ad-make-advised-docstring (function &optional style)
   ;;"Constructs a documentation string for the advised FUNCTION.