Lines Matching +defs:with +defs:case
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
39 ;; First evaluate a defun with C-M-x, then run the function. Step
40 ;; through the code with SPC, mark breakpoints with b, go until a
41 ;; breakpoint is reached with g, and quit execution with q. Use the
72 to load up Edebug specifications associated with a package you are
89 variable. You may wish to make it local to each buffer with
167 with the previous result. Coverage is considered OK if two different
177 Use this with caution since it is not debugged."
210 handled by a `condition-case'. This option is useful for debugging
239 "For compatibility with old version."
292 A lambda list keyword is a symbol that starts with `&'."
336 ;; Return the ALIST sorted with comparison function FUNCTION.
470 a function (call it with no arguments for each character,
471 call it with a char as argument to push a char back)
517 ;; This should be consistent with `eval-defun-1', but not the
550 "Evaluate the top level form point is in, stepping through with Edebug.
585 ;; Compatibility with old versions.
627 ;; A list of entries associating symbols with buffer regions.
651 (setcar entry name);; in case name is changed
706 ;; Signal an invalid-read-syntax with ARGS.
729 ;; We treat numbers as symbols, because of confusion with -, -1, and 1-.
757 ;; Mostly obsolete reader; still used in one case.
794 ;; We must store whether we just read a list with a dotted form that
804 ;; Add a new offset pair with POINT as the before offset.
829 ;; with the cdr of last offset.
977 ;;; Cursors for traversal of list and vector elements with offsets.
982 ;; Return a new cursor for EXPRESSIONS with OFFSETS.
1061 ;; The basic plan is to surround each expression with a call to
1062 ;; the edebug debugger together with indexes into a table of positions of
1096 ;; Read a form and wrap it with edebug calls, if the conditions are right.
1169 ;; This only works for defs with simple names.
1217 ;; since it wraps the list of forms with a call to `edebug-enter'.
1226 ;; Doesn't work with more than one def-body!!
1350 ;; In the latter case, pointers to the entry remain eq.
1360 form-data-entry edebug-def-name ;; in case name is changed
1436 ;; with the offset after the form.
1501 ;; Special case: replace (interactive-p) with variable
1537 ;; with the two before- and after-offset functions.
1541 ;; Remember this point in case we need to report this error.
1621 ;; Define specs for all the symbol specs with functions used to process them.
1622 ;; Perhaps we shouldn't be doing this with edebug-form-specs since the
1623 ;; user may want to define macros or functions with the same names.
1645 ;; (nil . edebug-match-nil) not this one - special case it.
1661 ((null symbol) ;; special case this.
1666 ;; Special case for edebug-`.
1713 ;; Reuse the &optional handler with this as the remainder handler.
1800 ;; Special case: spec quotes a symbol to match.
1820 ;; Special case: match a vector with the specs.
1839 ;; match with edebug-match-specs so edebug-best-error is not bound.
1885 ;; This will match any list form that begins with a symbol
1886 ;; that has an edebug-form-spec beginning with &define. In
1966 "Return non-nil if OBJECT is a symbol with an edebug-form-spec property."
2022 ;; This specially recognizes anonymous functions quoted with quote.
2038 ;; A macro expression is a lambda expression with "macro" prepended.
2061 (def-edebug-spec condition-case
2083 ;; with the following. This takes quite a bit more stack space, however.
2093 ;; arguments must be instrumented, if at all, with def-form not def-body.
2097 ;; are defined with edebug-` but this would be expensive.
2118 (def-edebug-spec with-temp-file t)
2119 (def-edebug-spec with-temp-message t)
2120 (def-edebug-spec with-syntax-table t)
2150 (def-edebug-spec with-custom-print body)
2174 ;; Each function adds one cons. Top is modified with setcar.
2222 A signal name is a symbol with an `error-conditions' property
2229 See `condition-case'.
2248 ;; when a function evaluated with edebug-eval-top-level-form is entered.
2306 ;; Reset global variables in case outside value was changed.
2350 (with-current-buffer locus
2395 ;; Called from functions compiled with edebug-eval-top-level-form.
2416 ;; Called from functions compiled with edebug-eval-top-level-form.
2484 (condition-case nil
2516 ;; window-start now stored with each function.
2556 (edebug-with-timeout-suspend (with-timeout-suspend))
2758 ;; Since we may be in a save-excursion, in case of quit,
2765 ;; Restore current buffer always, in case application needs it.
2789 (with-timeout-unsuspend edebug-with-timeout-suspend)
2790 ;; Reset global variables to outside values in case they were changed.
2839 ;; (maybe works with byte-compile-version 2.22 at least)
2855 (set-buffer edebug-outside-buffer) ; in case match buffer different
2957 ;; Reset global vars to outside values, in case they have been changed.
3110 (message "Window configuration outside of Edebug. Return with %s"
3254 (message "Breakpoint set in %s with condition: %s"
3336 (edebug-set-mode 'trace "Tracing..." "Edebug will trace with pause."))
3339 "Trace with no wait at each step."
3351 "Trace with no wait at each step."
3385 (condition-case nil
3399 (condition-case nil
3423 (with-current-buffer (marker-buffer func-marker)
3434 (with-current-buffer (car loc)
3670 (condition-case edebug-err
3689 "Replace print functions used by Edebug with custom versions."
3704 "Replace edebug custom print functions with internal versions."
3729 ;; Define here in case they are not already defined.
3742 (condition-case nil
3957 ;; continue running in such a case.
4003 ;; with calls in user functions, e.g. (edebug-eval-display)
4029 "Replace the evaluation list with the sexps now in the eval buffer."
4098 ;;; Interface with standard debugger.
4145 (with-output-to-temp-buffer (buffer-name edebug-backtrace-buffer)
4221 each line, and you can undo all insertions with one `undo' command.
4230 for that expression. Note that this is always the case for an
4290 ;; This seems not to work with Emacs 18.59. It undoes too far.
4422 ;; The body of eval-when-compile seems to get evaluated with eval-defun.