mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

(choose-completion): Try reselecting completion-reference-buffer.

Browse Source
This commit is contained in:
Chong Yidong 2008-08-15 00:30:44 +00:00
parent 36a6ddcd84
commit 8a7daef5b9
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/simple.el
View File

@ -5612,12 +5612,15 @@ With prefix argument N, move N items (negative N means move backward)."
(setq completion (buffer-substring-no-properties beg end))
(let ((owindow (selected-window)))
(if (and (one-window-p t 'selected-frame)
(window-dedicated-p (selected-window)))
(window-dedicated-p owindow))
;; This is a special buffer's frame
(iconify-frame (selected-frame))
(or (window-dedicated-p (selected-window))
(bury-buffer)))
(select-window owindow))
(select-window
(or (and (buffer-live-p buffer)
(get-buffer-window buffer))
owindow)))
(choose-completion-string completion buffer base-size)))
;; Delete the longest partial match for STRING