Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Use new convenience functions in replace-string

Browse source 
* lisp/replace.el (replace-string): Use new convenience functions.
This commit is contained in:
Lars Ingebrigtsen 2022-08-09 21:12:54 +02:00
parent 6ac92c65a8
commit 47aa2317c3
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/replace.el
View file

@ -666,8 +666,8 @@ and TO-STRING is also null.)"
(declare (interactive-only
"use `search-forward' and `replace-match' instead.")
(interactive-args
(start (if (use-region-p) (region-beginning)))
(end (if (use-region-p) (region-end)))))
(start (use-region-beginning))
(end (use-region-end))))
(interactive
(let ((common
(query-replace-read-args
@ -679,8 +679,7 @@ and TO-STRING is also null.)"
(if (use-region-p) " in region" ""))
nil)))
(list (nth 0 common) (nth 1 common) (nth 2 common)
(if (use-region-p) (region-beginning))
(if (use-region-p) (region-end))
(use-region-beginning) (use-region-end)
(nth 3 common)
(if (use-region-p) (region-noncontiguous-p)))))
(perform-replace from-string to-string nil nil delimited nil nil start end backward region-noncontiguous-p))