From f4249c6f781819f1a1aa1535acd073fce2e409af Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 13 Feb 1995 08:47:59 +0000 Subject: (debug): Fix arg to backtrace-debug for debug-on-entry. --- lisp/emacs-lisp/debug.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'lisp/emacs-lisp/debug.el') diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index 6e830e75197..462f551142d 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el @@ -104,14 +104,19 @@ first will be printed into the backtrace buffer." (forward-line 1) (point))) (debugger-reenable) + ;; lambda is for debug-on-call when a function call is next. + ;; debug is for debug-on-entry function called. (cond ((memq (car debugger-args) '(lambda debug)) (insert "Entering:\n") (if (eq (car debugger-args) 'debug) (progn - (backtrace-debug 4 t) + ;; Skip the frames for backtrace-debug, byte-code, + ;; and debug. + (backtrace-debug 3 t) (delete-char 1) (insert ?*) (beginning-of-line)))) + ;; Exiting a function. ((eq (car debugger-args) 'exit) (insert "Return value: ") (setq debugger-value (nth 1 debugger-args)) @@ -120,12 +125,15 @@ first will be printed into the backtrace buffer." (delete-char 1) (insert ? ) (beginning-of-line)) + ;; Debugger entered for an error. ((eq (car debugger-args) 'error) (insert "Signalling: ") (prin1 (nth 1 debugger-args) (current-buffer)) (insert ?\n)) + ;; debug-on-call, when the next thing is an eval. ((eq (car debugger-args) t) (insert "Beginning evaluation of function call form:\n")) + ;; User calls debug directly. (t (prin1 (if (eq (car debugger-args) 'nil) (cdr debugger-args) debugger-args) -- cgit v1.2.3