После replace-string/regexp, выделение текста пропадает, а я хочу например последовательно сделать несколько замен, как этого добиться?

Я попробывал написать функцию но она не работает:
1) Замена происходит только если point меньше mark(начали выделять регион и пошли вверх)
2) текст после замены не выделяется
Хотя если протыкать функции последовательно через M-x, все работает

(defun my-replace-string ()
  (interactive)
  (when (use-region-p)
    (setq from-string (read-string "from-string: ")
          to-string (read-string "to-string: "))
    (narrow-to-region (point) (mark))
    (replace-regexp from-string to-string)
    (mark-whole-buffer)
    (widen))
  )

Где я накосячил и может быть есть другие способы добиться нужного поведения?