diff options
| author | Andreas Schwab | 1999-01-04 11:53:22 +0000 |
|---|---|---|
| committer | Andreas Schwab | 1999-01-04 11:53:22 +0000 |
| commit | f0ee23367c2c24520fc759051d3d7a1248d5c13b (patch) | |
| tree | 374f2b77e329e07f8c497a6151ac15085d5d6294 | |
| parent | 5d9b78b76137c356b75f591e5fbb41c33ba958f1 (diff) | |
| download | emacs-f0ee23367c2c24520fc759051d3d7a1248d5c13b.tar.gz emacs-f0ee23367c2c24520fc759051d3d7a1248d5c13b.zip | |
(debug): Leave recursive minibuffer enabled
if it was enabled before.
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index fa874f5ae60..0e6e0ef9765 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el | |||
| @@ -130,7 +130,8 @@ first will be printed into the backtrace buffer." | |||
| 130 | load-read-function | 130 | load-read-function |
| 131 | ;; If we are inside a minibuffer, allow nesting | 131 | ;; If we are inside a minibuffer, allow nesting |
| 132 | ;; so that we don't get an error from the `e' command. | 132 | ;; so that we don't get an error from the `e' command. |
| 133 | (enable-recursive-minibuffers (> (minibuffer-depth) 0)) | 133 | (enable-recursive-minibuffers |
| 134 | (or enable-recursive-minibuffers (> (minibuffer-depth) 0))) | ||
| 134 | (standard-input t) (standard-output t) | 135 | (standard-input t) (standard-output t) |
| 135 | (cursor-in-echo-area nil)) | 136 | (cursor-in-echo-area nil)) |
| 136 | (unwind-protect | 137 | (unwind-protect |