I edebug-pop-to-buffer select window after setting its buffer (Bug#10805).

* emacs-lisp/edebug.el (edebug-pop-to-buffer): Select window
after setting its buffer (Bug#10805).

2 files changed, 7 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 689659fd797..ca0b3ef37ba 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-10-04  Martin Rudalics  <rudalics@gmx.at>
+
+        * emacs-lisp/edebug.el (edebug-pop-to-buffer): Select window
+        after setting its buffer (Bug#10805).
+
 2012-10-03  Fabián Ezequiel Gallina  <fgallina@cuca>
 
         Fix cornercase for string syntax.
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index d656dcf9526..18d1661e985 100644
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -383,12 +383,9 @@ Return the result of the last expression in BODY."
          ;; All windows are dedicated or show `edebug-trace-buffer', split
          ;; selected one.
          (t (split-window))))
-  (select-window window)
   (set-window-buffer window buffer)
-  (set-window-hscroll window 0);; should this be??
-  ;; Selecting the window does not set the buffer until command loop.
-  ;;(set-buffer buffer)
-  )
+  (select-window window)
+  (set-window-hscroll window 0)) ;; should this be??
 
 (defun edebug-get-displayed-buffer-points ()
   ;; Return a list of buffer point pairs, for all displayed buffers.