anchor.diff:                   (or (not (syntax-test-word-p syntax-test))
                        (<= (length string) end)
                        (not (syntax-symbol-char-p (schar string end)))))
  -        (if optional-key
  -            (with-point ((start-point point))
  -              (line-offset point 0 end)
  -              (put-text-property start-point point optional-key optional-value))
  -            (line-offset point 0 end))
  +        (line-offset point 0 end)
           point))))
   
   (defun syntax-scan-region (region point start-charpos)
  
positive.code:              (character-offset point 1)
               (when (end-line-p point)
                 (return)))
              ((syntax-test-match-p (syntax-region-end region) point 'region-side :end)
               (line-add-property (point-line point)
                                  start-charpos (point-charpos point)
                                  :attribute (syntax-attribute region)
  
negative.code: 	   :when (/= 0 lifetime)
  	   :collect (cons symbol (1- lifetime)))))
  
  (defun syntax-test-match-p (syntax-test point)
    (let ((string (line-string point)))
      (multiple-value-bind (start end)
          (ppcre:scan (syntax-test-thing syntax-test)
  