Mercurial > emacs
comparison lisp/progmodes/etags.el @ 9941:6d82f17895cf
(tags-query-replace): Use query-replace-read-args in interactive spec.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Tue, 15 Nov 1994 21:03:22 +0000 |
| parents | d49a23c098df |
| children | 82b5f32c84de |
comparison
equal
deleted
inserted
replaced
| 9940:4a06fd6dcbff | 9941:6d82f17895cf |
|---|---|
| 1353 Third arg DELIMITED (prefix arg) means replace only word-delimited matches. | 1353 Third arg DELIMITED (prefix arg) means replace only word-delimited matches. |
| 1354 If you exit (\\[keyboard-quit] or ESC), you can resume the query-replace | 1354 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 |
| 1363 ;; to the beginning of it so perform-replace | 1362 ;; to the beginning of it so perform-replace |
| 1364 ;; will see it. | 1363 ;; will see it. |