martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

In `widget-color--choose-action' quit *Color* window instead of deleting it

Browse Source 
* lisp/wid-edit.el (widget-color--choose-action): Quit *Color*
window instead of deleting it.
This commit is contained in:
Andreas Politz
2015-08-20 08:54:45 +02:00
committed by Martin Rudalics
parent 186297de6e
commit d0079c9324
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/wid-edit.el
View File

@@ -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)