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

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

[elpa] externals/substitute 673c22fe54 35/39: Rename private function fo


From: ELPA Syncer
Subject: [elpa] externals/substitute 673c22fe54 35/39: Rename private function for clarity and move it further up
Date: Mon, 16 Jan 2023 11:58:52 -0500 (EST)

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

    Rename private function for clarity and move it further up
---
 substitute.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/substitute.el b/substitute.el
index e85adb2bba..23be368ce9 100644
--- a/substitute.el
+++ b/substitute.el
@@ -82,6 +82,13 @@ Use this to produce a more readable version of TARGET for 
prompts
 and related."
   (replace-regexp-in-string "\\\\_<\\(?1:.*?\\)\\\\_>" "\\1" target))
 
+(defun substitute--determine-face ()
+  "Return face to highlight target of substitute."
+  (if-let* ((face 'lazy-highlight)
+            (facep face))
+      face
+    'secondary-selection))
+
 (defun substitute--prompt-without-highlight (target scope)
   "Prompt for string while referencing TARGET and SCOPE."
   (let ((pretty-target (substitute--pretty-target target)))
@@ -93,13 +100,6 @@ and related."
      'substitute--history
      pretty-target)))
 
-(defun substitute--highlight-face ()
-  "Return face to highlight target of substitute."
-  (if-let* ((face 'lazy-highlight)
-            (facep face))
-      face
-    'secondary-selection))
-
 (defun substitute--prompt-with-highlight (target scope)
   "Prompt for string while referencing TARGET and SCOPE.
 Highlight the TARGET's matching occurences per the user option
@@ -107,7 +107,7 @@ Highlight the TARGET's matching occurences per the user 
option
   (let ((pretty-target (substitute--pretty-target target)))
     (unwind-protect
         (progn
-          (highlight-regexp target (substitute--highlight-face))
+          (highlight-regexp target (substitute--determine-face))
           (substitute--prompt-without-highlight pretty-target scope))
       (unhighlight-regexp target))))
 



reply via email to

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