* lisp/simple.el (choose-completion): Use quit-window.
Fixes: debbugs:11567
This commit is contained in:
parent
a149fa519d
commit
69d565e2c2
2 changed files with 5 additions and 10 deletions
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue