Mercurial > emacs
changeset 10728:48f895a471a2
(debug): Fix arg to backtrace-debug for debug-on-entry.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 13 Feb 1995 08:47:59 +0000 |
| parents | 7720faec5ca7 |
| children | fb4f688fc2cf |
| files | lisp/emacs-lisp/debug.el |
| diffstat | 1 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/debug.el Mon Feb 13 06:53:07 1995 +0000 +++ b/lisp/emacs-lisp/debug.el Mon Feb 13 08:47:59 1995 +0000 @@ -104,14 +104,19 @@ (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 @@ (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)