;; remove it and get ready to replace it later.
;; In the mean time, turn off undo recording.
(let ((last (car-safe buffer-undo-list)))
- (if (and (consp last) (eql (car last) from) (eql (cdr last) to))
+ (if (and (consp last) (eq (car last) from) (eq (cdr last) to))
(setq undo-list-saved (cdr buffer-undo-list)
buffer-undo-list t))))
(narrow-to-region from to)