Function: enriched-make-annotation

enriched-make-annotation is a byte-compiled function defined in enriched.el.gz.

Signature

(enriched-make-annotation INTERNAL-ANN POSITIVE)

Documentation

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.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/enriched.el.gz
(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 internal-ann)
	 (format enriched-annotation-format (if positive "" "/") internal-ann))
	;; Otherwise it is an annotation with parameters, represented as a list
	(positive
	 (let ((item (car internal-ann))
	       (params (cdr internal-ann)))
	   (concat (format enriched-annotation-format "" item)
		   (mapconcat (lambda (i) (concat "<param>" i "</param>"))
			      params ""))))
	(t (format enriched-annotation-format "/" (car internal-ann)))))