Lines Matching +defs:delay +defs:mode +defs:hooks
29 ;; This minor mode allows programmers to step through Emacs Lisp
91 `emacs-lisp-mode-hook'."
143 (defcustom edebug-initial-mode 'step
144 "*Initial execution mode for Edebug, if non-nil.
145 If this variable is non-nil, it specifies the initial execution mode
232 "*Number of seconds to pause when execution mode is `trace'."
1103 (run-hooks 'temp-hook))
2117 (def-edebug-spec delay-mode-hooks t)
2159 ;;; add minor-mode-alist entry
2160 (or (assq 'edebug-active minor-mode-alist)
2161 (setq minor-mode-alist (cons (list 'edebug-active " *Debugging*")
2162 minor-mode-alist)))
2204 (defvar edebug-execution-mode 'step) ; Current edebug mode set by user.
2205 (defvar edebug-next-execution-mode nil) ; Use once instead of initial mode.
2296 ;; Disable command hooks. This is essential when
2301 (setq edebug-execution-mode (or edebug-next-execution-mode
2302 edebug-initial-mode
2303 edebug-execution-mode)
2304 edebug-next-execution-mode nil)
2324 (setq edebug-execution-mode 'step)
2403 (if (or (not (memq edebug-execution-mode '(Go-nonstop next)))
2425 (if (and (eq edebug-execution-mode 'Go-nonstop)
2460 (defvar edebug-arg-mode) ; the mode, either before, after, or error
2471 (defun edebug-debugger (edebug-offset-index edebug-arg-mode edebug-value)
2505 ;; Display if mode is not go, continue, or Continue-fast
2507 (if (or (not (memq edebug-execution-mode '(go continue Continue-fast)))
2552 ;; Setup windows for edebug, determine mode, maybe enter recursive-edit.
2555 (let ((edebug-active t) ; for minor mode alist
2593 (if (eq 'after edebug-arg-mode)
2627 (if (eq 'before edebug-arg-mode)
2642 (setq edebug-execution-mode 'step
2647 ;; Now display arrow based on mode.
2651 ((eq 'error edebug-arg-mode)
2653 (setq edebug-execution-mode 'step)
2669 ((not (eq edebug-execution-mode 'Continue-fast))
2676 (if (eq 'after edebug-arg-mode)
2680 (not (eq edebug-execution-mode 'Continue-fast)))
2687 ((eq edebug-execution-mode 'continue)
2689 ((eq edebug-execution-mode 'Continue-fast) (edebug-sit-for 0))
2692 ((eq edebug-execution-mode 'trace)
2694 ((eq edebug-execution-mode 'Trace-fast)
2699 (memq edebug-execution-mode '(step next))
2700 (eq edebug-arg-mode 'error))
2702 ;; (setq edebug-execution-mode 'step)
2849 ;; The current buffer is the edebug-buffer, which is put into edebug-mode.
2919 (if (and (eq edebug-execution-mode 'go)
2920 (not (memq edebug-arg-mode '(after error))))
2926 (edebug-mode)
2947 (if (memq edebug-execution-mode '(go Go-nonstop))
3015 "Association list of arrows for each edebug mode.")
3020 ;; edebug-execution-mode.
3023 (cdr (assq edebug-execution-mode edebug-arrow-alist)))
3292 (defun edebug-set-mode (mode shortmsg msg)
3293 ;; Set the edebug mode to MODE.
3297 (setq edebug-execution-mode mode)
3302 (setq edebug-next-execution-mode mode)
3306 (defalias 'edebug-step-through-mode 'edebug-step-mode)
3308 (defun edebug-step-mode ()
3311 (edebug-set-mode 'step "" "Edebug will stop at next stop point."))
3313 (defun edebug-next-mode ()
3316 (edebug-set-mode 'next "" "Edebug will stop after next eval."))
3318 (defun edebug-go-mode (arg)
3324 (edebug-set-mode 'go "Go..." "Edebug will go until break."))
3326 (defun edebug-Go-nonstop-mode ()
3329 (edebug-set-mode 'Go-nonstop "Go-Nonstop..."
3333 (defun edebug-trace-mode ()
3334 "Begin trace mode."
3336 (edebug-set-mode 'trace "Tracing..." "Edebug will trace with pause."))
3338 (defun edebug-Trace-fast-mode ()
3341 (edebug-set-mode 'Trace-fast
3344 (defun edebug-continue-mode ()
3345 "Begin continue mode."
3347 (edebug-set-mode 'continue "Continue..."
3350 (defun edebug-Continue-fast-mode ()
3353 (edebug-set-mode 'Continue-fast "Continue fast..."
3357 ;; The following use the mode changing commands and breakpoints.
3363 (edebug-go-mode t))
3376 (edebug-set-mode
3389 (edebug-go-mode t))
3405 (edebug-go-mode t))
3412 (edebug-step-mode) ; No more at this level, so step.
3413 (edebug-go-mode t)
3460 instrumented. Then it does `edebug-on-entry' and switches to `go' mode."
3466 (edebug-go-mode nil)))))
3504 "Set mode to Go-nonstop, and exit to top-level.
3507 (setq edebug-execution-mode 'Go-nonstop)
3514 ;; (edebug-set-mode 'exiting "Exit..."))
3517 ;;; The following initial mode setting definitions are not used yet.
3519 '(defconst edebug-initial-mode-alist
3531 '(defun edebug-set-initial-mode ()
3532 "Ask for the initial mode of the enclosing function.
3533 The mode is requested via the key that would be used to set the mode in
3534 edebug-mode."
3537 (keymap (if (eq edebug-mode-map (current-local-map))
3538 edebug-mode-map))
3539 (old-mode (or (get this-function 'edebug-initial-mode)
3540 edebug-initial-mode))
3543 "Change initial edebug mode for %s from %s (%s) to (enter key): "
3545 old-mode
3547 (car (rassq old-mode edebug-initial-mode-alist))
3550 (mode (cdr (assq (key-binding key) edebug-initial-mode-alist)))
3552 (if (and mode
3553 (or (get this-function 'edebug-initial-mode)
3554 (not (eq mode edebug-initial-mode))))
3556 (put this-function 'edebug-initial-mode mode)
3557 (message "Initial mode for %s is now: %s"
3558 this-function mode))
3559 (error "Key must map to one of the mode changing commands")
3801 ;; Global GUD bindings for all emacs-lisp-mode buffers.
3803 (define-key emacs-lisp-mode-map "\C-x\C-a\C-s" 'edebug-step-mode)
3804 (define-key emacs-lisp-mode-map "\C-x\C-a\C-n" 'edebug-next-mode)
3805 (define-key emacs-lisp-mode-map "\C-x\C-a\C-c" 'edebug-go-mode)
3806 (define-key emacs-lisp-mode-map "\C-x\C-a\C-l" 'edebug-where))
3808 (defvar edebug-mode-map
3809 (let ((map (copy-keymap emacs-lisp-mode-map)))
3811 (define-key map " " 'edebug-step-mode)
3812 (define-key map "n" 'edebug-next-mode)
3813 (define-key map "g" 'edebug-go-mode)
3814 (define-key map "G" 'edebug-Go-nonstop-mode)
3815 (define-key map "t" 'edebug-trace-mode)
3816 (define-key map "T" 'edebug-Trace-fast-mode)
3817 (define-key map "c" 'edebug-continue-mode)
3818 (define-key map "C" 'edebug-Continue-fast-mode)
3864 (define-key map "\C-c\C-s" 'edebug-step-mode)
3865 (define-key map "\C-c\C-n" 'edebug-next-mode)
3866 (define-key map "\C-c\C-c" 'edebug-go-mode)
3884 (define-key map " " 'edebug-step-mode)
3885 (define-key map "g" 'edebug-go-mode)
3886 (define-key map "G" 'edebug-Go-nonstop-mode)
3887 (define-key map "t" 'edebug-trace-mode)
3888 (define-key map "T" 'edebug-Trace-fast-mode)
3889 (define-key map "c" 'edebug-continue-mode)
3890 (define-key map "C" 'edebug-Continue-fast-mode)
3918 (describe-function 'edebug-mode))
3920 (defun edebug-mode ()
3925 specific commands. E.g. `edebug-step-mode' is bound to \\[edebug-step-mode]
3926 in the Edebug buffer and \\<global-map>\\[edebug-step-mode] in any buffer.
3928 Also see bindings for the eval list buffer *edebug* in `edebug-eval-mode'.
3931 \\{edebug-mode-map}
3942 edebug-initial-mode
3959 (use-local-map edebug-mode-map))
3967 ;;; edebug eval list mode
3975 (let ((edebug-execution-mode 'Go-nonstop)
4000 (edebug-eval-mode))))
4069 (defvar edebug-eval-mode-map nil
4070 "Keymap for Edebug Eval mode. Superset of Lisp Interaction mode.")
4072 (unless edebug-eval-mode-map
4073 (setq edebug-eval-mode-map (make-sparse-keymap))
4074 (set-keymap-parent edebug-eval-mode-map lisp-interaction-mode-map)
4076 (define-key edebug-eval-mode-map "\C-c\C-w" 'edebug-where)
4077 (define-key edebug-eval-mode-map "\C-c\C-d" 'edebug-delete-eval-item)
4078 (define-key edebug-eval-mode-map "\C-c\C-u" 'edebug-update-eval-list)
4079 (define-key edebug-eval-mode-map "\C-x\C-e" 'edebug-eval-last-sexp)
4080 (define-key edebug-eval-mode-map "\C-j" 'edebug-eval-print-last-sexp))
4082 (put 'edebug-eval-mode 'mode-class 'special)
4084 (define-derived-mode edebug-eval-mode lisp-interaction-mode "Edebug Eval"
4089 `edebug-step-mode' is bound to \\[edebug-step-mode] in the Edebug
4090 buffer and \\<global-map>\\[edebug-step-mode] in any buffer.
4093 \\{edebug-eval-mode-map}
4107 (defun edebug (&optional edebug-arg-mode &rest debugger-args)
4123 (edebug-break (null edebug-arg-mode)) ;; if called explicitly
4126 (if (eq edebug-arg-mode 'error)
4132 (apply 'debug edebug-arg-mode debugger-args)
4310 (defconst edebug-mode-menus
4313 ["Step" edebug-step-mode t]
4314 ["Next" edebug-next-mode t]
4315 ["Trace" edebug-trace-mode t]
4316 ["Trace Fast" edebug-Trace-fast-mode t]
4317 ["Continue" edebug-continue-mode t]
4318 ["Continue Fast" edebug-Continue-fast-mode t]
4319 ["Go" edebug-go-mode t]
4320 ["Go Nonstop" edebug-Go-nonstop-mode t]
4406 (easy-menu-define edebug-menu edebug-mode-map "Edebug menus" edebug-mode-menus)
4505 (add-hook 'cl-read-load-hooks