- (let* ((beginning (+ (overlay-start another-occurrence) offset))
- (ending (+ beginning change)))
- (delete-region beginning ending)
+ (let ((beginning (+ (overlay-start another-occurrence) offset)))
+ (delete-region beginning (+ beginning change))