Commit 8bae7480 authored by Dave Love's avatar Dave Love

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

parent b38d1cc7
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment