diff options
| -rw-r--r-- | lisp/emacs-lisp/advice.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el index 6148435c308..9f670e8010c 100644 --- a/lisp/emacs-lisp/advice.el +++ b/lisp/emacs-lisp/advice.el | |||
| @@ -2983,10 +2983,14 @@ Example: `(ad-map-arglists '(a &rest args) '(w x y z))' will return | |||
| 2983 | class (ad-advice-name advice) | 2983 | class (ad-advice-name advice) |
| 2984 | (if advice-docstring "\n" "") | 2984 | (if advice-docstring "\n" "") |
| 2985 | (or advice-docstring ""))) | 2985 | (or advice-docstring ""))) |
| 2986 | (t (format "%s-advice `%s':%s%s" | 2986 | (t (if advice-docstring |
| 2987 | (capitalize (symbol-name class)) (ad-advice-name advice) | 2987 | (format "%s-advice `%s':\n%s" |
| 2988 | (if advice-docstring "\n" "") | 2988 | (capitalize (symbol-name class)) |
| 2989 | (or advice-docstring "")))))) | 2989 | (ad-advice-name advice) |
| 2990 | advice-docstring) | ||
| 2991 | (format "%s-advice `%s'." | ||
| 2992 | (capitalize (symbol-name class)) | ||
| 2993 | (ad-advice-name advice))))))) | ||
| 2990 | 2994 | ||
| 2991 | (defun ad-make-advised-docstring (function &optional style) | 2995 | (defun ad-make-advised-docstring (function &optional style) |
| 2992 | ;;"Constructs a documentation string for the advised FUNCTION. | 2996 | ;;"Constructs a documentation string for the advised FUNCTION. |