[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/anzu 71a1a88dcd 275/288: Merge pull request #104 from agre
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/anzu 71a1a88dcd 275/288: Merge pull request #104 from agreselin/fix93 |
Date: |
Thu, 6 Jan 2022 03:59:00 -0500 (EST) |
branch: elpa/anzu
commit 71a1a88dcdbaf21c94e415ffee3d6bcf8cf9bade
Merge: 5bd8f5511d 7dc4abe0a0
Author: Neil Okamoto <neil.okamoto@gmail.com>
Commit: GitHub <noreply@github.com>
Merge pull request #104 from agreselin/fix93
fix the displayed counter to follow the case-sensitivity toggle more
accurately
Fix issue #93
---
anzu.el | 15 ++++++++-------
1 file changed, 8 insertions(+), 7 deletions(-)
diff --git a/anzu.el b/anzu.el
index 72fe2841cb..0aaae37fe3 100644
--- a/anzu.el
+++ b/anzu.el
@@ -163,10 +163,10 @@
(defsubst anzu--construct-position-info (count overflow positions)
(list :count count :overflow overflow :positions positions))
-(defsubst anzu--case-fold-search (input)
- (when isearch-case-fold-search
- (let ((case-fold-search nil))
- (not (string-match-p "[A-Z]" input)))))
+(defsubst anzu--case-fold-search ()
+ (if isearch-mode
+ isearch-case-fold-search
+ case-fold-search))
(defsubst anzu--word-search-p ()
(and (not (memq anzu--last-command anzu-regexp-search-commands))
@@ -206,7 +206,7 @@
(with-no-warnings
(migemo-forward word bound noerror count)))
#'re-search-forward))
- (case-fold-search (anzu--case-fold-search input)))
+ (case-fold-search (anzu--case-fold-search)))
(while (and (not finish) (funcall search-func input nil t))
(push (cons (match-beginning 0) (match-end 0)) positions)
(cl-incf count)
@@ -235,7 +235,8 @@
(defun anzu--use-result-cache-p (input)
(and (eq (anzu--isearch-regexp-function) (car anzu--last-search-state))
(eq isearch-regexp (cdr anzu--last-search-state))
- (string= input anzu--last-isearch-string)))
+ (string= input anzu--last-isearch-string)
+ (not (eq last-command 'isearch-toggle-case-fold))))
(defun anzu--update (query)
(when (>= (length query) anzu-minimum-input-length)
@@ -585,7 +586,7 @@
(unless (string= content anzu--last-replace-input)
(setq anzu--last-replace-input content)
(with-current-buffer buf
- (let ((case-fold-search (anzu--case-fold-search from)))
+ (let ((case-fold-search (anzu--case-fold-search)))
(dolist (ov (anzu--overlays-in-range beg (min end overlay-limit)))
(let ((replace-evaled
(if (not use-regexp)
- [nongnu] elpa/anzu 13401ab3c6 249/288: Don't search over bound, (continued)
- [nongnu] elpa/anzu 13401ab3c6 249/288: Don't search over bound, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu d257c79a7a 258/288: Merge pull request #85 from syohex/add-docstrings, ELPA Syncer, 2022/01/06
- [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 <=
- [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, 2022/01/06
- [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