Function: cperl-choose-color

cperl-choose-color is a byte-compiled function defined in cperl-mode.el.gz.

Signature

(cperl-choose-color &rest LIST)

Documentation

Old-fashioned way to set colors for syntax highlighting.

Affects faces specific to `cperl-mode` only. Optional argument LIST defines the attribute list for the face.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cperl-mode.el.gz
(defun cperl-choose-color (&rest list)
  "Old-fashioned way to set colors for syntax highlighting.
Affects faces specific to `cperl-mode` only.
Optional argument LIST defines the attribute list for the face."
  (let (answer)
    (while list
      (or answer
          (if (or (color-defined-p (car list))
		  (null (cdr list)))
	      (setq answer (car list))))
      (setq list (cdr list)))
    answer))