anchor.diff:                              (next-char i)))
                      (search-backward-endp-function limit)))))
   
  -(defun re-search-forward (regex &optional limit)
  +(defun search-forward-regexp (regex &optional limit)
     (let (scanner)
       (handler-case (setq scanner (ppcre:create-scanner regex))
  -      (error () (return-from re-search-forward nil)))
  +      (error () (return-from search-forward-regexp nil)))
       (search-step
        #'(lambda ()
            (multiple-value-bind (start end)
  
positive.code:    #'goto-column
     (search-forward-endp-function limit)))
  
  (defun search-symbol-backward (name &optional limit)
    (search-step
     #'(lambda ()
         (caar (last (search-symbol-positions name :end (window-cur-col)))))
  
negative.code:      #'goto-column
       (search-forward-endp-function limit))))
  
  (defun search-backward-regexp (regex &optional limit)
    (let (scanner)
      (handler-case (setq scanner (ppcre:create-scanner regex))
        (error () (return-from search-backward-regexp nil)))
      (search-step
       #'(lambda ()
           (let (pos)
  