diff options
| author | Andreas Politz | 2015-08-20 08:54:45 +0200 |
|---|---|---|
| committer | Martin Rudalics | 2015-08-20 08:54:45 +0200 |
| commit | d0079c9324e575107b8a90944c9012dd3842946c (patch) | |
| tree | c5768de384324bfac0cd52f0dedb31fb2604cbdf | |
| parent | 186297de6e0e576af2c52ce96a7fc6af3ba3ffc3 (diff) | |
| download | emacs-d0079c9324e575107b8a90944c9012dd3842946c.tar.gz emacs-d0079c9324e575107b8a90944c9012dd3842946c.zip | |
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.
| -rw-r--r-- | 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 ac2e9810331..e98ac18fc5e 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el | |||
| @@ -3706,9 +3706,9 @@ example: | |||
| 3706 | (widget-value-set ',(widget-get widget :parent) color) | 3706 | (widget-value-set ',(widget-get widget :parent) color) |
| 3707 | (let* ((buf (get-buffer "*Colors*")) | 3707 | (let* ((buf (get-buffer "*Colors*")) |
| 3708 | (win (get-buffer-window buf 0))) | 3708 | (win (get-buffer-window buf 0))) |
| 3709 | (bury-buffer buf) | 3709 | (if win |
| 3710 | (and win (> (length (window-list)) 1) | 3710 | (quit-window nil win) |
| 3711 | (delete-window win))) | 3711 | (bury-buffer buf))) |
| 3712 | (pop-to-buffer ,(current-buffer)))))) | 3712 | (pop-to-buffer ,(current-buffer)))))) |
| 3713 | 3713 | ||
| 3714 | (defun widget-color-sample-face-get (widget) | 3714 | (defun widget-color-sample-face-get (widget) |