summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/debug.el
diff options
context:
space:
mode:
authorGerd Moellmann <gerd@gnu.org>1999-12-19 13:12:28 +0000
committerGerd Moellmann <gerd@gnu.org>1999-12-19 13:12:28 +0000
commit094e092801ad10b0e5904ade2983c554b890181e (patch)
treeab815ebbcfc68972d367a06cb457d48d700dea8e /lisp/emacs-lisp/debug.el
parent556d73147ef6a0e505d8ff651e9cd48e5fa571ca (diff)
downloademacs-094e092801ad10b0e5904ade2983c554b890181e.tar.gz
(debugger-continue): Don't continue If
debugger-may-continue is nil.
Diffstat (limited to 'lisp/emacs-lisp/debug.el')
-rw-r--r--lisp/emacs-lisp/debug.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index e5e2ac3c226..f21fdc5bfb5 100644
--- a/lisp/emacs-lisp/debug.el
+++ b/lisp/emacs-lisp/debug.el
@@ -280,6 +280,8 @@ Enter another debugger on next entry to eval, apply or funcall."
(defun debugger-continue ()
"Continue, evaluating this expression without stopping."
(interactive)
+ (unless debugger-may-continue
+ (error "Cannot continue"))
(message "Continuing.")
(exit-recursive-edit))