Mercurial > emacs
changeset 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 | 4a06fd6dcbff |
children | c189487b08dd |
files | lisp/progmodes/etags.el |
diffstat | 1 files changed, 1 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/etags.el Tue Nov 15 19:41:36 1994 +0000 +++ b/lisp/progmodes/etags.el Tue Nov 15 21:03:22 1994 +0000 @@ -1355,8 +1355,7 @@ with the command \\[tags-loop-continue]. See documentation of variable `tags-file-name'." - (interactive - "sTags query replace (regexp): \nsTags query replace %s by: \nP") + (interactive (query-replace-read-args "Tags query replace (regexp)" t)) (setq tags-loop-scan (list 'prog1 (list 'if (list 're-search-forward from nil t) ;; When we find a match, move back