aboutsummaryrefslogtreecommitdiff
path: root/org-link-edit.el
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2017-03-03 00:10:00 -0500
committerKyle Meyer <kyle@kyleam.com>2017-03-03 00:29:36 -0500
commit5dd5901cf6850f2bfdba64c896d10b017633600e (patch)
treea475230f48ed84b9d463fd562079ea6a310151d5 /org-link-edit.el
parent99009e8c5ec706b7aa1da6d0f6818c4f78567d40 (diff)
downloadorg-link-edit-5dd5901cf6850f2bfdba64c896d10b017633600e.tar.gz
org-link-edit--get-link-data: Rename to drop "get"
Diffstat (limited to 'org-link-edit.el')
-rw-r--r--org-link-edit.el10
1 files changed, 5 insertions, 5 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