branch: externals/substitute
commit 89c3389e1c58109cb35998782dd22196de78ed7f
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Rename local variable for clarity
---
substitute.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/substitute.el b/substitute.el
index 58a53dd358..4a854795c8 100644
--- a/substitute.el
+++ b/substitute.el
@@ -152,13 +152,13 @@ This is the subroutine of `substitute-target' and
related."
(save-excursion
(save-restriction
(let ((search-direction-function 're-search-forward)
- (narrow (lambda () (widen) (goto-char (point-min)))))
+ (scope-function (lambda () (widen) (goto-char (point-min)))))
(pcase scope
- ('below (setq narrow (substitute--current-and-below-motion
target)))
+ ('below (setq scope-function (substitute--current-and-below-motion
target)))
('above (setq search-direction-function 're-search-backward
- narrow (substitute--current-and-above-motion
target)))
- ('defun (setq narrow (substitute--current-defun))))
- (funcall narrow)
+ scope-function (substitute--current-and-above-motion
target)))
+ ('defun (setq scope-function (substitute--current-defun))))
+ (funcall scope-function)
(while (funcall search-direction-function target nil t)
(push (match-string-no-properties 0) count)
(replace-match sub nil t)))))
