summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJuri Linkov <juri@linkov.net>2022-01-14 10:18:43 +0200
committerJuri Linkov <juri@linkov.net>2022-01-14 10:18:43 +0200
commit102dd6e59bcc49bab669ff35512e4d2008f34cde (patch)
tree83c5a824adae66cbdb67041676b9bcd79f675d1d
parent16764cc30565703e103edf50a8381fb36a128b00 (diff)
downloademacs-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.el4
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))))