Lines Matching +defs:eval +defs:defun
39 ;; First evaluate a defun with C-M-x, then run the function. Step
84 This applies to `eval-defun', `eval-region', `eval-buffer', and
85 `eval-current-buffer'. `eval-region' is also called by
86 `eval-last-sexp', and `eval-print-last-sexp'.
107 (defcustom edebug-eval-macro-args nil
240 (def-edebug-spec symbol (eval spec-form)))
243 (defun get-edebug-spec (symbol)
255 (defun edebug-basic-spec (spec)
274 (defun edebug-gensym (&optional prefix)
290 (defun edebug-lambda-list-keywordp (object)
297 (defun edebug-last-sexp ()
308 (defun edebug-window-list ()
316 '(defun edebug-two-window-p ()
327 (defun edebug-macrop (object)
335 (defun edebug-sort-alist (alist function)
365 (defun edebug-pop-to-buffer (buffer &optional window)
400 (defun edebug-get-displayed-buffer-points ()
411 (defun edebug-set-buffer-points (buffer-points)
420 (defun edebug-current-windows (which-windows)
433 (defun edebug-set-windows (window-info)
456 ;;; Redefine read and eval functions
458 ;; eval-defun is redefined to check edebug-all-forms and edebug-all-defs.
464 (defun edebug-read (&optional stream)
484 (or (fboundp 'edebug-original-eval-defun)
485 (defalias 'edebug-original-eval-defun (symbol-function 'eval-defun)))
488 ;; without actually replacing the eval-defun command.
489 (defun edebug-eval-defun (edebug-it)
492 If the current defun is actually a call to `defvar', then reset the
504 If acting on a `defun' for FUNCTION, and the function was
508 If not acting on a `defun', the result of evaluation is displayed in
517 ;; This should be consistent with `eval-defun-1', but not the
526 (set-default (nth 1 form) (eval (nth 2 form))))
532 ;; See comments in `eval-defun-1' for purpose of code below
539 (setq edebug-result (eval form))
546 (defalias 'edebug-defun 'edebug-eval-top-level-form)
549 (defun edebug-eval-top-level-form ()
551 This is like `eval-defun' except that it steps the code for Edebug
553 using `eval-expression' (which see).
556 such as a defun or defmacro, it defines the function and instruments
561 If the current defun is actually a call to `defvar' or `defcustom',
567 (eval-expression
575 (defun edebug-read-top-level-form ()
577 (end-of-defun)
578 (beginning-of-defun)
589 (defun edebug-all-defs ()
598 (defun edebug-all-forms ()
606 (defun edebug-install-read-eval-functions ()
611 (defalias 'eval-defun 'edebug-eval-defun)))
613 (defun edebug-uninstall-read-eval-functions ()
616 (defalias 'eval-defun (symbol-function 'edebug-original-eval-defun)))
638 (defun edebug-make-form-data-entry (symbol begin end)
655 (defun edebug-get-form-data-entry (pnt &optional end-point)
679 (defun edebug-form-data-symbol ()
685 (defun edebug-make-top-form-data-entry (new-entry)
690 (defun edebug-clear-form-data-entry (entry)
705 (defun edebug-syntax-error (&rest args)
733 (defun edebug-next-token-class ()
749 (defun edebug-skip-whitespace ()
759 (defun edebug-read-sexp ()
803 (defun edebug-store-before-offset (point)
818 (defun edebug-store-after-offset (point)
840 (defun edebug-ignore-offset ()
868 (defun edebug-read-storing-offsets (stream)
877 (defun edebug-read-symbol (stream)
880 (defun edebug-read-string (stream)
883 (defun edebug-read-quote (stream)
894 (defun edebug-read-backquote (stream)
902 (defun edebug-read-comma (stream)
922 (defun edebug-read-function (stream)
937 (defun edebug-read-list (stream)
967 (defun edebug-read-vector (stream)
981 (defun edebug-new-cursor (expressions offsets)
994 (defun edebug-copy-cursor (cursor)
1012 (defun edebug-top-element-required (cursor &rest error)
1024 (defun edebug-move-cursor (cursor)
1037 (defun edebug-before-offset (cursor)
1047 (defun edebug-after-offset (cursor)
1059 ;; should appear to work like eval-defun.
1095 (defun edebug-read-and-maybe-wrap-form ()
1116 (max-lisp-eval-depth (+ 800 max-lisp-eval-depth))
1127 (defun edebug-read-and-maybe-wrap-form1 ()
1199 (defun edebug-interactive-p-name ()
1205 (defun edebug-wrap-def-body (forms)
1214 (defun edebug-make-enter-wrapper (forms)
1239 (defun edebug-inc-offset (offset)
1249 (defun edebug-make-before-and-after-form (before-index form after-index)
1258 (defun edebug-make-after-form (form after-index)
1263 (defun edebug-unwrap (sexp)
1280 (defun edebug-unwrap* (sexp)
1291 (defun edebug-defining-form (cursor form-begin form-end speclist)
1303 (defun edebug-make-form-wrapper (cursor form-begin form-end
1395 (defun edebug-clear-frequency-count (name)
1402 (defun edebug-clear-coverage (name)
1409 (defun edebug-form (cursor)
1477 (if edebug-eval-macro-args
1484 (defun edebug-list-form (cursor)
1539 (defun edebug-no-match (cursor &rest edebug-args)
1553 (defun edebug-match (cursor specs)
1565 (defun edebug-match-one-spec (cursor spec)
1575 (defun edebug-match-specs (cursor specs remainder-handler)
1649 (defun edebug-match-symbol (cursor symbol)
1677 (defun edebug-match-sexp (cursor)
1681 (defun edebug-match-form (cursor)
1690 (defun edebug-match-&optional (cursor specs)
1694 (defun edebug-&optional-wrapper (cursor specs remainder-handler)
1711 (defun edebug-&rest-wrapper (cursor specs remainder-handler)
1716 (defun edebug-match-&rest (cursor specs)
1724 (defun edebug-match-&or (cursor specs)
1749 (defun edebug-match-¬ (cursor specs)
1764 (defun edebug-match-&key (cursor specs)
1777 (defun edebug-match-gate (cursor)
1783 (defun edebug-match-list (cursor specs)
1832 (defun edebug-match-sublist (cursor specs)
1849 (defun edebug-match-string (cursor spec)
1859 (defun edebug-match-nil (cursor)
1866 (defun edebug-match-function (cursor)
1869 (defun edebug-match-&define (cursor specs)
1883 (defun edebug-match-lambda-expr (cursor)
1909 (defun edebug-match-name (cursor)
1923 (defun edebug-match-colon-name (cursor spec)
1932 (defun edebug-match-arg (cursor)
1942 (defun edebug-match-def-form (cursor)
1950 (defun edebug-match-def-body (cursor)
1965 (defun edebug-spec-p (object)
2002 (def-edebug-spec defun
2110 (def-edebug-spec defsubst defun)
2112 (def-edebug-spec eval-when-compile t)
2113 (def-edebug-spec eval-and-compile t)
2220 (defun edebug-signal (edebug-signal-name edebug-signal-data)
2245 (defun edebug-enter (edebug-function edebug-args edebug-body)
2248 ;; when a function evaluated with edebug-eval-top-level-form is entered.
2256 ;; Binding max-lisp-eval-depth here is OK,
2259 (max-lisp-eval-depth (+ 100 max-lisp-eval-depth)) ; too much??
2332 (defun edebug-var-status (var)
2343 (defun edebug-restore-status (var status)
2357 (defun edebug-enter-trace (edebug-body)
2378 (defun edebug-print-trace-before (msg)
2384 (defun edebug-print-trace-after (msg)
2392 (defun edebug-slow-before (edebug-before-index)
2395 ;; Called from functions compiled with edebug-eval-top-level-form.
2408 (defun edebug-fast-before (edebug-before-index)
2412 (defun edebug-slow-after (edebug-before-index edebug-after-index edebug-value)
2416 ;; Called from functions compiled with edebug-eval-top-level-form.
2432 (defun edebug-fast-after (edebug-before-index edebug-after-index edebug-value)
2436 (defun edebug-run-slow ()
2441 (defun edebug-run-fast ()
2448 (defun edebug-update-coverage ()
2471 (defun edebug-debugger (edebug-offset-index edebug-arg-mode edebug-value)
2473 ;; Don't really try to enter edebug within an eval from redisplay.
2486 (eval edebug-global-break-condition))
2497 (eval edebug-break-condition))))))
2532 (defvar edebug-eval-buffer) ; for the evaluation list.
2538 (defvar edebug-eval-list nil) ;; List of expressions to evaluate.
2546 (defun edebug-display ()
2571 edebug-eval-buffer ; declared here so we can kill it below
2572 (edebug-eval-result-list (and edebug-eval-list
2573 (edebug-eval-result-list)))
2616 ;; Now display eval list, if any.
2619 (edebug-eval-display edebug-eval-result-list)
2842 (eval-when-compile
2847 (defun edebug-recursive-edit ()
2934 ;; Could be an option to keep eval display up.
2935 (if edebug-eval-buffer (kill-buffer edebug-eval-buffer))
2980 (defun edebug-adjust-window (old-start)
3017 (defun edebug-overlay-arrow ()
3028 (defun edebug-toggle-save-all-windows ()
3052 (defun edebug-toggle-save-selected-window ()
3079 (defun edebug-toggle-save-windows (arg)
3089 (defun edebug-where ()
3101 (defun edebug-view-outside ()
3114 (defun edebug-bounce-point (arg)
3140 '(defun edebug-display-buffer (buffer)
3153 (defun edebug-find-stop-point ()
3187 (defun edebug-next-breakpoint ()
3226 (defun edebug-modify-breakpoint (flag &optional condition temporary)
3265 (defun edebug-set-breakpoint (arg)
3271 (defun edebug-unset-breakpoint ()
3277 (defun edebug-set-global-break-condition (expression)
3292 (defun edebug-set-mode (mode shortmsg msg)
3308 (defun edebug-step-mode ()
3313 (defun edebug-next-mode ()
3316 (edebug-set-mode 'next "" "Edebug will stop after next eval."))
3318 (defun edebug-go-mode (arg)
3326 (defun edebug-Go-nonstop-mode ()
3333 (defun edebug-trace-mode ()
3338 (defun edebug-Trace-fast-mode ()
3344 (defun edebug-continue-mode ()
3350 (defun edebug-Continue-fast-mode ()
3360 (defun edebug-goto-here ()
3366 (defun edebug-stop ()
3373 '(defun edebug-forward ()
3381 (defun edebug-forward-sexp (arg)
3394 (defun edebug-step-out ()
3396 If there is no containing sexp that is not the top level defun,
3416 (defun edebug-instrument-function (func)
3425 (edebug-eval-top-level-form)
3436 (edebug-eval-top-level-form)
3439 (defun edebug-instrument-callee ()
3457 (defun edebug-step-in ()
3468 (defun edebug-on-entry (function &optional flag)
3476 (defun cancel-edebug-on-entry (function)
3486 '(defun edebug-debug-on-entry (function)
3503 (defun edebug-top-level-nonstop ()
3511 ;;(defun edebug-exit-out ()
3531 '(defun edebug-set-initial-mode ()
3661 (defun edebug-eval (edebug-expr)
3664 (eval (cl-macroexpand-all edebug-expr cl-debug-env))
3665 (eval edebug-expr)))
3667 (defun edebug-safe-eval (edebug-expr)
3671 (edebug-eval edebug-expr)
3688 (defun edebug-install-custom-print ()
3702 (eval-and-compile
3703 (defun edebug-uninstall-custom-print ()
3717 (defun edebug-report-error (edebug-value)
3736 (defun edebug-safe-prin1-to-string (value)
3746 (defun edebug-compute-previous-result (edebug-previous-value)
3753 (eval-expression-print-format edebug-previous-value))))
3755 (defun edebug-previous-result ()
3762 (defun edebug-eval-expression (edebug-expr)
3771 (setq values (cons (edebug-eval edebug-expr) values))
3773 (eval-expression-print-format (car values))))))
3775 (defun edebug-eval-last-sexp ()
3779 (edebug-eval-expression (edebug-last-sexp)))
3781 (defun edebug-eval-print-last-sexp ()
3788 (edebug-safe-prin1-to-string (edebug-safe-eval edebug-form))))
3843 (define-key map "e" 'edebug-eval-expression)
3844 (define-key map "\C-x\C-e" 'edebug-eval-last-sexp)
3845 (define-key map "E" 'edebug-visit-eval-list)
3916 (defun edebug-help ()
3920 (defun edebug-mode ()
3928 Also see bindings for the eval list buffer *edebug* in `edebug-eval-mode'.
3961 (defun edebug-kill-buffer ()
3967 ;;; edebug eval list mode
3971 (defun edebug-eval-result-list ()
3972 "Return a list of evaluations of edebug-eval-list"
3977 (mapcar 'edebug-safe-eval edebug-eval-list)))
3979 (defun edebug-eval-display-list (edebug-eval-result-list)
3980 ;; Assumes edebug-eval-buffer exists.
3981 (let ((edebug-eval-list-temp edebug-eval-list)
3982 (standard-output edebug-eval-buffer)
3985 (set-buffer edebug-eval-buffer)
3987 (while edebug-eval-list-temp
3988 (prin1 (car edebug-eval-list-temp)) (terpri)
3989 (prin1 (car edebug-eval-result-list)) (terpri)
3991 (setq edebug-eval-list-temp (cdr edebug-eval-list-temp))
3992 (setq edebug-eval-result-list (cdr edebug-eval-result-list)))
3993 (edebug-pop-to-buffer edebug-eval-buffer)
3996 (defun edebug-create-eval-buffer ()
3997 (if (not (and edebug-eval-buffer (buffer-name edebug-eval-buffer)))
3999 (set-buffer (setq edebug-eval-buffer (get-buffer-create "*edebug*")))
4000 (edebug-eval-mode))))
4003 ;; with calls in user functions, e.g. (edebug-eval-display)
4005 (defun edebug-eval-display (edebug-eval-result-list)
4007 It modifies the context by popping up the eval display."
4008 (if edebug-eval-result-list
4010 (edebug-create-eval-buffer)
4011 (edebug-eval-display-list edebug-eval-result-list)
4014 (defun edebug-eval-redisplay ()
4015 "Redisplay eval list in outside environment.
4017 (edebug-create-eval-buffer)
4019 (edebug-eval-display-list (edebug-eval-result-list))
4022 (defun edebug-visit-eval-list ()
4024 (edebug-eval-redisplay)
4025 (edebug-pop-to-buffer edebug-eval-buffer))
4028 (defun edebug-update-eval-list ()
4029 "Replace the evaluation list with the sexps now in the eval buffer."
4050 (setq edebug-eval-list (nreverse new-list))
4051 (edebug-eval-redisplay)
4055 (defun edebug-delete-eval-item ()
4065 (edebug-update-eval-list))
4069 (defvar edebug-eval-mode-map nil
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"
4093 \\{edebug-eval-mode-map}
4107 (defun edebug (&optional edebug-arg-mode &rest debugger-args)
4136 (defun edebug-backtrace ()
4180 (defun edebug-trace-display (buf-name fmt &rest args)
4210 (defun edebug-trace (fmt &rest args)
4218 (defun edebug-display-freq-count ()
4287 (defun edebug-temp-display-freq-count ()
4302 (defun edebug-toggle (variable)
4303 (set variable (not (eval variable)))
4304 (message "%s: %s" variable (eval variable)))
4349 ["Expression" edebug-eval-expression t]
4350 ["Last Sexp" edebug-eval-last-sexp t]
4351 ["Visit Eval List" edebug-visit-eval-list t])
4377 (defun edebug-mark ()
4380 (defun edebug-set-conditional-breakpoint (arg condition)
4416 (eval-when-compile
4421 (eval-when-compile
4422 ;; The body of eval-when-compile seems to get evaluated with eval-defun.
4427 (defun byte-compile-resolve-functions (funcs)
4438 '(defun byte-compile-resolve-free-references (vars)
4448 '(defun byte-compile-resolve-free-assignments (vars)
4462 edebug-original-eval-defun
4515 ;; Install edebug read and eval functions.
4516 (edebug-install-read-eval-functions)