Function: semantic--format-colorize-merge-text

semantic--format-colorize-merge-text is a byte-compiled function defined in format.el.gz.

Signature

(semantic--format-colorize-merge-text PRECOLOREDTEXT FACE-CLASS)

Documentation

Apply onto PRECOLOREDTEXT a color associated with FACE-CLASS.

FACE-CLASS is a tag type found in semantic-formatface-alist. See that variable for details on adding new types.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/format.el.gz
(defun semantic--format-colorize-merge-text (precoloredtext face-class)
  "Apply onto PRECOLOREDTEXT a color associated with FACE-CLASS.
FACE-CLASS is a tag type found in `semantic-formatface-alist'.
See that variable for details on adding new types."
  (let ((face (cdr-safe (assoc face-class semantic-format-face-alist)))
	(newtext (concat precoloredtext)))
    (alter-text-property 0 (length newtext) 'face
			 (lambda (current-face)
			   (let ((cf
				  (cond ((facep current-face)
					 (list current-face))
					((listp current-face)
					 current-face)
					(t nil)))
				 (nf
				  (cond ((facep face)
					 (list face))
					((listp face)
					 face)
					(t nil))))
			     (append cf nf)))
			 newtext)
    newtext))