Lines Matching +defs:compile +defs:goto +defs:error
203 (defcustom edebug-on-error t
204 "*Value bound to `debug-on-error' while Edebug is active.
206 If `debug-on-error' is non-nil, that value is still used.
212 After execution is resumed, the error is signaled again."
417 (goto-char (cdr buf-point))))
581 ;; Recover point, but only if no error occurred.
582 (goto-char starting-point))))
681 ;; If point is not inside a edebuggable form, cause error.
683 (error "Not inside instrumented form")))
705 (defun edebug-syntax-error (&rest args)
935 (t (edebug-syntax-error "Bad char after #"))))
960 (edebug-syntax-error "Expected `)'"))
1012 (defun edebug-top-element-required (cursor &rest error)
1016 (if (edebug-empty-cursor cursor) (apply 'edebug-no-match cursor error))
1058 ;; syntax a bit and leaves point at any error it finds, but otherwise
1086 (defvar edebug-gate nil) ;; whether no-match forces an error.
1091 (defvar edebug-error-point nil)
1092 (defvar edebug-best-error nil)
1097 ;; Here we just catch any no-match not caught below and signal an error.
1100 ;; If it gets an error, make it nil.
1112 edebug-best-error
1113 edebug-error-point
1123 (apply 'edebug-syntax-error no-match))
1467 (let (edebug-best-error
1468 edebug-error-point);; This may not be needed.
1521 (t (edebug-syntax-error
1536 ;; Otherwise it signals an error. The place of the error is found
1540 ;; Throw a no-match, or signal an error immediately if gate is active.
1541 ;; Remember this point in case we need to report this error.
1542 (setq edebug-error-point (or edebug-error-point
1544 edebug-best-error (or edebug-best-error edebug-args))
1547 (if edebug-error-point
1548 (goto-char edebug-error-point))
1549 (apply 'edebug-syntax-error edebug-args))
1558 edebug-best-error
1559 edebug-error-point
1580 (error "too deep - perhaps infinite loop in spec?")
1673 (t (error "%s is not a form-spec or function" symbol))
1719 edebug-best-error
1720 edebug-error-point)
1736 edebug-best-error
1737 edebug-error-point)
1808 (error "Bad spec: %s" specs)))))
1835 ;;edebug-best-error
1836 ;;edebug-error-point
1839 ;; match with edebug-match-specs so edebug-best-error is not bound.
1842 (if edebug-best-error
1843 (apply 'edebug-no-match cursor edebug-best-error)
1853 ;; Since it matched, failure means immediate error, unless &optional.
1867 (error "Use function-form instead of function in edebug spec"))
2111 (def-edebug-spec dont-compile t)
2112 (def-edebug-spec eval-when-compile t)
2113 (def-edebug-spec eval-and-compile t)
2184 ;; Name of function to use for debugging when error or quit occurs.
2207 (defvar edebug-outside-debug-on-error) ; the value of debug-on-error outside
2221 "Signal an error. Args are SIGNAL-NAME, and associated DATA.
2222 A signal name is a symbol with an `error-conditions' property
2225 The symbol `error' should always be one of them.
2227 DATA should be a list. Its elements are printed as part of the error message.
2232 only be active while Edebug is. It checks `debug-on-error' to see
2234 error is signaled again."
2235 (if (and (listp debug-on-error) (memq edebug-signal-name debug-on-error))
2236 (edebug 'error (cons edebug-signal-name edebug-signal-data)))
2263 (edebug-outside-debug-on-error debug-on-error)
2267 (debug-on-error (or debug-on-error edebug-on-error))
2460 (defvar edebug-arg-mode) ; the mode, either before, after, or error
2487 (error nil))))
2590 (let ((debug-on-error nil))
2591 (error "Buffer defining %s not found" edebug-function)))
2609 ;;(goto-char edebug-point)
2625 (goto-char edebug-point)
2631 (let ((debug-on-error nil))
2632 (error "Source has changed - reevaluate definition of %s"
2651 ((eq 'error edebug-arg-mode)
2652 ;; Display error message
2658 (edebug-report-error edebug-value)))
2700 (eq edebug-arg-mode 'error))
2756 ;; (goto-char edebug-point) ;; in edebug-buffer
2773 (goto-char edebug-outside-point))
2785 (goto-char edebug-buffer-outside-point)
2839 ;; (maybe works with byte-compile-version 2.22 at least)
2842 (eval-when-compile
2909 (debug-on-error edebug-outside-debug-on-error)
2920 (not (memq edebug-arg-mode '(after error))))
3093 (error "Edebug is not active"))
3099 (goto-char edebug-point))
3105 (error "Edebug is not active"))
3109 (goto-char edebug-outside-point)
3120 (error "Edebug is not active"))
3125 (goto-char edebug-outside-point)
3159 (error "%s is not instrumented for Edebug" edebug-def-name))
3210 ;; goto the first breakpoint
3212 (goto-char (+ edebug-def-mark
3262 (goto-char (+ edebug-def-mark (aref offset-vector index)))
3360 (defun edebug-goto-here ()
3390 (error
3406 (error
3424 (goto-char func-marker)
3433 (error "Could not find the definition in its file"))
3435 (goto-char (cdr loc))
3446 (error "You must be before a list form")
3559 (error "Key must map to one of the mode changing commands")
3614 (goto-char edebug-outside-point)
3669 ;; If there is an error, a string is returned describing the error.
3672 (error (edebug-format "%s: %s" ;; could
3673 (get (car edebug-err) 'error-message)
3702 (eval-and-compile
3717 (defun edebug-report-error (edebug-value)
3718 ;; Print an error message like command level does.
3719 ;; This also prints the error name if it has no error-message.
3721 (or (get (car edebug-value) 'error-message)
3722 (format "peculiar error (%s)" (car edebug-value)))
3724 ;; continuing after an error may
3744 (error "#Apparently circular structure#"))))
3822 (define-key map "h" 'edebug-goto-here)
3949 edebug-on-error
4033 (goto-char (point-min))
4052 (goto-char starting-point)))
4115 (let (;; Where were we before the error occurred?
4126 (if (eq edebug-arg-mode 'error)
4156 (goto-char (point-min))
4196 (goto-char (point-max))
4201 (goto-char (point-max))
4253 (goto-char (+ def-mark (aref edebug-points i)))
4272 (goto-char (+ (aref edebug-points i) def-mark))
4331 ["Goto Here" edebug-goto-here t])
4416 (eval-when-compile
4421 (eval-when-compile
4422 ;; The body of eval-when-compile seems to get evaluated with eval-defun.
4425 (if (featurep 'byte-compile) (progn
4427 (defun byte-compile-resolve-functions (funcs)
4432 (setq byte-compile-unresolved-functions
4433 (delq (assq func byte-compile-unresolved-functions)
4434 byte-compile-unresolved-functions))))
4438 '(defun byte-compile-resolve-free-references (vars)
4443 (setq byte-compile-free-references
4444 (delq var byte-compile-free-references))))
4448 '(defun byte-compile-resolve-free-assignments (vars)
4453 (setq byte-compile-free-assignments
4454 (delq var byte-compile-free-assignments))))
4458 (byte-compile-resolve-functions
4477 byte-compile-resolve-functions
4480 '(byte-compile-resolve-free-references
4484 '(byte-compile-resolve-free-assignments