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

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

[nongnu] elpa/smartparens 9e3316b721 1/2: refactor: rename get function


From: ELPA Syncer
Subject: [nongnu] elpa/smartparens 9e3316b721 1/2: refactor: rename get function to make to show it is a constructor
Date: Wed, 18 Jan 2023 14:02:05 -0500 (EST)

branch: elpa/smartparens
commit 9e3316b7218325657c881e8e26693bd1a7e98b36
Author: Matus Goljer <matus.goljer@gmail.com>
Commit: Matus Goljer <matus.goljer@gmail.com>

    refactor: rename get function to make to show it is a constructor
---
 smartparens.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/smartparens.el b/smartparens.el
index 4e5306ce1f..d1fec70249 100644
--- a/smartparens.el
+++ b/smartparens.el
@@ -3378,7 +3378,7 @@ anything."
       (regexp-opt (--map (car it) pair-list))
     "^\\<$"))
 
-(defun sp--get-last-wraped-region (beg end open close)
+(defun sp--make-last-wraped-region (beg end open close)
   "Return `sp-get-sexp' style plist about the last wrapped region.
 
 Note: this function does not retrieve the actual value of
@@ -3542,7 +3542,7 @@ OPEN and CLOSE are the delimiters."
     (sp--replace-overlay-text oend close)
     (setq sp-last-operation 'sp-wrap-region)
     (setq sp-last-wrapped-region
-          (sp--get-last-wraped-region
+          (sp--make-last-wraped-region
            (overlay-start obeg) (overlay-end oend)
            open close))
     (cond
@@ -3987,7 +3987,7 @@ active region."
                      (goto-char (- e cllen))
                      (insert (cdr active-pair))
                      (setq sp-last-wrapped-region
-                           (sp--get-last-wraped-region
+                           (sp--make-last-wraped-region
                             (+ b oplen) (point)
                             (car active-pair) (cdr active-pair)))
                      (goto-char (+ b oplen acolen)))
@@ -3996,7 +3996,7 @@ active region."
             (goto-char e)
             (insert (cdr active-pair))
             (setq sp-last-wrapped-region
-                  (sp--get-last-wraped-region
+                  (sp--make-last-wraped-region
                    b e (car active-pair) (cdr active-pair))))
           (setq sp-last-operation 'sp-wrap-region)
           (sp--run-hook-with-args (car active-pair) :post-handlers 'wrap)
@@ -7784,7 +7784,7 @@ Examples:
           (unless keep-old
             (delete-char :op-l))
           (setq sp-last-wrapped-region
-                (sp--get-last-wraped-region
+                (sp--make-last-wraped-region
                  :beg (+ :end
                         (length (car pair))
                         (length (cdr pair))



reply via email to

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