aboutsummaryrefslogtreecommitdiffstats
path: root/test/lisp/emacs-lisp/edebug-tests.el
diff options
context:
space:
mode:
Diffstat (limited to 'test/lisp/emacs-lisp/edebug-tests.el')
-rw-r--r--test/lisp/emacs-lisp/edebug-tests.el5
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