From: Andreas Politz <politza@hochschule-trier.de>
Date: Thu, 20 Aug 2015 06:54:45 +0000 (+0200)
Subject: In `widget-color--choose-action' quit *Color* window instead of deleting it
X-Git-Tag: emacs-25.0.90~1338
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d0079c9324e575107b8a90944c9012dd3842946c;p=emacs.git

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.
---

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index ac2e9810331..e98ac18fc5e 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)