diff options
| author | Juri Linkov | 2013-05-31 02:29:42 +0300 |
|---|---|---|
| committer | Juri Linkov | 2013-05-31 02:29:42 +0300 |
| commit | ab1bdce51e336b4433dbbc0949b4dc02773831de (patch) | |
| tree | e4259e3d44c4a03127c5db6cb4895f3216241899 /lisp/replace.el | |
| parent | 2a8bed1c0266166b759578fad0fc408067f6441c (diff) | |
| download | emacs-ab1bdce51e336b4433dbbc0949b4dc02773831de.tar.gz emacs-ab1bdce51e336b4433dbbc0949b4dc02773831de.zip | |
* lisp/replace.el (perform-replace): Avoid `isearch-range-invisible'
call when `query-flag' is nil and `search-invisible' is non-nil.
Fixes: debbugs:11746
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 15d5f2694a8..af05bd11fb2 100644 --- a/lisp/replace.el +++ b/lisp/replace.el | |||
| @@ -2093,6 +2093,9 @@ make, or the user didn't cancel the call." | |||
| 2093 | (setq skip-filtered-count (1+ skip-filtered-count))) | 2093 | (setq skip-filtered-count (1+ skip-filtered-count))) |
| 2094 | ;; Optionally ignore invisible matches. | 2094 | ;; Optionally ignore invisible matches. |
| 2095 | ((not (or (eq search-invisible t) | 2095 | ((not (or (eq search-invisible t) |
| 2096 | ;; Don't open overlays for automatic replacements. | ||
| 2097 | (and (not query-flag) search-invisible) | ||
| 2098 | ;; Open hidden overlays for interactive replacements. | ||
| 2096 | (not (isearch-range-invisible | 2099 | (not (isearch-range-invisible |
| 2097 | (nth 0 real-match-data) (nth 1 real-match-data))))) | 2100 | (nth 0 real-match-data) (nth 1 real-match-data))))) |
| 2098 | (setq skip-invisible-count (1+ skip-invisible-count))) | 2101 | (setq skip-invisible-count (1+ skip-invisible-count))) |