branch: elpa/anzu
commit 1e5c3ca0b7847a34e262a0e1fc85c83c41adbee5
Author: Syohei YOSHIDA <[email protected]>
Commit: Syohei YOSHIDA <[email protected]>
Use #' instead of ' for detecting typo
---
anzu.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/anzu.el b/anzu.el
index 4f31b3b9b0..444734b709 100644
--- a/anzu.el
+++ b/anzu.el
@@ -197,7 +197,7 @@
(lambda (word &optional bound noerror count)
(ignore-errors
(migemo-forward word bound noerror count)))
- 're-search-forward))
+ #'re-search-forward))
(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)
@@ -394,7 +394,7 @@
overlayed))))))
(defun anzu--search-outside-visible (buf input beg end use-regexp)
- (let ((searchfn (if use-regexp 're-search-forward 'search-forward)))
+ (let ((searchfn (if use-regexp #'re-search-forward #'search-forward)))
(when (or (not use-regexp) (anzu--validate-regexp input))
(with-selected-window (get-buffer-window buf)
(goto-char beg)
@@ -707,7 +707,7 @@
(save-excursion
(goto-char beg)
(cl-loop with curbuf = (current-buffer)
- with search-func = (if use-regexp 're-search-forward
'search-forward)
+ with search-func = (if use-regexp #'re-search-forward
#'search-forward)
while (funcall search-func from end t)
do
(progn
@@ -754,10 +754,10 @@
clear-overlay t)
(let ((case-fold-search (not at-cursor)))
(if use-regexp
- (apply 'perform-replace
(anzu--construct-perform-replace-arguments
- from to delimited beg end backward
query))
- (apply 'query-replace (anzu--construct-query-replace-arguments
- from to delimited beg end backward)))))
+ (apply #'perform-replace
(anzu--construct-perform-replace-arguments
+ from to delimited beg end backward
query))
+ (apply #'query-replace (anzu--construct-query-replace-arguments
+ from to delimited beg end backward)))))
(progn
(unless clear-overlay
(anzu--clear-overlays curbuf beg end))
