diff options
| author | Roland McGrath | 1994-11-15 21:03:22 +0000 |
|---|---|---|
| committer | Roland McGrath | 1994-11-15 21:03:22 +0000 |
| commit | 9c833060e3617af13f28c2affc2d61d6d7947b31 (patch) | |
| tree | e4096c89e4018ce9630ba4e2ced6aab0cab9bf43 | |
| parent | 0cabad136a1f87b29958608f6bebfaf85bb3ebe7 (diff) | |
| download | emacs-9c833060e3617af13f28c2affc2d61d6d7947b31.tar.gz emacs-9c833060e3617af13f28c2affc2d61d6d7947b31.zip | |
(tags-query-replace): Use query-replace-read-args in interactive spec.
| -rw-r--r-- | lisp/progmodes/etags.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 0ed8cd2f118..6c270d90222 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el | |||
| @@ -1355,8 +1355,7 @@ If you exit (\\[keyboard-quit] or ESC), you can resume the query-replace | |||
| 1355 | with the command \\[tags-loop-continue]. | 1355 | with the command \\[tags-loop-continue]. |
| 1356 | 1356 | ||
| 1357 | See documentation of variable `tags-file-name'." | 1357 | See documentation of variable `tags-file-name'." |
| 1358 | (interactive | 1358 | (interactive (query-replace-read-args "Tags query replace (regexp)" t)) |
| 1359 | "sTags query replace (regexp): \nsTags query replace %s by: \nP") | ||
| 1360 | (setq tags-loop-scan (list 'prog1 | 1359 | (setq tags-loop-scan (list 'prog1 |
| 1361 | (list 'if (list 're-search-forward from nil t) | 1360 | (list 'if (list 're-search-forward from nil t) |
| 1362 | ;; When we find a match, move back | 1361 | ;; When we find a match, move back |