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

Customized.

Browse source
This commit is contained in:
Stephen Eglen 1998-04-05 18:26:32 +00:00
parent 3c14708ccf
commit 666b94132b
9 changed files with 141 additions and 46 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -28,15 +28,26 @@
;;; Code:
(defvar debugger-mode-hook nil
"*Hooks run when `debugger-mode' is turned on.")
(defgroup debugger nil
"Debuggers and related commands for Emacs."
:prefix "debugger-"
:group 'debug)
(defcustom debugger-mode-hook nil
"*Hooks run when `debugger-mode' is turned on."
:type 'hook
:group 'debugger)
(defvar debug-function-list nil
"List of functions currently set for debug on entry.")
(defcustom debug-function-list nil
"List of functions currently set for debug on entry."
:type '(repeat function)
:group 'debugger)
(defvar debugger-step-after-exit nil
"Non-nil means \"single-step\" after the debugger exits.")
(defcustom debugger-step-after-exit nil
"Non-nil means \"single-step\" after the debugger exits."
:type 'boolean
:group 'debugger)
(defvar debugger-value nil
"This is the value for the debugger to return, when it returns.")
@ -398,8 +409,10 @@ Applies to the frame whose line point is on in the backtrace."
))
(defvar debugger-record-buffer "*Debugger-record*"
"*Buffer name for expression values, for \\[debugger-record-expression].")
(defcustom debugger-record-buffer "*Debugger-record*"
"*Buffer name for expression values, for \\[debugger-record-expression]."
:type 'string
:group 'debugger)
(defun debugger-record-expression (exp)
"Display a variable's value and record it in `*Backtrace-record*' buffer."