diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2020-10-30 12:20:23 +0100 |
|---|---|---|
| committer | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2020-10-30 13:32:35 +0200 |
| commit | 2d807449561d2d651b79bea948409c823b8e57f6 (patch) | |
| tree | 535752737def40a1f738b64f8756c031e51195bb | |
| parent | 3670ebea092c7bae4973f5bcecf5ac3588a0ac60 (diff) | |
Silence Emacs 27's byte-compiler
| -rw-r--r-- | projectile.el | 23 |
1 files changed, 13 insertions, 10 deletions
diff --git a/projectile.el b/projectile.el index 9ecf10b..1b7fdbb 100644 --- a/projectile.el +++ b/projectile.el @@ -3699,16 +3699,19 @@ to run the replacement." ;; Emacs 25 and 26 ;; ;; Adapted from `tags-query-replace' for literal strings (not regexp) - (setq tags-loop-scan `(let ,(unless (equal old-text (downcase old-text)) - '((case-fold-search nil))) - (if (search-forward ',old-text nil t) - ;; When we find a match, move back to - ;; the beginning of it so - ;; perform-replace will see it. - (goto-char (match-beginning 0)))) - tags-loop-operate `(perform-replace ',old-text ',new-text t nil nil - nil multi-query-replace-map)) - (with-no-warnings (tags-loop-continue (or (cons 'list files) t)))))) + (with-no-warnings + (setq tags-loop-scan + `(let ,(unless (equal old-text (downcase old-text)) + '((case-fold-search nil))) + (if (search-forward ',old-text nil t) + ;; When we find a match, move back to + ;; the beginning of it so + ;; perform-replace will see it. + (goto-char (match-beginning 0))))) + (setq tags-loop-operate + `(perform-replace ',old-text ',new-text t nil nil + nil multi-query-replace-map)) + (tags-loop-continue (or (cons 'list files) t)))))) ;;;###autoload (defun projectile-replace-regexp (&optional arg) |