Mercurial > emacs
changeset 40309:70819225d683
(tags-query-replace): Make tags-loop-scan
bind case-fold-search if FROM is not all lower case.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 25 Oct 2001 15:26:46 +0000 |
| parents | 47dd2c916c80 |
| children | 34f1a01f25fa |
| files | lisp/progmodes/etags.el |
| diffstat | 1 files changed, 9 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/etags.el Thu Oct 25 15:01:23 2001 +0000 +++ b/lisp/progmodes/etags.el Thu Oct 25 15:26:46 2001 +0000 @@ -1737,12 +1737,15 @@ See documentation of variable `tags-file-name'." (interactive (query-replace-read-args "Tags query replace (regexp)" t)) (setq tags-loop-scan (list 'prog1 - (list 'if (list 're-search-forward - (list 'quote from) nil t) - ;; When we find a match, move back - ;; to the beginning of it so perform-replace - ;; will see it. - '(goto-char (match-beginning 0)))) + (list 'let + (if (not (equal from (downcase from))) + '((case-fold-search nil))) + (list 'if (list 're-search-forward + (list 'quote from) nil t) + ;; When we find a match, move back + ;; to the beginning of it so + ;; perform-replace will see it. + '(goto-char (match-beginning 0))))) tags-loop-operate (list 'perform-replace (list 'quote from) (list 'quote to) t t (list 'quote delimited)))