mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 06:20:43 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/trace.el (trace-make-advice): Don't deactivate the mark.

Browse source
This commit is contained in:
Stefan Monnier 2013-12-11 09:27:15 -05:00
parent afdadaf7b6
commit e82af72d50
2 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -222,6 +222,7 @@ be printed along with the arguments in the trace."
(lambda (body &rest args)
(let ((trace-level (1+ trace-level))
(trace-buffer (get-buffer-create buffer))
(deactivate-mark nil) ;Protect deactivate-mark.
(ctx (funcall context)))
(unless inhibit-trace
(with-current-buffer trace-buffer