[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master d0079c9: In `widget-color--choose-action' quit *Col
From: |
Martin Rudalics |
Subject: |
[Emacs-diffs] master d0079c9: In `widget-color--choose-action' quit *Color* window instead of deleting it |
Date: |
Thu, 20 Aug 2015 06:56:18 +0000 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master d0079c9: In `widget-color--choose-action' quit *Color* window instead of deleting it,
Martin Rudalics <=