anchor.diff:  Return T if successful, or NIL if the buffer limit was reached."))
   
   (defmethod forward-one-paragraph (mark syntax)
  -  (when (search-forward mark (coerce (paragraph-delimiter syntax) 'vector))
  -    (backward-object mark)
  -    t))
  +  (unless (end-of-buffer-p mark)
  +    (forward-object mark 1)
  +    (if (search-forward mark (coerce (paragraph-delimiter syntax) 'vector))
  +        (progn (backward-object mark (length (paragraph-delimiter syntax)))
  +               t)
  +        (progn (end-of-buffer mark)
  +               nil))))
   
   (define-motion-fns paragraph)
   
  
positive.code: reached."))
  
  (defmethod backward-one-page (mark syntax)
    (when (search-backward mark (coerce (page-delimiter syntax) 'vector))
      (forward-object mark)
      t))
  
  (define-motion-fns page)
  
  
negative.code: reached."))
  
  (defmethod forward-one-page (mark syntax)
    (unless (end-of-buffer-p mark)
      (forward-object mark 1)
      (if (search-forward mark (coerce (page-delimiter syntax) 'vector))
          (progn (backward-object mark (length (page-delimiter syntax)))
                 t)
          (progn (end-of-buffer mark)
                 nil))))
  
  (defgeneric backward-one-page (mark syntax)
    (:documentation
  