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

2 files changed, 9 insertions, 2 deletions

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)