Lines Matching +defs:char +defs:after
160 and `edebug-print-trace-after'."
417 (goto-char (cdr buf-point))))
471 call it with a char as argument to push a char back)
490 "Evaluate the top-level form containing point, or after point.
582 (goto-char starting-point))))
713 (let ((table (make-char-table 'syntax-table 'symbol))
724 (aset table ?\? 'char)
735 ;; lparen, rparen, dot, quote, backquote, comma, string, char, vector,
738 (if (and (eq (following-char) ?.)
740 (forward-char 1)
741 (or (and (eq (aref edebug-read-syntax-table (following-char))
743 (not (= (following-char) ?\;)))
744 (memq (following-char) '(?\, ?\.)))))
746 (aref edebug-read-syntax-table (following-char))))
752 (while (= (following-char) ?\;)
761 ;; Leave point immediately after it. A sexp can be a list or atom.
771 ((eq class 'quote) (forward-char 1)
783 ;; Each offset structure looks like: (before . after) for constituents,
784 ;; or for structures that have elements: (before <subexpressions> . after)
818 (defun edebug-store-after-offset (point)
820 ;; store POINT as the after offset.
825 ;; We just read a list after a dot, which will be abbreviated out.
850 (edebug-store-after-offset (point))))
869 (let (edebug-read-dotted-list) ; see edebug-store-after-offset
885 (forward-char 1)
896 (forward-char 1)
905 (forward-char 1)
907 (cond ((eq (following-char) ?\.)
909 (forward-char 1))
910 ((eq (following-char) ?\@)
912 (forward-char 1)))
924 (forward-char 1)
925 (cond ((eq ?\' (following-char))
926 (forward-char 1)
931 ((memq (following-char) '(?: ?B ?O ?X ?b ?o ?x ?1 ?2 ?3 ?4 ?5 ?6
933 (backward-char 1)
935 (t (edebug-syntax-error "Bad char after #"))))
938 (forward-char 1) ; skip \(
947 (forward-char 1) ; Skip backquote.
956 (forward-char 1) ; skip \.
964 (forward-char 1) ; skip \)
968 (forward-char 1) ; skip \[
974 (forward-char 1) ; skip \]
1041 ;; which is the after offset for a list.
1047 (defun edebug-after-offset (cursor)
1048 ;; Return the after offset of the cursor object.
1065 ;; (edebug-after (edebug-before 1) 2 exp)
1070 ;; moved to offset 2 after the end of exp.
1075 ;; and edebug-after for more details.
1140 (eq 'symbol (progn (forward-char 1) (edebug-next-token-class))))
1164 (1- (edebug-after-offset cursor))
1186 (edebug-after-offset cursor)
1219 ;; Do this after parsing since that may find a name.
1249 (defun edebug-make-before-and-after-form (before-index form after-index)
1252 ;; (edebug-after (edebug-before BEFORE-INDEX) AFTER-INDEX FORM)
1254 (list 'edebug-after
1256 after-index form))
1258 (defun edebug-make-after-form (form after-index)
1259 ;; Like edebug-make-before-and-after-form, but only after.
1260 (list 'edebug-after 0 after-index form))
1269 ((eq 'edebug-after (car sexp))
1429 (edebug-after-offset cursor)
1432 (edebug-make-before-and-after-form
1436 ;; with the offset after the form.
1448 (edebug-make-after-form form (edebug-inc-offset (cdr offset))))))
1486 ;; The after offset will be left in the cursor after processing the form.
1527 (defvar edebug-after-dotted-spec nil)
1537 ;; with the two before- and after-offset functions.
1548 (goto-char edebug-error-point))
1606 (first-char (and (symbolp spec) (aref (symbol-name spec) 0))))
1607 ;;(message "spec = %s first char = %s" spec first-char) (sit-for 1)
1610 ((eq ?& first-char);; "&" symbols take all following specs.
1612 ((eq ?: first-char);; ":" symbols take one following spec.
1902 (edebug-after-offset cursor)
2139 (name ;; class is [&or "before" "around" "after"
2194 (defvar edebug-after-index)
2363 (edebug-print-trace-after
2369 "Print MSG in *edebug-trace* before and after evaluating BODY.
2375 (edebug-print-trace-after
2380 MSG is printed after `::::{ '."
2384 (defun edebug-print-trace-after (msg)
2385 "Function called to print trace info after expression evaluation.
2386 MSG is printed after `::::} '."
2412 (defun edebug-slow-after (edebug-before-index edebug-after-index edebug-value)
2418 (setcar edebug-offset-indices edebug-after-index)
2421 (aset edebug-freq-count edebug-after-index
2422 (1+ (aref edebug-freq-count edebug-after-index)))
2429 (edebug-debugger edebug-after-index 'after edebug-value)
2432 (defun edebug-fast-after (edebug-before-index edebug-after-index edebug-value)
2438 (defalias 'edebug-after 'edebug-slow-after))
2443 (defalias 'edebug-after 'edebug-fast-after))
2449 (let ((old-result (aref edebug-coverage edebug-after-index)))
2453 (aset edebug-coverage edebug-after-index edebug-value))
2456 (aset edebug-coverage edebug-after-index 'ok-coverage)))))
2460 (defvar edebug-arg-mode) ; the mode, either before, after, or error
2553 ;; Uses local variables of edebug-enter, edebug-before, edebug-after
2593 (if (eq 'after edebug-arg-mode)
2609 ;;(goto-char edebug-point)
2617 ;; This is done after the pop to edebug-buffer
2618 ;; so that buffer-window correspondence is correct after quitting.
2625 (goto-char edebug-point)
2630 (if (not (memq (following-char) '(?\( ?\# ?\` )))
2676 (if (eq 'after edebug-arg-mode)
2756 ;; (goto-char edebug-point) ;; in edebug-buffer
2773 (goto-char edebug-outside-point))
2785 (goto-char edebug-buffer-outside-point)
2817 (defvar edebug-outside-last-command-char)
2820 (defvar edebug-outside-last-input-char)
2828 (defvar edebug-outside-unread-command-char)
2838 ;; Disable byte compiler warnings about unread-command-char and -event
2840 (defvar edebug-unread-command-char-warning)
2843 (setq edebug-unread-command-char-warning
2844 (get 'unread-command-char 'byte-obsolete-variable))
2845 (put 'unread-command-char 'byte-obsolete-variable nil))
2873 (edebug-outside-last-command-char last-command-char)
2876 (edebug-outside-last-input-char last-input-char)
2878 (edebug-outside-unread-command-char unread-command-char)
2892 (last-command-char last-command-char)
2895 (last-input-char last-input-char)
2897 ;; Assume no edebug command sets unread-command-char.
2898 (unread-command-char -1)
2920 (not (memq edebug-arg-mode '(after error))))
2937 ;; Remember selected-window after recursive-edit.
2959 last-command-char edebug-outside-last-command-char
2963 unread-command-char edebug-outside-unread-command-char
2965 last-input-char edebug-outside-last-input-char
3099 (goto-char edebug-point))
3109 (goto-char edebug-outside-point)
3125 (goto-char edebug-outside-point)
3212 (goto-char (+ edebug-def-mark
3227 "Modify the breakpoint for the form at point or after it.
3262 (goto-char (+ edebug-def-mark (aref offset-vector index)))
3314 "Proceed to next `after' stop point."
3316 (edebug-set-mode 'next "" "Edebug will stop after next eval."))
3361 "Proceed to first stop-point at or after current position of point."
3378 "Edebug will stop after exiting the next expression."))
3424 (goto-char func-marker)
3435 (goto-char (cdr loc))
3584 (last-command-char edebug-outside-last-command-char)
3588 (unread-command-char edebug-outside-unread-command-char)
3591 (last-input-char edebug-outside-last-input-char)
3614 (goto-char edebug-outside-point)
3627 edebug-outside-last-command-char last-command-char
3631 edebug-outside-unread-command-char unread-command-char
3634 edebug-outside-last-input-char last-input-char
3724 ;; continuing after an error may
4033 (goto-char (point-min))
4044 (if (and (/= ?\; (following-char))
4052 (goto-char starting-point)))
4156 (goto-char (point-min))
4164 ((looking-at "^ \(edebug-after")
4196 (goto-char (point-max))
4201 (goto-char (point-max))
4220 The frequency counts are inserted as comment lines after
4224 or the `)' after an expression, or on the last char of a symbol.
4229 are `eq', the char `=' will be appended after the count
4253 (goto-char (+ def-mark (aref edebug-points i)))
4272 (goto-char (+ (aref edebug-points i) def-mark))
4274 (if (= ?\( (following-char)) 0 1)))))
4289 It is removed when you hit any char."
4295 (setq unread-command-char (read-char))
4414 ;; Reenable byte compiler warnings about unread-command-char and -event.
4417 (if edebug-unread-command-char-warning
4418 (put 'unread-command-char 'byte-obsolete-variable
4419 edebug-unread-command-char-warning)))