Function: widget-color--choose-action

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

Signature

(widget-color--choose-action WIDGET &optional EVENT)

Source Code

;; Defined in /usr/src/emacs/lisp/wid-edit.el.gz
(defun widget-color--choose-action (widget &optional _event)
  (require 'facemenu)
  (list-colors-display
   nil nil
   (let ((cbuf (current-buffer))
         (wp (widget-get widget :parent)))
     (lambda (color)
       (when (buffer-live-p cbuf)
	 (widget-value-set wp color)
	 (let* ((buf (get-buffer "*Colors*"))
                (win (get-buffer-window buf 0)))
	   (if win
	       (quit-window nil win)
	     (bury-buffer buf)))
	 (pop-to-buffer cbuf))))))