anchor.diff:          start
           end)))
   
  -@export
   (defun region-end (&optional (buffer (current-buffer)))
     @lang(:jp "`buffer`内のリージョンの終わりの位置の`point`を返します。")
     (let ((start (buffer-point buffer))
  
positive.code:         ((null line) (1+ offset))
        (incf offset (1+ (line-length line))))))
  
  @export
  (defun move-to-position (point position)
    @lang(:jp "`point`をバッファの先頭からの1始まりのオフセット`position`に移動してその位置を返します。
  `position`がバッファの範囲外なら`point`は移動せず、NILを返します。")
  
negative.code:                                     value
                                      (null end)))))
  
  (defun remove-text-property (start-point end-point prop)
    @lang(:jp "`start-point`から`end-point`までのテキストプロパティ`prop`を削除します。")
    (assert (eq (point-buffer start-point)
  