diff options
| author | Gerd Moellmann | 1999-12-19 13:12:28 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 1999-12-19 13:12:28 +0000 |
| commit | 094e092801ad10b0e5904ade2983c554b890181e (patch) | |
| tree | ab815ebbcfc68972d367a06cb457d48d700dea8e | |
| parent | 556d73147ef6a0e505d8ff651e9cd48e5fa571ca (diff) | |
| download | emacs-094e092801ad10b0e5904ade2983c554b890181e.tar.gz emacs-094e092801ad10b0e5904ade2983c554b890181e.zip | |
(debugger-continue): Don't continue If
debugger-may-continue is nil.
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 2 |
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." | |||
| 280 | (defun debugger-continue () | 280 | (defun debugger-continue () |
| 281 | "Continue, evaluating this expression without stopping." | 281 | "Continue, evaluating this expression without stopping." |
| 282 | (interactive) | 282 | (interactive) |
| 283 | (unless debugger-may-continue | ||
| 284 | (error "Cannot continue")) | ||
| 283 | (message "Continuing.") | 285 | (message "Continuing.") |
| 284 | (exit-recursive-edit)) | 286 | (exit-recursive-edit)) |
| 285 | 287 | ||