diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-12-11 09:27:15 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-12-11 09:27:15 -0500 |
| commit | e82af72d50e789123f3aba16c7389c688c49469a (patch) | |
| tree | cb9f6ff454afb8b9bb01578e1f072cbaca9c6e0d /lisp/emacs-lisp/trace.el | |
| parent | afdadaf7b6a39320445ca46d365ff9f51ad7c0e2 (diff) | |
| download | emacs-e82af72d50e789123f3aba16c7389c688c49469a.tar.gz emacs-e82af72d50e789123f3aba16c7389c688c49469a.tar.bz2 emacs-e82af72d50e789123f3aba16c7389c688c49469a.zip | |
* lisp/emacs-lisp/trace.el (trace-make-advice): Don't deactivate the mark.
Diffstat (limited to 'lisp/emacs-lisp/trace.el')
| -rw-r--r-- | lisp/emacs-lisp/trace.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/trace.el b/lisp/emacs-lisp/trace.el index f605c2865c0..3a2c44a8da6 100644 --- a/lisp/emacs-lisp/trace.el +++ b/lisp/emacs-lisp/trace.el @@ -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 |