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

Fix some recent changes in debug.el.

Browse Source 
* emacs-lisp/debug.el (debugger-bury-or-kill): Fix customization
value.
(debug): Don't remove debugger window when debugger is expected
to be back.
This commit is contained in:
Martin Rudalics 2012-09-18 09:07:13 +02:00
parent ed1f0bd388
commit 37ab5092e9
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,10 @@
2012-09-18 Martin Rudalics <rudalics@gmx.at>
* emacs-lisp/debug.el (debugger-bury-or-kill): Fix customization
value.
(debug): Don't remove debugger window when debugger is expected
to be back.
2012-09-18 Chong Yidong <cyd@gnu.org>
* custom.el (defface): Doc fix.

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

@ -75,9 +75,9 @@ window previously showing the debugger buffer.
The value used here is passed to `quit-restore-window'."
:type '(choice
(const :tag "Keep alive" nil)
(const :tag "Append" 'append)
(const :tag "Bury" 'bury)
(const :tag "Kill" 'kill))
(const :tag "Append" append)
(const :tag "Bury" bury)
(const :tag "Kill" kill))
:group 'debugger
:version "24.2")
@ -265,7 +265,8 @@ first will be printed into the backtrace buffer."
;; Make sure we unbind buffer-read-only in the right buffer.
(save-excursion
(recursive-edit))))
(when (and (window-live-p debugger-window)
(when (and (not debugger-will-be-back)
(window-live-p debugger-window)
(eq (window-buffer debugger-window) debugger-buffer))
;; Record height of debugger window.
(setq debugger-previous-window-height