mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 15:50:40 -08:00
Code Issues Projects Releases Wiki Activity

(debug): Fix arg to backtrace-debug for debug-on-entry.

Browse source
This commit is contained in:
Richard M. Stallman 1995-02-13 08:47:59 +00:00
parent 6efad63b18
commit f4249c6f78
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/emacs-lisp/debug.el
View file

@ -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)