[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/advice.el,v

[Juanma Barranquero]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      07/10/23 08:40:54

Index: advice.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/advice.el,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -b -r1.57 -r1.58
--- advice.el   16 Oct 2007 02:37:29 -0000      1.57
+++ advice.el   23 Oct 2007 08:40:53 -0000      1.58
@@ -3004,8 +3004,10 @@
        (if advice-docstring
            (push advice-docstring paragraphs))))
     (setq origdoc (if paragraphs
+                     (propertize
                      ;; separate paragraphs with blank lines:
-                     (mapconcat 'identity (nreverse paragraphs) "\n\n")))
+                      (mapconcat 'identity (nreverse paragraphs) "\n\n")
+                      'ad-advice-info function)))
     (help-add-fundoc-usage origdoc usage)))
 
 (defun ad-make-plain-docstring (function)