[Emacs-diffs] master d0079c9: In `widget-color--choose-action' quit *Color* window instead of deleting it

[Martin Rudalics]

branch: master
commit d0079c9324e575107b8a90944c9012dd3842946c
Author: Andreas Politz <address@hidden>
Commit: Martin Rudalics <address@hidden>

    In `widget-color--choose-action' quit *Color* window instead of deleting it
    
    * lisp/wid-edit.el (widget-color--choose-action): Quit *Color*
    window instead of deleting it.
---
 lisp/wid-edit.el |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index ac2e981..e98ac18 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -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)