[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/anzu ee6a6448df 277/288: Merge pull request #107 from emac
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/anzu ee6a6448df 277/288: Merge pull request #107 from emacsorphanage/revert-104-fix93 |
Date: |
Thu, 6 Jan 2022 03:59:00 -0500 (EST) |
branch: elpa/anzu
commit ee6a6448df72618b2b62208ac19c9654614072ce
Merge: 71a1a88dcd 38d49e3664
Author: Neil Okamoto <neil.okamoto@gmail.com>
Commit: GitHub <noreply@github.com>
Merge pull request #107 from emacsorphanage/revert-104-fix93
Revert "Fix issue #93"
---
anzu.el | 15 +++++++--------
1 file changed, 7 insertions(+), 8 deletions(-)
diff --git a/anzu.el b/anzu.el
index 0aaae37fe3..72fe2841cb 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 ()
- (if isearch-mode
- isearch-case-fold-search
- case-fold-search))
+(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--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)))
+ (case-fold-search (anzu--case-fold-search input)))
(while (and (not finish) (funcall search-func input nil t))
(push (cons (match-beginning 0) (match-end 0)) positions)
(cl-incf count)
@@ -235,8 +235,7 @@
(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)
- (not (eq last-command 'isearch-toggle-case-fold))))
+ (string= input anzu--last-isearch-string)))
(defun anzu--update (query)
(when (>= (length query) anzu-minimum-input-length)
@@ -586,7 +585,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)))
+ (let ((case-fold-search (anzu--case-fold-search from)))
(dolist (ov (anzu--overlays-in-range beg (min end overlay-limit)))
(let ((replace-evaled
(if (not use-regexp)
- [nongnu] elpa/anzu f2914907e9 255/288: Update minimum Emacs version, (continued)
- [nongnu] elpa/anzu f2914907e9 255/288: Update minimum Emacs version, ELPA Syncer, 2022/01/06
- [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 <=
- [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, 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