aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/emacs-lisp/debug.el
diff options
context:
space:
mode:
authorMartin Rudalics2012-09-18 09:07:13 +0200
committerMartin Rudalics2012-09-18 09:07:13 +0200
commit37ab5092e96c705aff371ca6203cdcb2d2fe3cd3 (patch)
treef2a64bc3eee76dcbe0c272b034fb2bc4c50043ee /lisp/emacs-lisp/debug.el
parented1f0bd388e83e5ee065f7dde0f52bbfe9031933 (diff)
downloademacs-37ab5092e96c705aff371ca6203cdcb2d2fe3cd3.tar.gz
emacs-37ab5092e96c705aff371ca6203cdcb2d2fe3cd3.zip
Fix some recent changes in debug.el.
* emacs-lisp/debug.el (debugger-bury-or-kill): Fix customization value. (debug): Don't remove debugger window when debugger is expected to be back.
Diffstat (limited to 'lisp/emacs-lisp/debug.el')
-rw-r--r--lisp/emacs-lisp/debug.el9
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index 774b4d3d600..e002dbabe49 100644
--- a/lisp/emacs-lisp/debug.el
+++ b/lisp/emacs-lisp/debug.el
@@ -75,9 +75,9 @@ window previously showing the debugger buffer.
75The value used here is passed to `quit-restore-window'." 75The value used here is passed to `quit-restore-window'."
76 :type '(choice 76 :type '(choice
77 (const :tag "Keep alive" nil) 77 (const :tag "Keep alive" nil)
78 (const :tag "Append" 'append) 78 (const :tag "Append" append)
79 (const :tag "Bury" 'bury) 79 (const :tag "Bury" bury)
80 (const :tag "Kill" 'kill)) 80 (const :tag "Kill" kill))
81 :group 'debugger 81 :group 'debugger
82 :version "24.2") 82 :version "24.2")
83 83
@@ -265,7 +265,8 @@ first will be printed into the backtrace buffer."
265 ;; Make sure we unbind buffer-read-only in the right buffer. 265 ;; Make sure we unbind buffer-read-only in the right buffer.
266 (save-excursion 266 (save-excursion
267 (recursive-edit)))) 267 (recursive-edit))))
268 (when (and (window-live-p debugger-window) 268 (when (and (not debugger-will-be-back)
269 (window-live-p debugger-window)
269 (eq (window-buffer debugger-window) debugger-buffer)) 270 (eq (window-buffer debugger-window) debugger-buffer))
270 ;; Record height of debugger window. 271 ;; Record height of debugger window.
271 (setq debugger-previous-window-height 272 (setq debugger-previous-window-height