mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

In `widget-color--choose-action' quit *Color* window instead of deleting it

Browse source 
* lisp/wid-edit.el (widget-color--choose-action): Quit *Color*
window instead of deleting it.
This commit is contained in:
Andreas Politz 2015-08-20 08:54:45 +02:00 • committed by Martin Rudalics
parent 186297de6e
commit d0079c9324
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/wid-edit.el
View file

@ -3706,9 +3706,9 @@ example:
(widget-value-set ',(widget-get widget :parent) color)
(let* ((buf (get-buffer "*Colors*"))
(win (get-buffer-window buf 0)))
(bury-buffer buf)
(and win (> (length (window-list)) 1)
(delete-window win)))
(if win
(quit-window nil win)
(bury-buffer buf)))
(pop-to-buffer ,(current-buffer))))))
(defun widget-color-sample-face-get (widget)