Lines Matching refs:pos
55 (defun syntax-ppss-toplevel-pos (ppss)
106 (if (<= beg (or (syntax-ppss-toplevel-pos (cdr syntax-ppss-last))
126 (defun syntax-ppss (&optional pos)
132 (unless pos (setq pos (point)))
135 (old-pos (car syntax-ppss-last))
138 (if (and old-pos (> old-pos pos)) (setq old-pos nil))
141 (if (and old-pos (< (- pos old-pos)
148 (incf (cdr (aref syntax-ppss-stats 0)) (- pos old-pos))
149 (parse-partial-sexp old-pos pos nil nil old-ppss))
153 ((and (not old-pos) old-ppss
154 ;; If `pt-min' is too far from `pos', we could try to use
161 (setq pt-min (or (syntax-ppss-toplevel-pos old-ppss)
163 (<= pt-min pos) (< (- pos pt-min) syntax-ppss-max-span))
165 (incf (cdr (aref syntax-ppss-stats 1)) (- pos pt-min))
166 (setq ppss (parse-partial-sexp pt-min pos)))
180 (while (and cache (< pos (caar cache)))
191 (if (or (not old-pos) (< old-pos pt-min))
194 (incf (cdr (aref syntax-ppss-stats 4)) (- pos old-pos))
195 (setq pt-best old-pos ppss-best old-ppss))
210 (progn (goto-char pos)
219 (incf (cdr (aref syntax-ppss-stats 5)) (- pos (point)))
223 ;; Quick case when we found a nearby pos.
224 ((< (- pos pt-best) syntax-ppss-max-span)
226 (incf (cdr (aref syntax-ppss-stats 2)) (- pos pt-best))
227 (setq ppss (parse-partial-sexp pt-best pos nil nil ppss-best)))
232 (incf (cdr (aref syntax-ppss-stats 3)) (- pos pt-min))
235 (while (> (- pos pt-min) (* 2 syntax-ppss-max-span))
237 pt-min (setq pt-min (/ (+ pt-min pos) 2))
245 (setq ppss (parse-partial-sexp pt-min pos nil nil ppss))
248 ;; (let ((real-ppss (parse-partial-sexp (point-min) pos)))
258 (let ((pair (cons pos ppss)))
260 (if (> (- (caar cache-pred) pos) syntax-ppss-max-span)
264 (> (- (caar syntax-ppss-cache) pos)
269 (setq syntax-ppss-last (cons pos ppss))
276 (parse-partial-sexp (point-min) pos)))))