[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/anzu 592f8ee6d0 263/288: Merge pull request #95 from syohe
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/anzu 592f8ee6d0 263/288: Merge pull request #95 from syohex/emacs-27-bug |
Date: |
Thu, 6 Jan 2022 03:58:59 -0500 (EST) |
branch: elpa/anzu
commit 592f8ee6d0b1bc543943b36a30063c2d1aac4b22
Merge: e6c56ca8b2 1da06b0717
Author: Syohei YOSHIDA <syohex@gmail.com>
Commit: GitHub <noreply@github.com>
Merge pull request #95 from syohex/emacs-27-bug
Don't use cl-loop for Emacs 27 bug
---
anzu.el | 15 ++++++++++-----
1 file changed, 10 insertions(+), 5 deletions(-)
diff --git a/anzu.el b/anzu.el
index 9ab18f9092..2c43e268e8 100644
--- a/anzu.el
+++ b/anzu.el
@@ -222,11 +222,16 @@
result))))))
(defun anzu--where-is-here (positions here)
- (cl-loop for (start . end) in positions
- for i = 1 then (1+ i)
- when (and (>= here start) (<= here end))
- return i
- finally return 0))
+ ;; don't use loop for emacs 27 bug
+ (let ((poss positions)
+ (index 1)
+ (ret 0))
+ (while poss
+ (let ((pos (car poss)))
+ (if (and (>= here (car pos)) (<= here (cdr pos)))
+ (setq ret index poss nil)
+ (setq poss (cdr poss) index (1+ index)))))
+ ret))
(defun anzu--use-result-cache-p (input)
(and (eq (anzu--isearch-regexp-function) (car anzu--last-search-state))
- [nongnu] elpa/anzu 0dbefcdd1f 252/288: Enforce use of spaces for indentation, (continued)
- [nongnu] elpa/anzu 0dbefcdd1f 252/288: Enforce use of spaces for indentation, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu 177a328830 266/288: Fix issue #93, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu a5a22fd537 280/288: release 0.63, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu 9d334a4e37 265/288: replaced string should be compiled at regexp replace, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu ffbe938d60 268/288: perform elisp-lint in circleci, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu 7dc4abe0a0 274/288: Merge branch 'master' into fix93, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu e4c2728734 270/288: fix check-declare error by eliminating declare-function, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu ee6a6448df 277/288: Merge pull request #107 from emacsorphanage/revert-104-fix93, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu 71a1a88dcd 275/288: Merge pull request #104 from agreselin/fix93, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu 2e69955da9 271/288: clean up "make lint" rule in Makefile, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu 592f8ee6d0 263/288: Merge pull request #95 from syohex/emacs-27-bug,
ELPA Syncer <=
- [nongnu] elpa/anzu 7b8688c84d 282/288: default anzu-search-threshold and anzu-replace-threshold is 1000, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu b3d15fba55 283/288: Support non contiguous regions like rectangle region (#115), ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu 5abb37455e 288/288: fix the ci status badge on README.md, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu bdb3da5028 285/288: bump version 0.64, ELPA Syncer, 2022/01/06