diff options
Diffstat (limited to 'test/lisp/emacs-lisp/edebug-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/edebug-tests.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/test/lisp/emacs-lisp/edebug-tests.el b/test/lisp/emacs-lisp/edebug-tests.el index c93dfad0a0d..61e909437c7 100644 --- a/test/lisp/emacs-lisp/edebug-tests.el +++ b/test/lisp/emacs-lisp/edebug-tests.el | |||
| @@ -120,8 +120,7 @@ back to the top level.") | |||
| 120 | (eval-buffer) | 120 | (eval-buffer) |
| 121 | ,@body | 121 | ,@body |
| 122 | (when edebug-tests-failure-in-post-command | 122 | (when edebug-tests-failure-in-post-command |
| 123 | (signal (car edebug-tests-failure-in-post-command) | 123 | (signal edebug-tests-failure-in-post-command))) |
| 124 | (cdr edebug-tests-failure-in-post-command)))) | ||
| 125 | (unload-feature 'edebug-test-code) | 124 | (unload-feature 'edebug-test-code) |
| 126 | (with-current-buffer (find-file-noselect edebug-tests-temp-file) | 125 | (with-current-buffer (find-file-noselect edebug-tests-temp-file) |
| 127 | (set-buffer-modified-p nil)) | 126 | (set-buffer-modified-p nil)) |
| @@ -246,7 +245,7 @@ keyboard macro." | |||
| 246 | (funcall thunk) | 245 | (funcall thunk) |
| 247 | (error | 246 | (error |
| 248 | (setq edebug-tests-failure-in-post-command err) | 247 | (setq edebug-tests-failure-in-post-command err) |
| 249 | (signal (car err) (cdr err))))) | 248 | (signal err)))) |
| 250 | (setq edebug-tests-kbd-macro-index executing-kbd-macro-index)))) | 249 | (setq edebug-tests-kbd-macro-index executing-kbd-macro-index)))) |
| 251 | 250 | ||
| 252 | (defvar edebug-tests-func nil | 251 | (defvar edebug-tests-func nil |