* lisp/simple.el (choose-completion): Use quit-window.

Fixes: debbugs:11567
This commit is contained in:
Martin Rudalics 2012-05-29 20:21:45 +08:00 committed by Chong Yidong
parent a149fa519d
commit 69d565e2c2
2 changed files with 5 additions and 10 deletions

View file

@ -1,3 +1,7 @@
2012-05-29 Martin Rudalics <rudalics@gmx.at>
* simple.el (choose-completion): Use quit-window (Bug#11567).
2012-05-29 Chong Yidong <cyd@gnu.org>
* whitespace.el (whitespace-cleanup): Fix usage of

View file

@ -6203,16 +6203,7 @@ With prefix argument N, move N items (negative N means move backward)."
(unless (buffer-live-p buffer)
(error "Destination buffer is dead"))
(select-window (posn-window (event-start event)))
(if (and (one-window-p t 'selected-frame)
(window-dedicated-p (selected-window)))
;; This is a special buffer's frame
(iconify-frame (selected-frame))
(or (window-dedicated-p (selected-window))
(bury-buffer)))
(select-window
(or (get-buffer-window buffer 0)
owindow))
(quit-window nil (posn-window (event-start event)))
(with-current-buffer buffer
(choose-completion-string