Function: w32-tty-set-base-colors

w32-tty-set-base-colors is a byte-compiled function defined in w32console.el.gz.

Signature

(w32-tty-set-base-colors VTP)

Documentation

Re-order w32-tty-standard-colors based on the value of VTP.

Source Code

;; Defined in /usr/src/emacs/lisp/term/w32console.el.gz
(defun w32-tty-set-base-colors (vtp)
  "Re-order `w32-tty-standard-colors' based on the value of VTP."
  (let ((seq
         (if vtp
             '("black"     "red"          "green"      "brown"
               "blue"      "magenta"      "cyan"       "lightgray"
               "darkgray"  "lightred"     "lightgreen" "yellow"
               "lightblue" "lightmagenta" "lightcyan"  "white")
           '("black"     "blue"         "green"      "cyan"
             "red"       "magenta"      "brown"      "lightgray"
             "darkgray"  "lightblue"    "lightgreen" "lightcyan"
             "lightred"  "lightmagenta" "yellow"     "white"))))
    (setq w32-tty-standard-colors
          (mapcar
           (lambda (n) (let ((c (assoc n w32-tty-standard-colors)))
                    (cons n (cons (seq-position seq n) (cddr c)))))
           seq))))