Lines Matching defs:point
130 "*If non-nil, save and restore point in all displayed buffers.
132 Saving and restoring point in other buffers is necessary if you are
133 debugging code that changes the point of a buffer which is displayed
135 window, the buffer's point will be changed to the window's point.
137 Saving and restoring point in all buffers is expensive, since it
226 "*If non-nil, an expression to test for at every stop point.
298 ;; Return the last sexp before point in current buffer.
305 (point))
306 (point)))))
352 `(let ((edebug:s-r-beg (point-min-marker))
353 (edebug:s-r-end (point-max-marker)))
401 ;; Return a list of buffer point pairs, for all displayed buffers.
406 (window-point w))
414 (mapcar (lambda (buf-point)
415 (when (buffer-live-p (car buf-point))
416 (set-buffer (car buf-point))
417 (goto-char (cdr buf-point))))
427 (window-point window)
440 (lambda (window buffer point start hscroll)
444 (set-window-point window point)
468 a buffer (read from point and advance it)
490 "Evaluate the top-level form containing point, or after point.
550 "Evaluate the top level form point is in, stepping through with Edebug.
576 (let ((starting-point (point)))
581 ;; Recover point, but only if no error occurred.
582 (goto-char starting-point))))
655 (defun edebug-get-form-data-entry (pnt &optional end-point)
669 (or (not end-point)
670 (= end-point (edebug-form-data-end entry)))
680 ;; Return the edebug data symbol of the form where point is in.
681 ;; If point is not inside a edebuggable form, cause error.
682 (or (edebug-form-data-name (edebug-get-form-data-entry (point)))
750 ;; Leave point before the next token, skipping white space and comments.
760 ;; Read one sexp from the current buffer starting at point.
761 ;; Leave point immediately after it. A sexp can be a list or atom.
803 (defun edebug-store-before-offset (point)
805 (let ((new-offset (list point)))
818 (defun edebug-store-after-offset (point)
834 ;; Now append the point using nconc.
835 (setq edebug-current-offset (nconc edebug-current-offset point))
844 (defmacro edebug-storing-offsets (point &rest body)
848 (edebug-store-before-offset ,point)
850 (edebug-store-after-offset (point))))
870 (edebug-storing-offsets (point)
887 (edebug-storing-offsets (1- (point)) 'quote)
898 (edebug-storing-offsets (1- (point)) '\`)
904 (let ((opoint (point)))
928 (edebug-storing-offsets (- (point) 2)
951 (push (edebug-storing-offsets (1- (point)) '\`) elements))
1058 ;; syntax a bit and leaves point at any error it finds, but otherwise
1067 ;; When this is evaluated, first point is moved to the beginning of
1069 ;; evaluated, which may cause more edebug calls, and then point is
1091 (defvar edebug-error-point nil)
1113 edebug-error-point
1170 (put def-name 'edebug (point-marker))
1241 ;; accesses edebug-func-marc and buffer point
1397 ;; For each stop point, the counter is incremented each time it is visited.
1411 ;; Add the point offsets to the edebug-offset-list for the form.
1468 edebug-error-point);; This may not be needed.
1541 ;; Remember this point in case we need to report this error.
1542 (setq edebug-error-point (or edebug-error-point
1547 (if edebug-error-point
1548 (goto-char edebug-error-point))
1559 edebug-error-point
1720 edebug-error-point)
1737 edebug-error-point)
1836 ;;edebug-error-point
2526 (defvar edebug-point) ; the point in edebug buffer
2528 (defvar edebug-outside-point) ; the point outside of edebug
2558 (edebug-point (+ edebug-def-mark
2560 edebug-buffer-outside-point ; current point in edebug-buffer
2565 (edebug-outside-point (point))
2605 ;; First move the edebug buffer point to edebug-point
2609 ;;(goto-char edebug-point)
2624 (setq edebug-buffer-outside-point (point))
2625 (goto-char edebug-point)
2629 ;; This assumes point is never before symbol.
2716 ;; Save trace window point before restoring outside windows.
2735 ;; Unrestore trace window's window-point.
2747 ;; Unrestore edebug-buffer's window-point.
2748 ;; Needed in addition to setting the buffer point
2749 ;; - otherwise quitting doesn't leave point as is.
2750 ;; But this causes point to not be restored at times.
2752 ;; (set-window-point window edebug-point)
2755 ;; Unrestore edebug-buffer's point. Rerestored below.
2756 ;; (goto-char edebug-point) ;; in edebug-buffer
2768 ;; Restore point, and mark.
2770 ;; that doesn't restore point and mark in the current buffer.
2771 ;; But don't restore point if edebug-buffer is current buffer.
2773 (goto-char edebug-outside-point))
2780 ;; Restore edebug-buffer's outside point.
2781 ;; (edebug-trace "restore edebug-buffer point: %s"
2782 ;; edebug-buffer-outside-point)
2785 (goto-char edebug-buffer-outside-point)
2983 ;;; (selected-window) old-start (window-start) (point)) (sit-for 5)
2996 (if (< (point) (window-start)) -1 ; one line before if in back
3000 (point)))))))
3021 (let ((pos (save-excursion (beginning-of-line) (point))))
3099 (goto-char edebug-point))
3109 (goto-char edebug-outside-point)
3114 (defun edebug-bounce-point (arg)
3115 "Bounce the point in the outside current buffer.
3125 (goto-char edebug-outside-point)
3127 (current-buffer) (point)
3153 (defun edebug-find-stop-point ()
3154 ;; Return (function . index) of the nearest edebug stop point.
3170 (point))
3188 "Move point to the next breakpoint, or first if none past point."
3190 (let ((edebug-stop-point (edebug-find-stop-point)))
3191 (if edebug-stop-point
3192 (let* ((edebug-def-name (car edebug-stop-point))
3193 (index (cdr edebug-stop-point))
3227 "Modify the breakpoint for the form at point or after it.
3228 Set it if FLAG is non-nil, clear it otherwise. Then move to that point.
3231 (let ((edebug-stop-point (edebug-find-stop-point)))
3232 (if edebug-stop-point
3233 (let* ((edebug-def-name (car edebug-stop-point))
3234 (index (cdr edebug-stop-point))
3309 "Proceed to next stop point."
3311 (edebug-set-mode 'step "" "Edebug will stop at next stop point."))
3314 "Proceed to next `after' stop point."
3320 With prefix ARG, set temporary break at current point and go."
3361 "Proceed to first stop-point at or after current position of point."
3382 "Proceed from the current point to the end of the ARGth sexp ahead.
3395 "Proceed from the current point to the end of the containing sexp.
3397 go to the end of the last sexp, or if that is the same point, then step."
3408 (let ((start-point (point)))
3411 (if (= (point) start-point)
3452 (edebug-get-form-data-entry (point)))
3614 (goto-char edebug-outside-point)
3776 "Evaluate sexp before point in the outside environment.
3782 "Evaluate sexp before point in outside environment; insert value.
3850 (define-key map "p" 'edebug-bounce-point)
4031 (let ((starting-point (point))
4033 (goto-char (point-min))
4052 (goto-char starting-point)))
4056 "Delete the item under point and redisplay."
4062 (point) (progn (re-search-forward "^;" nil 'nofail)
4064 (point)))
4149 last-ok-point)
4156 (goto-char (point-min))
4157 (setq last-ok-point (point))
4166 (setq last-ok-point (point))
4168 (delete-region last-ok-point (point)))
4172 (delete-region last-ok-point (point))
4185 ;; (edebug-trace-display "*trace-point*"
4186 ;; "saving: point = %s window-start = %s"
4187 ;; (point) (window-start))
4196 (goto-char (point-max))
4200 (set-window-start buf-window (point))
4201 (goto-char (point-max))
4202 ;; (set-window-point buf-window (point))
4255 (setq start-of-line (- (point) def-mark)
4263 (setq start-of-count-line (point)
4276 (max 0 (- col (- (point) start-of-count-line))) ?\s)
4342 ["Bounce to Current Point" edebug-bounce-point t]
4389 (let ((edebug-stop-point (edebug-find-stop-point)))
4390 (if edebug-stop-point
4391 (let* ((edebug-def-name (car edebug-stop-point))
4392 (index (cdr edebug-stop-point))