summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--org-link-edit.el10
-rw-r--r--test-org-link-edit.el6
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"))))