diff options
author | Juri Linkov <juri@linkov.net> | 2022-01-14 10:18:43 +0200 |
---|---|---|
committer | Juri Linkov <juri@linkov.net> | 2022-01-14 10:18:43 +0200 |
commit | 102dd6e59bcc49bab669ff35512e4d2008f34cde (patch) | |
tree | 83c5a824adae66cbdb67041676b9bcd79f675d1d | |
parent | 16764cc30565703e103edf50a8381fb36a128b00 (diff) | |
download | emacs-102dd6e59bcc49bab669ff35512e4d2008f34cde.tar.gz |
* lisp/progmodes/xref.el (xref-query-replace-in-results): Fix prefix-arg.
Use current-prefix-arg.
-rw-r--r-- | lisp/progmodes/xref.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el index a1e976cb1cc..066c051cfc3 100644 --- a/lisp/progmodes/xref.el +++ b/lisp/progmodes/xref.el @@ -745,10 +745,10 @@ replace the whole name. Unless called with prefix argument, in which case the user is prompted for both FROM and TO." (interactive (let* ((fr - (if prefix-arg + (if current-prefix-arg (read-regexp "Query-replace (regexp)" ".*") ".*")) - (prompt (if prefix-arg + (prompt (if current-prefix-arg (format "Query-replace (regexp) %s with: " fr) "Query-replace all matches with: "))) (list fr (read-regexp prompt)))) |