From a5c2e9ebe8621a2ec6bc06d07b5d7ba0027c34db Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 19 Apr 2008 03:10:31 +0000 Subject: [PATCH] (trace-make-advice): Don't change selected-window. --- lisp/ChangeLog | 4 ++++ lisp/emacs-lisp/trace.el | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1036bf477f..133c02fac9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-04-19 Stefan Monnier + + * emacs-lisp/trace.el (trace-make-advice): Don't change selected-window. + 2008-04-18 Sam Steingold * vc.el (vc-dir-menu-map, vc-dir-mode-map, vc-dir-tool-bar-map): diff --git a/lisp/emacs-lisp/trace.el b/lisp/emacs-lisp/trace.el index 4edb496db4..d007addbeb 100644 --- a/lisp/emacs-lisp/trace.el +++ b/lisp/emacs-lisp/trace.el @@ -220,7 +220,7 @@ (trace-buffer (get-buffer-create ,buffer))) (unless inhibit-trace (with-current-buffer trace-buffer - ,(unless background '(pop-to-buffer trace-buffer)) + ,(unless background '(display-buffer trace-buffer)) (goto-char (point-max)) ;; Insert a separator from previous trace output: (if (= trace-level 1) (insert trace-separator)) @@ -230,7 +230,7 @@ ad-do-it (unless inhibit-trace (with-current-buffer trace-buffer - ,(unless background '(pop-to-buffer trace-buffer)) + ,(unless background '(display-buffer trace-buffer)) (goto-char (point-max)) (insert (trace-exit-message -- 2.20.1