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)