From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 23 Oct 2007 08:42:39 +0000 (+0000)
Subject: (ad-make-advised-docstring): Add ad-advice-info text property to doc string.
X-Git-Tag: emacs-pretest-23.0.90~10119
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5eceba819dfe8df19af47ac58f9a1c5a9bc43ad2;p=emacs.git

(ad-make-advised-docstring): Add ad-advice-info text property to doc string.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7e3b094a4b4..406d29a2cc2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-23  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* emacs-lisp/advice.el (ad-make-advised-docstring):
+	Add ad-advice-info text property to doc string.
+
 2007-10-23  Glenn Morris  <rgm@gnu.org>
 
 	* progmodes/f90.el (f90-do-indent, f90-if-indent)
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 4a5c9149a43..21136721e60 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -3004,8 +3004,10 @@ in any of these classes."
 	(if advice-docstring
 	    (push advice-docstring paragraphs))))
     (setq origdoc (if paragraphs
-		      ;; separate paragraphs with blank lines:
-		      (mapconcat 'identity (nreverse paragraphs) "\n\n")))
+		      (propertize
+		       ;; separate paragraphs with blank lines:
+		       (mapconcat 'identity (nreverse paragraphs) "\n\n")
+		       'ad-advice-info function)))
     (help-add-fundoc-usage origdoc usage)))
 
 (defun ad-make-plain-docstring (function)