Mercurial > emacs

changeset 97481:d50fcbf5354d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(choose-completion): Try reselecting completion-reference-buffer.
author Chong Yidong <cyd@stupidchicken.com>
date Fri, 15 Aug 2008 00:30:44 +0000
parents 26543fe3b72d
children a8900d9693c5
files lisp/simple.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Fri Aug 15 00:30:21 2008 +0000
+++ b/lisp/simple.el	Fri Aug 15 00:30:44 2008 +0000
@@ -5612,12 +5612,15 @@
     (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