[Emacs-diffs] /srv/bzr/emacs/trunk r110359: I edebug-pop-to-buffer select window after setting its buffer (Bug#10805).

[martin rudalics]

------------------------------------------------------------
revno: 110359
committer: martin rudalics <address@hidden>
branch nick: trunk
timestamp: Thu 2012-10-04 14:56:14 +0200
message:
  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).
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/edebug.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-10-03 21:53:09 +0000
+++ b/lisp/ChangeLog    2012-10-04 12:56:14 +0000
@@ -1,3 +1,8 @@
+2012-10-04  Martin Rudalics  <address@hidden>
+
+       * emacs-lisp/edebug.el (edebug-pop-to-buffer): Select window
+       after setting its buffer (Bug#10805).
+
 2012-10-03  Fabián Ezequiel Gallina  <address@hidden>
 
        Fix cornercase for string syntax.

=== modified file 'lisp/emacs-lisp/edebug.el'
--- a/lisp/emacs-lisp/edebug.el 2012-09-14 03:55:16 +0000
+++ b/lisp/emacs-lisp/edebug.el 2012-10-04 12:56:14 +0000
@@ -383,12 +383,9 @@
         ;; All windows are dedicated or show `edebug-trace-buffer', split
         ;; selected one.
         (t (split-window))))
+  (set-window-buffer window buffer)
   (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)
-  )
+  (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.