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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7e3b094a4b41ab00f2996935e5c6e63da0a789eb..406d29a2cc2d80dc3d7a4b769618c5878872c519 100644 (file)
--- 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 4a5c9149a4382d7cf568d5e35a7af683eefd3b6a..21136721e60b04a691dc34d2bc86b0c89953e2a0 100644 (file)
--- 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)