[Emacs-diffs] /srv/bzr/emacs/trunk r104595: * lisp/emacs-lisp/debug.el (debug): Don't leave the buffer in Debugger.

[Stefan Monnier]

------------------------------------------------------------
revno: 104595
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2011-06-15 14:39:04 -0400
message:
  * lisp/emacs-lisp/debug.el (debug): Don't leave the buffer in Debugger.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/debug.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-06-15 18:33:33 +0000
+++ b/lisp/ChangeLog    2011-06-15 18:39:04 +0000
@@ -1,13 +1,14 @@
 2011-06-15  Stefan Monnier  <address@hidden>
 
+       * emacs-lisp/debug.el (debug): Don't leave the buffer in Debugger.
+
        * abbrev.el (define-abbrev-table): Don't add a table multiple times.
 
 2011-06-15  Alan Mackenzie  <address@hidden>
 
-       * progmodes/cc-fonts.el (c-font-lock-declarations): 1: Whilst
-       checking for declarators, disable knr checking to speed up for
-       normal files.  2: Refactor, replacing a sequence of nested if
-       forms by a cond form.
+       * progmodes/cc-fonts.el (c-font-lock-declarations): 1: Whilst checking
+       for declarators, disable knr checking to speed up for normal files.
+       2: Refactor, replacing a sequence of nested if forms by a cond form.
 
 2011-06-15  Lars Magne Ingebrigtsen  <address@hidden>
 

=== modified file 'lisp/emacs-lisp/debug.el'
--- a/lisp/emacs-lisp/debug.el  2011-05-31 15:41:14 +0000
+++ b/lisp/emacs-lisp/debug.el  2011-06-15 18:39:04 +0000
@@ -238,13 +238,14 @@
               (kill-buffer debugger-buffer)))
           ;; Restore the previous state of the debugger-buffer, in case we were
           ;; in a recursive invocation of the debugger.
-          (when (and debugger-previous-state
-                     (buffer-live-p debugger-buffer))
+          (when (buffer-live-p debugger-buffer)
             (with-current-buffer debugger-buffer
               (let ((inhibit-read-only t))
                 (erase-buffer)
-                (insert (nth 1 debugger-previous-state))
-                (funcall (nth 0 debugger-previous-state)))))
+                (if (null debugger-previous-state)
+                    (fundamental-mode)
+                  (insert (nth 1 debugger-previous-state))
+                  (funcall (nth 0 debugger-previous-state))))))
          (with-timeout-unsuspend debugger-with-timeout-suspend)
          (set-match-data debugger-outer-match-data)))
       ;; Put into effect the modified values of these variables