# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 934278677 0
# Node ID 76f5f50e774209c7a93acb59ef3f251aa07164b4
# Parent  e62d2121822f9dde81b1069b2ff7bed437c62e52
(ad-make-single-advice-docstring): Treat case with no doctring specially.

diff -r e62d2121822f -r 76f5f50e7742 lisp/emacs-lisp/advice.el
--- a/lisp/emacs-lisp/advice.el	Mon Aug 09 08:56:31 1999 +0000
+++ b/lisp/emacs-lisp/advice.el	Tue Aug 10 09:51:17 1999 +0000
@@ -2983,10 +2983,14 @@
 		   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.