From b8a8267bcbba3bb1909315031f763309245ba309 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 5 Jan 2002 09:05:35 +0000 Subject: [PATCH] (enriched-make-annotation): Doc fix. --- lisp/enriched.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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 -- 2.39.5