diff options
| author | Juri Linkov <juri@linkov.net> | 2022-09-04 19:55:59 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2022-09-04 19:55:59 +0300 |
| commit | 40cdbf6dc133214c34da40cd7cc097dc39c05c3f (patch) | |
| tree | b5ed834d1f8e2b54e9ad7897cf317c42c26de310 /lisp/isearch.el | |
| parent | ad6878005dbde428809c1f587555238892dd253d (diff) | |
| download | emacs-40cdbf6dc133214c34da40cd7cc097dc39c05c3f.tar.gz | |
Use use-region-beginning/end in replacement commands (bug#45607)
* lisp/isearch.el (isearch-query-replace): Use use-region-beginning
and use-region-end.
* lisp/textmodes/paragraphs.el (repunctuate-sentences):
* lisp/replace.el (query-replace, query-replace-regexp)
(map-query-replace-regexp, replace-string, replace-regexp):
Add 'interactive-args' to 'declare' and use use-region-beginning,
use-region-end, use-region-noncontiguous-p.
* lisp/simple.el (use-region-noncontiguous-p): New function.
(region-noncontiguous-p): Return more meaningful value.
Diffstat (limited to 'lisp/isearch.el')
| -rw-r--r-- | lisp/isearch.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 9f1fbb14a4a..2ef35438e91 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -2389,8 +2389,7 @@ type \\[help-command] at that time." (if (use-region-p) " in region" "")) isearch-regexp) t isearch-regexp (or delimited isearch-regexp-function) nil nil - (if (use-region-p) (region-beginning)) - (if (use-region-p) (region-end)) + (use-region-beginning) (use-region-end) backward)) (and isearch-recursive-edit (exit-recursive-edit))) |