anchor.diff:              (tm-ahead-match rule
                               (tm-region-end rule)
                               (line-string point)
  -                            start2))
  +                            start2
  +                            nil))
              (results
               (cons end-result
                     (tm-get-results-from-patterns (tm-region-patterns rule)
                                                   (line-string point)
  -                                                start2))))
  +                                                start2
  +                                                nil))))
         (loop
           (let ((best (tm-best-result results)))
             (cond ((or (null end-result)
  
positive.code:   (let ((results
           (tm-get-results-from-patterns (tmlanguage-patterns (current-syntax-parser))
                                         (line-string point)
                                         (point-charpos point))))
      (loop
        (let ((best (tm-best-result results)))
          (unless best (return))
  
negative.code:                      (tm-ahead-match (tm-result-rule result)
                                       (tm-ahead-matcher (tm-result-rule result))
                                       string
                                       i
                                       nil)))
                  (setf (car rest-results)
                        new-result)))))
  
  