Как сохранить выделение текста после replace-string/regexp?
Форум — Development
После 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))
)
Где я накосячил и может быть есть другие способы добиться нужного поведения?