anchor.diff:                   (or (<= (length (line-str line)) end)
                        (not (syntax-symbol-char-p (aref (line-str line) end))))))
       (when (syntax-keyword-matched-symbol skw)
  -      (push (cons (syntax-keyword-symbol-tov skw)
  -                  (syntax-keyword-matched-symbol skw))
  +      (push (cons (syntax-keyword-matched-symbol skw)
  +                  (syntax-keyword-symbol-tov skw))
               *syntax-symbol-tov-list*))
  +    (when (syntax-keyword-end-symbol skw)
  +      (setq *syntax-symbol-tov-list*
  +            (remove (syntax-keyword-end-symbol skw)
  +                    *syntax-symbol-tov-list*
  +                    :key #'car)))
       (when (syntax-keyword-attr skw)
         (line-put-attribute line start end (get-attr (syntax-keyword-attr skw))))
       t))
  
positive.code:   (let ((str (line-str line)))
      (dolist (skw (syntax-table-keywords (current-syntax)))
        (when (or (not (syntax-keyword-test-symbol skw))
                  (member (syntax-keyword-test-symbol skw)
                          *syntax-symbol-tov-list*
                          :key #'cdr))
          (cond
           ((syntax-keyword-regex-p skw)
            (cond ((syntax-keyword-word-p skw)
  
negative.code: (defun syntax-add-keyword (syntax-table
                             test
                             &key
                             regex-p word-p test-symbol end-symbol attr
                             matched-symbol symbol-tov)
    (push (make-syntax-keyword :test (if regex-p
                                         (ppcre:create-scanner test)
  