mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 18:41:25 -08:00
Code Issues Projects Releases Wiki Activity

(trace-make-advice): Don't change selected-window.

Browse source
This commit is contained in:
Stefan Monnier 2008-04-19 03:10:31 +00:00
parent 6c8b4f07d1
commit a5c2e9ebe8
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/trace.el
View file

@ -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