[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#40940: 27.0.91; project-query-replace-regexp stops too early
From: |
Eli Zaretskii |
Subject: |
bug#40940: 27.0.91; project-query-replace-regexp stops too early |
Date: |
Sun, 03 May 2020 20:10:38 +0300 |
> Cc: simenheg@runbox.com, monnier@IRO.UMontreal.CA, 40940@debbugs.gnu.org
> From: Dmitry Gutov <dgutov@yandex.ru>
> Date: Sun, 3 May 2020 04:43:26 +0300
>
> +(defun fileloop--case-fold (regexp case-fold)
> + (let ((value
> + (if (memql case-fold '(nil t))
> + case-fold
> + case-fold-search)))
> + (if (and value search-upper-case)
> + (isearch-no-upper-case-p regexp t)
> + value)))
LGTM, thanks. But don't you need to require isearch to get
isearch-no-upper-case-p? or to autoload it?
Here's the doc string I promised:
(defun fileloop-initialize-replace (from to files case-fold &optional
delimited)
"Initialize a new round of query&replace on several files.
FROM is a regexp and TO is the replacement to use.
FILES describes the files, as in `fileloop-initialize'.
CASE-FOLD can be t, nil, or `default':
if it is nil, matching of FROM is case-sensitive.
if it is t, matching of FROM is case-insensitive, except
when `search-upper-case' is non-nil and FROM includes
upper-case letters.
if it is `default', the function uses the value of
`case-fold-search' instead.
DELIMITED if non-nil means replace only word-delimited matches."
- bug#40940: 27.0.91; project-query-replace-regexp stops too early, Eli Zaretskii, 2020/05/01
- bug#40940: 27.0.91; project-query-replace-regexp stops too early, Eli Zaretskii, 2020/05/01
- bug#40940: 27.0.91; project-query-replace-regexp stops too early, Dmitry Gutov, 2020/05/01
- bug#40940: 27.0.91; project-query-replace-regexp stops too early, Eli Zaretskii, 2020/05/01
- bug#40940: 27.0.91; project-query-replace-regexp stops too early, Dmitry Gutov, 2020/05/01
- bug#40940: 27.0.91; project-query-replace-regexp stops too early, Eli Zaretskii, 2020/05/02
- bug#40940: 27.0.91; project-query-replace-regexp stops too early, Eli Zaretskii, 2020/05/02
- bug#40940: 27.0.91; project-query-replace-regexp stops too early, Dmitry Gutov, 2020/05/02
- bug#40940: 27.0.91; project-query-replace-regexp stops too early, Simen Heggestøyl, 2020/05/03
- bug#40940: 27.0.91; project-query-replace-regexp stops too early,
Eli Zaretskii <=
- bug#40940: 27.0.91; project-query-replace-regexp stops too early, Dmitry Gutov, 2020/05/03
- bug#40940: 27.0.91; project-query-replace-regexp stops too early, Dmitry Gutov, 2020/05/03