emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/anzu a1f56b6dad 193/288: Merge pull request #50 from syohe


From: ELPA Syncer
Subject: [nongnu] elpa/anzu a1f56b6dad 193/288: Merge pull request #50 from syohex/fix-default-input-49
Date: Thu, 6 Jan 2022 03:58:52 -0500 (EST)

branch: elpa/anzu
commit a1f56b6dad538990669ad16085e11ef84dc2c992
Merge: 05eda5f709 4d81f2f0cd
Author: Syohei YOSHIDA <syohex@gmail.com>
Commit: Syohei YOSHIDA <syohex@gmail.com>

    Merge pull request #50 from syohex/fix-default-input-49
    
    Fix order of conditions in cond
---
 anzu.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/anzu.el b/anzu.el
index 5a4ef88ce4..fdbd79b99c 100644
--- a/anzu.el
+++ b/anzu.el
@@ -694,13 +694,13 @@
                            (setq delimited nil)
                            (anzu--query-from-at-cursor curbuf beg end 
overlay-limit))
                        (anzu--query-from-string prompt beg end use-regexp 
overlay-limit)))
-               (to (cond ((string-match "\0" from)
-                          (prog1 (substring-no-properties from (match-end 0))
-                            (setq from (substring-no-properties from 0 
(match-beginning 0)))))
-                         ((consp from)
+               (to (cond ((consp from)
                           (prog1 (cdr from)
                             (setq from (car from)
                                   anzu--total-matched 
anzu--last-replaced-count)))
+                         ((string-match "\0" from)
+                          (prog1 (substring-no-properties from (match-end 0))
+                            (setq from (substring-no-properties from 0 
(match-beginning 0)))))
                          (t
                           (anzu--query-replace-read-to
                            from prompt beg end use-regexp overlay-limit)))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]