Mercurial > emacs

changeset 94179:d55e28c98546

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(trace-make-advice): Don't change selected-window.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 19 Apr 2008 03:10:31 +0000
parents e65203929930
children 114d8f4904d0
files lisp/ChangeLog lisp/emacs-lisp/trace.el
diffstat 2 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sat Apr 19 03:09:47 2008 +0000
+++ b/lisp/ChangeLog	Sat Apr 19 03:10:31 2008 +0000
@@ -1,3 +1,7 @@
+2008-04-19  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* emacs-lisp/trace.el (trace-make-advice): Don't change selected-window.
+
 2008-04-18  Sam Steingold  <sds@gnu.org>
 
 	* vc.el (vc-dir-menu-map, vc-dir-mode-map, vc-dir-tool-bar-map):
--- a/lisp/emacs-lisp/trace.el	Sat Apr 19 03:09:47 2008 +0000
+++ b/lisp/emacs-lisp/trace.el	Sat Apr 19 03:10:31 2008 +0000
@@ -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