mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-13 01:20:28 -08:00
Code Issues Projects Releases Wiki Activity

(ad-make-single-advice-docstring): Treat case with no doctring specially.

Browse source
This commit is contained in:
Dave Love 1999-08-10 09:51:17 +00:00
parent b38d1cc78e
commit 8bae7480b8
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/emacs-lisp/advice.el
View file

@ -2983,10 +2983,14 @@ Example: `(ad-map-arglists '(a &rest args) '(w x y z))' will return
class (ad-advice-name advice)
(if advice-docstring "\n" "")
(or advice-docstring "")))
(t (format "%s-advice `%s':%s%s"
(capitalize (symbol-name class)) (ad-advice-name advice)
(if advice-docstring "\n" "")
(or advice-docstring ""))))))
(t (if advice-docstring
(format "%s-advice `%s':\n%s"
(capitalize (symbol-name class))
(ad-advice-name advice)
advice-docstring)
(format "%s-advice `%s'."
(capitalize (symbol-name class))
(ad-advice-name advice)))))))
(defun ad-make-advised-docstring (function &optional style)
;;"Constructs a documentation string for the advised FUNCTION.