diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-02-25 01:03:14 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-02-25 01:03:14 -0500 |
| commit | 8bb64d2722632fcc2b7c816e5f85d64ff10161f9 (patch) | |
| tree | f4b552101768edd4e43e11ec361d5e2dbac07a0b /lisp/emacs-lisp/debug.el | |
| parent | b86ba30d17abcc85c73ad47ed95f15147508538c (diff) | |
| download | emacs-8bb64d2722632fcc2b7c816e5f85d64ff10161f9.tar.gz | |
* lisp/emacs-lisp/edebug.el (edebug--display): Save-excursion.
Fixes: debbugs:19611
* lisp/emacs-lisp/debug.el (debugger-env-macro): Remove redundant
save-excursion.
Diffstat (limited to 'lisp/emacs-lisp/debug.el')
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index dc0e666836e..8c1440d02f3 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el @@ -535,11 +535,7 @@ Applies to the frame whose line point is on in the backtrace." (defmacro debugger-env-macro (&rest body) "Run BODY in original environment." (declare (indent 0)) - `(save-excursion - (if (null (buffer-live-p debugger-old-buffer)) - ;; old buffer deleted - (setq debugger-old-buffer (current-buffer))) - (set-buffer debugger-old-buffer) + `(progn (set-match-data debugger-outer-match-data) (prog1 (progn ,@body) |