[nongnu] elpa/anzu 3adcdab743 163/288: Correct saving replacement history

[ELPA Syncer]

branch: elpa/anzu
commit 3adcdab74339f828e680a6fef02011a7449a9e3d
Author: Syohei YOSHIDA <syohex@gmail.com>
Commit: Syohei YOSHIDA <syohex@gmail.com>

    Correct saving replacement history
---
 anzu.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/anzu.el b/anzu.el
index de77b864fa..a33b960f13 100644
--- a/anzu.el
+++ b/anzu.el
@@ -298,8 +298,8 @@
   (let ((prompt (anzu--query-prompt-base use-region use-regexp)))
     (if (and query-replace-defaults (not at-cursor))
         (format "%s (default %s -> %s) " prompt
-                (query-replace-descr (car query-replace-defaults))
-                (query-replace-descr (cdr query-replace-defaults)))
+                (query-replace-descr (caar query-replace-defaults))
+                (query-replace-descr (cdar query-replace-defaults)))
       prompt)))
 
 (defvar anzu--replaced-markers nil)
@@ -426,9 +426,9 @@
     (when (and (not is-empty) (not query-replace-defaults))
       (setq anzu--last-replaced-count anzu--total-matched))
     (if (and is-empty query-replace-defaults)
-        (cons (car query-replace-defaults)
+        (cons (caar query-replace-defaults)
               (query-replace-compile-replacement
-               (cdr query-replace-defaults) use-regexp))
+               (cdar query-replace-defaults) use-regexp))
       (add-to-history query-replace-from-history-variable from nil t)
       (when use-regexp
         (anzu--query-validate-from-regexp from))
@@ -533,7 +533,7 @@
   (query-replace-compile-replacement
    (let ((to (anzu--read-to-string from prompt beg end use-regexp 
overlay-limit)))
      (add-to-history query-replace-to-history-variable to nil t)
-     (setq query-replace-defaults (cons from to))
+     (add-to-history 'query-replace-defaults (cons from to) nil t)
      to)
    use-regexp))