kgk@CS.BROWN.EDU (04/19/89)
In GNU Emacs 18.53.1 of Sun Apr 16 1989 on fred (berkeley-unix)
I like replace-string and replace-regexp to stay at point after
performing any replacements, like in Zmacs. The following patch
is one possible way to implement it. The default would remain as
with the current behavior.
(defvar replace-move-point t
"If non-nil, if there are any replacements made in a non-query
replacement, then move to the end of the last replacement made.
Otherwise, stay at point.")
(defun perform-replace (from-string to-string
query-flag regexp-flag delimited-flag)
(if (or replace-move-point query-flag)
(perform-replace-1 from-string to-string query-flag
regexp-flag delimited-flag)
(save-excursion
(perform-replace-1 from-string to-string query-flag
regexp-flag delimited-flag))))
;; The following function would be the present perform-replace.
(defun perform-replace-1 (...)
)