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).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 689659fd797bb8b9d8be26b5b79788129b6d5d50..ca0b3ef37ba2aaa0114fd43a36f02e305aeddd35 100644 (file)
--- 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 d656dcf9526df31b58de95e2aef43d31eaa7149b..18d1661e985e30d820f1e053a8c64ee85ba1dd58 100644 (file)
--- 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.