# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1010221535 0
# Node ID 190c648a9f3e9e8e24779b7136f0d44f4bdddacf
# Parent  025e76c82b80c5af2906ac88b554448a00015ce2
(enriched-make-annotation): Doc fix.

diff -r 025e76c82b80 -r 190c648a9f3e lisp/enriched.el
--- a/lisp/enriched.el	Sat Jan 05 00:46:01 2002 +0000
+++ b/lisp/enriched.el	Sat Jan 05 09:05:35 2002 +0000
@@ -310,10 +310,11 @@
     ;; 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