diff options
| author | Martin Rudalics | 2012-10-03 09:18:50 +0200 |
|---|---|---|
| committer | Martin Rudalics | 2012-10-03 09:18:50 +0200 |
| commit | 2e566ecb82ea16ee0f38cdf1af443e5d994735c6 (patch) | |
| tree | fbabc5112bf756aec53aecfc1998c47e5a0d74bc | |
| parent | a3c5c0c5800ca55a2b0548d3d30a39f570b10e90 (diff) | |
| download | emacs-2e566ecb82ea16ee0f38cdf1af443e5d994735c6.tar.gz emacs-2e566ecb82ea16ee0f38cdf1af443e5d994735c6.zip | |
In debug restore current buffer when quitting debugger window (Bug#12502).
* emacs-lisp/debug.el (debug): When quitting the debugger window
restore current buffer (Bug#12502).
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ea4affe77c4..34afcee4b1c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2012-10-03 Martin Rudalics <rudalics@gmx.at> | ||
| 2 | |||
| 3 | * emacs-lisp/debug.el (debug): When quitting the debugger window | ||
| 4 | restore current buffer (Bug#12502). | ||
| 5 | |||
| 1 | 2012-10-02 Chong Yidong <cyd@gnu.org> | 6 | 2012-10-02 Chong Yidong <cyd@gnu.org> |
| 2 | 7 | ||
| 3 | * progmodes/hideif.el (hif-lookup, hif-defined): Handle | 8 | * progmodes/hideif.el (hif-lookup, hif-defined): Handle |
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index 6fd52d67b90..6b308119abb 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el | |||
| @@ -273,7 +273,9 @@ first will be printed into the backtrace buffer." | |||
| 273 | (setq debugger-previous-window-height | 273 | (setq debugger-previous-window-height |
| 274 | (window-total-size debugger-window)) | 274 | (window-total-size debugger-window)) |
| 275 | ;; Unshow debugger-buffer. | 275 | ;; Unshow debugger-buffer. |
| 276 | (quit-restore-window debugger-window debugger-bury-or-kill)) | 276 | (quit-restore-window debugger-window debugger-bury-or-kill) |
| 277 | ;; Restore current buffer (Bug#12502). | ||
| 278 | (set-buffer debugger-old-buffer)) | ||
| 277 | ;; Restore previous state of debugger-buffer in case we were | 279 | ;; Restore previous state of debugger-buffer in case we were |
| 278 | ;; in a recursive invocation of the debugger, otherwise just | 280 | ;; in a recursive invocation of the debugger, otherwise just |
| 279 | ;; erase the buffer and put it into fundamental mode. | 281 | ;; erase the buffer and put it into fundamental mode. |