Function: viper-change-cursor-color

viper-change-cursor-color is a byte-compiled function defined in viper-util.el.gz.

Signature

(viper-change-cursor-color NEW-COLOR &optional FRAME)

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/viper-util.el.gz
;; cursor colors
(defun viper-change-cursor-color (new-color &optional frame)
  (if (and (viper-window-display-p) (display-color-p)
           (stringp new-color) (color-defined-p new-color)
	   (not (string= new-color (viper-get-cursor-color))))
      (modify-frame-parameters
       (or frame (selected-frame))
       (list (cons 'cursor-color new-color)))))