From 6bab5d8b319af32f3486dc57bfdb8c219e7f9d33 Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Thu, 4 Oct 2012 14:56:14 +0200 Subject: [PATCH] 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). --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/edebug.el | 7 ++----- 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 + + * emacs-lisp/edebug.el (edebug-pop-to-buffer): Select window + after setting its buffer (Bug#10805). + 2012-10-03 Fabián Ezequiel Gallina 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. -- 2.39.5