(keep-lines-read-args): Use `copy-marker'. (how-many): Save excursion properly. (occur-mode): Use define-derived-mode. (perform-replace): Use with-current-buffer.