From d0079c9324e575107b8a90944c9012dd3842946c Mon Sep 17 00:00:00 2001 From: Andreas Politz Date: Thu, 20 Aug 2015 08:54:45 +0200 Subject: [PATCH] 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 file changed, 3 insertions(+), 3 deletions(-) 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) -- 2.39.2