procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/wid-edit.el (widget-color--choose-action): Use a closure

Browse source
This commit is contained in:
Stefan Monnier 2017-07-07 17:02:27 -04:00
parent 21ecda1045
commit 2fcdb95363
1 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/wid-edit.el
View file

@ -3694,15 +3694,17 @@ example:
(defun widget-color--choose-action (widget &optional _event)
(list-colors-display
nil nil
`(lambda (color)
(when (buffer-live-p ,(current-buffer))
(widget-value-set ',(widget-get widget :parent) color)
(let* ((buf (get-buffer "*Colors*"))
(win (get-buffer-window buf 0)))
(if win
(quit-window nil win)
(bury-buffer buf)))
(pop-to-buffer ,(current-buffer))))))
(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))))))
(defun widget-color-sample-face-get (widget)
(let* ((value (condition-case nil