diff options
| author | Juri Linkov | 2022-01-14 10:18:43 +0200 |
|---|---|---|
| committer | Juri Linkov | 2022-01-14 10:18:43 +0200 |
| commit | 102dd6e59bcc49bab669ff35512e4d2008f34cde (patch) | |
| tree | 83c5a824adae66cbdb67041676b9bcd79f675d1d | |
| parent | 16764cc30565703e103edf50a8381fb36a128b00 (diff) | |
| download | emacs-102dd6e59bcc49bab669ff35512e4d2008f34cde.tar.gz emacs-102dd6e59bcc49bab669ff35512e4d2008f34cde.zip | |
* 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 | |||
| 745 | which case the user is prompted for both FROM and TO." | 745 | which case the user is prompted for both FROM and TO." |
| 746 | (interactive | 746 | (interactive |
| 747 | (let* ((fr | 747 | (let* ((fr |
| 748 | (if prefix-arg | 748 | (if current-prefix-arg |
| 749 | (read-regexp "Query-replace (regexp)" ".*") | 749 | (read-regexp "Query-replace (regexp)" ".*") |
| 750 | ".*")) | 750 | ".*")) |
| 751 | (prompt (if prefix-arg | 751 | (prompt (if current-prefix-arg |
| 752 | (format "Query-replace (regexp) %s with: " fr) | 752 | (format "Query-replace (regexp) %s with: " fr) |
| 753 | "Query-replace all matches with: "))) | 753 | "Query-replace all matches with: "))) |
| 754 | (list fr (read-regexp prompt)))) | 754 | (list fr (read-regexp prompt)))) |