diff options
author | Michael Heerdegen <michael_heerdegen@web.de> | 2012-12-06 23:31:24 -0500 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-12-06 23:31:24 -0500 |
commit | 610251116cbe83cf8c56811f8e447a9b041ef24d (patch) | |
tree | 7056fda3f49c4f815ad39ab5e2761294de1a29d8 /lisp | |
parent | bf741d337c02852c06be4e8b995304b9df407839 (diff) | |
download | emacs-610251116cbe83cf8c56811f8e447a9b041ef24d.tar.gz |
* lisp/emacs-lisp/debug.el (debug): Fix hard-coded frame counts.
Virtually backported from trunk.
Fixes: debbugs:10025
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/emacs-lisp/debug.el | 6 |
2 files changed, 8 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 17d339c4d78..0c6093f5a9e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-12-07 Michael Heerdegen <michael_heerdegen@web.de> + + * emacs-lisp/debug.el (debug): Fix hard-coded frame counts (bug#10025). + Virtually backported from trunk. + 2012-12-07 Juanma Barranquero <lekktu@gmail.com> * vc/vc-hooks.el (vc-state): Doc fix. diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index 6be30fc9164..579b223fcac 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el @@ -220,10 +220,10 @@ first will be printed into the backtrace buffer." (when (eq (car debugger-args) 'debug) ;; Skip the frames for backtrace-debug, byte-code, ;; and implement-debug-on-entry. - (backtrace-debug 4 t) + (backtrace-debug 3 t) ;; Place an extra debug-on-exit for macro's. - (when (eq 'lambda (car-safe (cadr (backtrace-frame 4)))) - (backtrace-debug 5 t))) + (when (eq 'lambda (car-safe (cadr (backtrace-frame 3)))) + (backtrace-debug 4 t))) (pop-to-buffer debugger-buffer `((display-buffer-reuse-window |