Function: ebnf-format-color

ebnf-format-color is a byte-compiled function defined in ebnf2ps.el.gz.

Signature

(ebnf-format-color FORMAT-STR COLOR DEFAULT)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/ebnf2ps.el.gz
(defun ebnf-format-color (format-str color default)
  (let* ((the-color (or color default))
	 (rgb (ps-color-scale the-color)))
    (format format-str
	    (concat "["
		    (ebnf-format-float (nth 0 rgb) (nth 1 rgb) (nth 2 rgb))
		    "]")
	    the-color)))