- (while p
- (setq ov (car p))
- (setq ov-start (overlay-start ov))
- (setq ov-end (overlay-end ov))
- (if (< ov-start beg)
- (progn
- (move-overlay ov ov-start beg)
+ (dolist (ov (overlays-in beg end))
+ ;; Don't alter overlays that are not ours.
+ (when (overlay-get ov 'hilit-chg)
+ (let ((ov-start (overlay-start ov))
+ (ov-end (overlay-end ov)))
+ (if (< ov-start beg)
+ (progn
+ (move-overlay ov ov-start beg)
+ (if (> ov-end end)
+ (progn
+ (setq props (overlay-properties ov))
+ (setq ov (make-overlay end ov-end))
+ (while props
+ (overlay-put ov (car props)(car (cdr props)))
+ (setq props (cdr (cdr props)))))))