diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-10-23 08:42:39 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-10-23 08:42:39 +0000 |
| commit | 5eceba819dfe8df19af47ac58f9a1c5a9bc43ad2 (patch) | |
| tree | 47357a3bb1894385e3d861968114032fd9644a39 /lisp/emacs-lisp/advice.el | |
| parent | ca0766749c3b78ae635e52d47b7c8979212e2483 (diff) | |
| download | emacs-5eceba819dfe8df19af47ac58f9a1c5a9bc43ad2.tar.gz | |
(ad-make-advised-docstring): Add ad-advice-info text property to doc string.
Diffstat (limited to 'lisp/emacs-lisp/advice.el')
| -rw-r--r-- | lisp/emacs-lisp/advice.el | 6 |
1 files changed, 4 insertions, 2 deletions
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) |