1733 |
with the command \\[tags-loop-continue]. |
with the command \\[tags-loop-continue]. |
1734 |
|
|
1735 |
See documentation of variable `tags-file-name'." |
See documentation of variable `tags-file-name'." |
1736 |
(interactive (query-replace-read-args "Tags query replace (regexp)" t)) |
(interactive (query-replace-read-args "Tags query replace (regexp)" t t)) |
1737 |
(setq tags-loop-scan `(let ,(unless (equal from (downcase from)) |
(setq tags-loop-scan `(let ,(unless (equal from (downcase from)) |
1738 |
'((case-fold-search nil))) |
'((case-fold-search nil))) |
1739 |
(if (re-search-forward ',from nil t) |
(if (re-search-forward ',from nil t) |