From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 5 Jan 2002 09:05:35 +0000 (+0000)
Subject: (enriched-make-annotation): Doc fix.
X-Git-Tag: ttn-vms-21-2-B4~17309
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b8a8267bcbba3bb1909315031f763309245ba309;p=emacs.git

(enriched-make-annotation): Doc fix.
---

diff --git a/lisp/enriched.el b/lisp/enriched.el
index dec6c66e483..d3bd7084d15 100644
--- 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