mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-06 20:49:33 +00:00
Code Issues Releases Activity

Protect *Backtrace* from being killed (Bug#26650)

Browse Source 
* lisp/emacs-lisp/debug.el (debugger-mode): Call `top-level' in
`kill-buffer-hook'.
This commit is contained in:
Noam Postavsky 2017-04-25 08:39:17 -04:00
parent d158629cb6
commit ef9f5c672a
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/emacs-lisp/debug.el
View File

@ -727,6 +727,9 @@ Complete list of commands:
\\{debugger-mode-map}"
(setq truncate-lines t)
(set-syntax-table emacs-lisp-mode-syntax-table)
(add-hook 'kill-buffer-hook
(lambda () (if (> (recursion-depth) 0) (top-level)))
nil t)
(use-local-map debugger-mode-map))
(defcustom debugger-record-buffer "*Debugger-record*"