Mercurial > emacs
comparison lisp/emacs-lisp/debug.el @ 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 | 0bd8034a4f54 |
| children | 65e10f44e765 |
comparison
equal
deleted
inserted
replaced
| 10727:7720faec5ca7 | 10728:48f895a471a2 |
|---|---|
| 102 (progn | 102 (progn |
| 103 (search-forward "\n debug(") | 103 (search-forward "\n debug(") |
| 104 (forward-line 1) | 104 (forward-line 1) |
| 105 (point))) | 105 (point))) |
| 106 (debugger-reenable) | 106 (debugger-reenable) |
| 107 ;; lambda is for debug-on-call when a function call is next. | |
| 108 ;; debug is for debug-on-entry function called. | |
| 107 (cond ((memq (car debugger-args) '(lambda debug)) | 109 (cond ((memq (car debugger-args) '(lambda debug)) |
| 108 (insert "Entering:\n") | 110 (insert "Entering:\n") |
| 109 (if (eq (car debugger-args) 'debug) | 111 (if (eq (car debugger-args) 'debug) |
| 110 (progn | 112 (progn |
| 111 (backtrace-debug 4 t) | 113 ;; Skip the frames for backtrace-debug, byte-code, |
| 114 ;; and debug. | |
| 115 (backtrace-debug 3 t) | |
| 112 (delete-char 1) | 116 (delete-char 1) |
| 113 (insert ?*) | 117 (insert ?*) |
| 114 (beginning-of-line)))) | 118 (beginning-of-line)))) |
| 119 ;; Exiting a function. | |
| 115 ((eq (car debugger-args) 'exit) | 120 ((eq (car debugger-args) 'exit) |
| 116 (insert "Return value: ") | 121 (insert "Return value: ") |
| 117 (setq debugger-value (nth 1 debugger-args)) | 122 (setq debugger-value (nth 1 debugger-args)) |
| 118 (prin1 debugger-value (current-buffer)) | 123 (prin1 debugger-value (current-buffer)) |
| 119 (insert ?\n) | 124 (insert ?\n) |
| 120 (delete-char 1) | 125 (delete-char 1) |
| 121 (insert ? ) | 126 (insert ? ) |
| 122 (beginning-of-line)) | 127 (beginning-of-line)) |
| 128 ;; Debugger entered for an error. | |
| 123 ((eq (car debugger-args) 'error) | 129 ((eq (car debugger-args) 'error) |
| 124 (insert "Signalling: ") | 130 (insert "Signalling: ") |
| 125 (prin1 (nth 1 debugger-args) (current-buffer)) | 131 (prin1 (nth 1 debugger-args) (current-buffer)) |
| 126 (insert ?\n)) | 132 (insert ?\n)) |
| 133 ;; debug-on-call, when the next thing is an eval. | |
| 127 ((eq (car debugger-args) t) | 134 ((eq (car debugger-args) t) |
| 128 (insert "Beginning evaluation of function call form:\n")) | 135 (insert "Beginning evaluation of function call form:\n")) |
| 136 ;; User calls debug directly. | |
| 129 (t | 137 (t |
| 130 (prin1 (if (eq (car debugger-args) 'nil) | 138 (prin1 (if (eq (car debugger-args) 'nil) |
| 131 (cdr debugger-args) debugger-args) | 139 (cdr debugger-args) debugger-args) |
| 132 (current-buffer)) | 140 (current-buffer)) |
| 133 (insert ?\n))) | 141 (insert ?\n))) |