diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2017-03-03 00:10:00 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2017-03-03 00:29:36 -0500 |
| commit | 5dd5901cf6850f2bfdba64c896d10b017633600e (patch) | |
| tree | a475230f48ed84b9d463fd562079ea6a310151d5 | |
| parent | 99009e8c5ec706b7aa1da6d0f6818c4f78567d40 (diff) | |
| download | org-link-edit-5dd5901cf6850f2bfdba64c896d10b017633600e.tar.gz | |
org-link-edit--get-link-data: Rename to drop "get"
| -rw-r--r-- | org-link-edit.el | 10 | ||||
| -rw-r--r-- | 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")))) |