Lines Matching +refs:point +refs:max
28 ;; This package provides one entry point, compare-windows. It compares
29 ;; text starting from point in two adjacent windows, advancing point
46 whitespace around (including before) point; it should also advance
48 point at the current scanning point. It gets one argument, the point
50 any text before that point.
142 (defvar compare-windows-sync-point nil)
147 Compares the text starting at point in each window,
151 at the prior location of point in that window.
175 (opoint1 (point))
182 (setq p1 (point) b1 (current-buffer))
188 (setq p2 (window-point w2)
191 (setq maxp1 (point-max))
208 (setq maxp2 (point-max)))
212 ;; If both windows have whitespace next to point,
218 (setq p1a (point))
222 (setq p2a (point))
233 ;; Advance point now rather than later, in case we're interrupted.
235 (set-window-point w2 p2)
240 (if (= (point) opoint1)
246 (setq compare-windows-sync-point nil)
248 (setq p1 (point))
252 (setq p2 (point)))
254 (set-window-point w2 p2)
268 ;; Match it at various starting points before the original point
269 ;; and find the latest point at which a match ends.
272 ;; If there is whitespace before point, but none after,
273 ;; then return t, but don't advance point.
275 (let ((end (point))
276 (beg (point))
277 (opoint (point)))
282 (> (point) start)))
283 (and (/= (point) start)
284 ;; Consider at least the char before point,
286 (= (point) opoint)))
290 (setq beg (point))
302 ;; and one of them is stored in compare-windows-sync-point
305 (if (not compare-windows-sync-point)
309 (point-max2 (with-current-buffer b2 (point-max)))
310 (op2 (window-point w2))
311 (op1 (point))
320 (or (setq in-bounds-p (< region-size (max (- (point-max) op1)
321 (- point-max2 op2))))
334 (bound1 (- (min (+ op1 region-size) (point-max)) string-size))
335 (bound2 (min (+ op2 region-size) point-max2)))
352 (setq compare-windows-sync-point (or (cadr p12) t)))
353 ;; else set point in the second window to the pre-calculated value
354 (if (numberp compare-windows-sync-point)
355 (goto-char compare-windows-sync-point))
356 (setq compare-windows-sync-point nil)))