diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-19 03:10:31 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-19 03:10:31 +0000 |
| commit | a5c2e9ebe8621a2ec6bc06d07b5d7ba0027c34db (patch) | |
| tree | 408a54daaf8413a4647ac84f848da4df6b17f779 /lisp/emacs-lisp/trace.el | |
| parent | 6c8b4f07d1ccde31589e46d3582cedaab8af8062 (diff) | |
| download | emacs-a5c2e9ebe8621a2ec6bc06d07b5d7ba0027c34db.tar.gz | |
(trace-make-advice): Don't change selected-window.
Diffstat (limited to 'lisp/emacs-lisp/trace.el')
| -rw-r--r-- | lisp/emacs-lisp/trace.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/trace.el b/lisp/emacs-lisp/trace.el index 4edb496db41..d007addbeb8 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 |