diff options
| author | Richard M. Stallman | 2002-03-25 00:40:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-03-25 00:40:16 +0000 |
| commit | 17b9c33c8ddcdc24001efabc36faacc079ac8eab (patch) | |
| tree | da695c5ebb55e4f5f92cd091de2b633d5e9e20fe | |
| parent | 347c91407b0eba8a55d6bcf88fa80c2a7d4eab46 (diff) | |
| download | emacs-17b9c33c8ddcdc24001efabc36faacc079ac8eab.tar.gz emacs-17b9c33c8ddcdc24001efabc36faacc079ac8eab.zip | |
(tags-query-replace): Pass t for NOERROR to query-replace-read-args.
| -rw-r--r-- | lisp/progmodes/etags.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index c0613881db0..15153029c33 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el | |||
| @@ -1733,7 +1733,7 @@ If you exit (\\[keyboard-quit], RET or q), you can resume the query replace | |||
| 1733 | with the command \\[tags-loop-continue]. | 1733 | with the command \\[tags-loop-continue]. |
| 1734 | 1734 | ||
| 1735 | See documentation of variable `tags-file-name'." | 1735 | See documentation of variable `tags-file-name'." |
| 1736 | (interactive (query-replace-read-args "Tags query replace (regexp)" t)) | 1736 | (interactive (query-replace-read-args "Tags query replace (regexp)" t t)) |
| 1737 | (setq tags-loop-scan `(let ,(unless (equal from (downcase from)) | 1737 | (setq tags-loop-scan `(let ,(unless (equal from (downcase from)) |
| 1738 | '((case-fold-search nil))) | 1738 | '((case-fold-search nil))) |
| 1739 | (if (re-search-forward ',from nil t) | 1739 | (if (re-search-forward ',from nil t) |