branch: elpa/anzu
commit a1f56b6dad538990669ad16085e11ef84dc2c992
Merge: 05eda5f709 4d81f2f0cd
Author: Syohei YOSHIDA <[email protected]>
Commit: Syohei YOSHIDA <[email protected]>
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)))))
