Lines Matching +defs:token +defs:pos
1339 (pos (1- len)) pos2)
1340 (while (>= pos 0)
1341 (if (eq (aref str pos) zero)
1342 (setq pos (1- pos))
1343 (setq pos2 pos)
1344 (while (and (>= pos 0) (eq (aref str pos) one))
1345 (setq pos (1- pos)))
1346 (setq vec (cons (if (= pos (1- pos2))
1348 (list 'intv 3 (- len pos2 1) (- len pos 2)))
1473 (defvar math-exp-pos)
1475 (defvar math-exp-old-pos)
1476 (defvar math-exp-token)
1482 (math-read-token)
1483 (while (eq math-exp-token 'space)
1484 (math-read-token))
1486 (eq math-exp-token 'end))
1488 (math-read-token)
1490 (let ((save-exp-pos math-exp-pos)
1491 (save-exp-old-pos math-exp-old-pos)
1492 (save-exp-token math-exp-token)
1501 (let ((error-exp-pos math-exp-pos)
1502 (error-exp-old-pos math-exp-old-pos)
1504 (setq math-exp-pos save-exp-pos
1505 math-exp-old-pos save-exp-old-pos
1506 math-exp-token save-exp-token
1513 (eq math-exp-token 'end)))
1516 (setq math-exp-pos error-exp-pos
1517 math-exp-old-pos error-exp-old-pos)
1523 (math-read-token)
1528 (eq math-exp-token 'end))
1538 (eq math-exp-token 'end)))
1544 (eq math-exp-token 'end)))
1546 (or (eq math-exp-token 'end)
1547 (math-read-token))
1552 (pos (1- math-exp-pos)))
1554 (setq pos (string-match
1556 math-exp-str (1+ pos)))
1557 (or (/= (aref math-exp-str pos) ?,) (> count 0) balancing))
1558 (cond ((memq (aref math-exp-str pos) '(?\[ ?\{ ?\( ?\<))
1560 ((memq (aref math-exp-str pos) '(?\] ?\} ?\) ?\>))
1563 pos
1564 (and pos (= (aref math-exp-str pos) ?,)))))
1570 (while (eq math-exp-token 'space)
1571 (math-read-token))
1572 (and (not (eq math-exp-token 'end))
1578 (math-read-token))
1579 (while (eq math-exp-token 'space)
1580 (math-read-token))
1588 (math-read-token)
1589 (while (eq math-exp-token 'space)
1590 (math-read-token))