emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/substitute 89c3389e1c 15/39: Rename local variable for


From: ELPA Syncer
Subject: [elpa] externals/substitute 89c3389e1c 15/39: Rename local variable for clarity
Date: Mon, 16 Jan 2023 11:58:50 -0500 (EST)

branch: externals/substitute
commit 89c3389e1c58109cb35998782dd22196de78ed7f
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    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)))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]