diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-08-13 15:50:14 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-08-13 15:50:14 +0200 |
| commit | 8fbb8700831742c28d351e4fd79373dea0002649 (patch) | |
| tree | b9c25af24997b90019165dfd199a3882ddbee5f6 /lisp/emacs-lisp | |
| parent | e30c7f314b67656c9a946b7a6bc045c5f76814d6 (diff) | |
| download | emacs-8fbb8700831742c28d351e4fd79373dea0002649.tar.gz emacs-8fbb8700831742c28d351e4fd79373dea0002649.tar.bz2 emacs-8fbb8700831742c28d351e4fd79373dea0002649.zip | |
Make `debug' reset `inhibit-read-only' while running
* lisp/emacs-lisp/debug.el (debug): Bind `inhibit-read-only' to
nil in case we're in a context that has bound it to t (bug#26947).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index 069c7a90ad0..2007f79634d 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el @@ -182,7 +182,11 @@ the debugger will not be entered." (equal "initial_terminal" (terminal-name))))) ;; Don't let `inhibit-message' get in our way (especially important if ;; `non-interactive-frame' evaluated to a non-nil value. - (inhibit-message nil)) + (inhibit-message nil) + ;; We may be entering the debugger from a context that has + ;; let-bound `inhibit-read-only', which means that all + ;; buffers would be read/write while the debugger is running. + (inhibit-read-only nil)) (unless non-interactive-frame (message "Entering debugger...")) (let (debugger-value |