(enriched-make-annotation): Doc fix.

diff --git a/lisp/enriched.el b/lisp/enriched.el
index dec6c66e4834625e22fef4fce1070209a0735be7..d3bd7084d15440130134cf81c2a3d27772b3c433 100644 (file)
--- a/lisp/enriched.el
+++ b/lisp/enriched.el
@@ -310,10 +310,11 @@ the region, and the START and END of each region."
     ;; Return new end.
     (point-max)))
 
-(defun enriched-make-annotation (name positive)
-  "Format an annotation called NAME.
-If POSITIVE is non-nil, this is the opening annotation, if nil, this is the
-matching close."
+(defun enriched-make-annotation (internal-ann positive)
+  "Format an annotation INTERNAL-ANN.
+INTERNAL-ANN may be a string, for a flag, or a list of the form (PARAM VALUE).
+If POSITIVE is non-nil, this is the opening annotation;
+if nil, the matching close."
   (cond ((stringp name)
         (format enriched-annotation-format (if positive "" "/") name))
        ;; Otherwise it is an annotation with parameters, represented as a list