Function: widget-color-action

widget-color-action is a byte-compiled function defined in wid-edit.el.gz.

Signature

(widget-color-action WIDGET &optional EVENT)

Documentation

Prompt for a color.

Source Code

;; Defined in /usr/src/emacs/lisp/wid-edit.el.gz
(defun widget-color-action (widget &optional event)
  "Prompt for a color."
  (require 'facemenu)
  (let* ((tag (widget-apply widget :menu-tag-get))
	 (prompt (concat tag ": "))
	 (answer (facemenu-read-color prompt)))
    (unless (zerop (length answer))
      (widget-value-set widget answer)
      (widget-setup)
      (widget-apply widget :notify widget event))))