- (let ((pt (line-end-position)))
- (when (= (move-to-column-force startcol (or fill 'coerce)) startcol)
- (if (and (not fill) (<= pt endcol))
- (delete-region (point) pt)
- ;; else
- (setq pt (point))
- (move-to-column-force endcol)
- (delete-region pt (point))))
- ))
+ (when (= (move-to-column startcol (or fill 'coerce)) startcol)
+ (delete-region (point)
+ (progn (move-to-column endcol 'coerce)
+ (point)))))