From 5dd5901cf6850f2bfdba64c896d10b017633600e Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Fri, 3 Mar 2017 00:10:00 -0500
Subject: org-link-edit--get-link-data: Rename to drop "get"

---
 org-link-edit.el      | 10 +++++-----
 test-org-link-edit.el |  6 +++---
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/org-link-edit.el b/org-link-edit.el
index b3ff941..49e9aa0 100644
--- a/org-link-edit.el
+++ b/org-link-edit.el
@@ -61,7 +61,7 @@
 (require 'org-element)
 (require 'cl-lib)
 
-(defun org-link-edit--get-link-data ()
+(defun org-link-edit--link-data ()
   "Return list with information about the link at point.
 The list includes
 - the position at the start of the link
@@ -149,7 +149,7 @@ If N is negative, slurp leading blobs instead of trailing blobs."
    ((< n 0)
     (org-link-edit-backward-slurp (- n)))
    (t
-    (cl-multiple-value-bind (beg end link desc) (org-link-edit--get-link-data)
+    (cl-multiple-value-bind (beg end link desc) (org-link-edit--link-data)
       (goto-char (save-excursion
                    (goto-char end)
                    (or (org-link-edit--forward-blob n 'no-punctuation)
@@ -191,7 +191,7 @@ If N is negative, slurp trailing blobs instead of leading blobs."
    ((< n 0)
     (org-link-edit-forward-slurp (- n)))
    (t
-    (cl-multiple-value-bind (beg end link desc) (org-link-edit--get-link-data)
+    (cl-multiple-value-bind (beg end link desc) (org-link-edit--link-data)
       (goto-char (save-excursion
                    (goto-char beg)
                    (or (org-link-edit--forward-blob (- n))
@@ -267,7 +267,7 @@ If N is negative, barf leading blobs instead of trailing blobs."
    ((< n 0)
     (org-link-edit-backward-barf (- n)))
    (t
-    (cl-multiple-value-bind (beg end link desc) (org-link-edit--get-link-data)
+    (cl-multiple-value-bind (beg end link desc) (org-link-edit--link-data)
       (when (= (length desc) 0)
         (user-error "Link has no description"))
       (pcase-let ((`(,new-desc . ,barfed) (org-link-edit--split-last-blobs
@@ -306,7 +306,7 @@ If N is negative, barf trailing blobs instead of leading blobs."
    ((< n 0)
     (org-link-edit-forward-barf (- n)))
    (t
-    (cl-multiple-value-bind (beg end link desc) (org-link-edit--get-link-data)
+    (cl-multiple-value-bind (beg end link desc) (org-link-edit--link-data)
       (when (= (length desc) 0)
         (user-error "Link has no description"))
       (pcase-let ((`(,barfed . ,new-desc) (org-link-edit--split-first-blobs
diff --git a/test-org-link-edit.el b/test-org-link-edit.el
index 6cf936a..893cec5 100644
--- a/test-org-link-edit.el
+++ b/test-org-link-edit.el
@@ -514,17 +514,17 @@ website"
 ;;; Other
 
 (ert-deftest test-org-link-edit/get-link-data ()
-  "Test `org-link-edit--get-link-data'."
+  "Test `org-link-edit--link-data'."
   ;; Plain link
   (cl-multiple-value-bind (beg end link desc)
       (org-test-with-temp-text "http://orgmode.org/"
-        (org-link-edit--get-link-data))
+        (org-link-edit--link-data))
     (should (string= link "http://orgmode.org/"))
     (should-not desc))
   ;; Bracket link
   (cl-multiple-value-bind (beg end link desc)
       (org-test-with-temp-text "\[\[http://orgmode.org/\]\[org\]\]"
-        (org-link-edit--get-link-data))
+        (org-link-edit--link-data))
     (should (string= link "http://orgmode.org/"))
     (should (string= desc "org"))))
 
-- 
cgit v1.2.3