aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2019-12-10 20:36:48 -0500
committerKyle Meyer <kyle@kyleam.com>2019-12-10 20:42:02 -0500
commit5b4e45eb27a9e0bd8697ddb49a281f6f9dda2906 (patch)
tree1129e2d355788754bfb52f9d92a452431ba98f1b
parent819a6a3fdfcb42df14fb48fd9f1ce1cf20d32f43 (diff)
downloadorg-link-edit-5b4e45eb27a9e0bd8697ddb49a281f6f9dda2906.tar.gz
Update obsolete names with for ol- variants
Many link-related names changed in a486d9cbd (Move link-related core functions out of "org.el", 2018-11-27).
-rw-r--r--org-link-edit.el16
1 files changed, 8 insertions, 8 deletions
diff --git a/org-link-edit.el b/org-link-edit.el
index 8500f2a..0c2cc27 100644
--- a/org-link-edit.el
+++ b/org-link-edit.el
@@ -90,13 +90,13 @@ The list includes
;; Use match-{beginning,end} because match-end is consistently
;; positioned after ]], while the :end property is positioned
;; at the next word on the line, if one is present.
- ((looking-at org-bracket-link-regexp)
+ ((looking-at org-link-bracket-re)
(list (match-beginning 0)
(match-end 0)
(save-match-data
(org-link-unescape (match-string-no-properties 1)))
(or (match-string-no-properties 2) "")))
- ((looking-at org-plain-link-re)
+ ((looking-at org-link-plain-re)
(list (match-beginning 0)
(match-end 0)
(org-link-unescape (match-string-no-properties 0))
@@ -170,7 +170,7 @@ If N is negative, slurp leading blobs instead of trailing blobs."
(setq desc (concat desc slurped)
end (+ end (length slurped)))
(delete-region beg (point))
- (insert (org-make-link-string link desc))
+ (insert (org-link-make-string link desc))
(goto-char beg)
slurped)))))
@@ -212,7 +212,7 @@ If N is negative, slurp trailing blobs instead of leading blobs."
(setq desc (concat slurped desc)
beg (- beg (length slurped)))
(delete-region (point) end)
- (insert (org-make-link-string link desc))
+ (insert (org-link-make-string link desc))
(goto-char beg)
slurped)))))
@@ -282,7 +282,7 @@ If N is negative, barf leading blobs instead of trailing blobs."
(unless new-desc (user-error "Not enough blobs in description"))
(goto-char beg)
(delete-region beg end)
- (insert (org-make-link-string link new-desc))
+ (insert (org-link-make-string link new-desc))
(when (string= new-desc "")
(setq barfed (concat " " barfed)))
(insert barfed)
@@ -321,7 +321,7 @@ If N is negative, barf trailing blobs instead of leading blobs."
(unless new-desc (user-error "Not enough blobs in description"))
(goto-char beg)
(delete-region beg end)
- (insert (org-make-link-string link new-desc))
+ (insert (org-link-make-string link new-desc))
(when (string= new-desc "")
(setq barfed (concat barfed " ")))
(goto-char beg)
@@ -331,7 +331,7 @@ If N is negative, barf trailing blobs instead of leading blobs."
(defun org-link-edit--next-link-data (&optional previous)
(save-excursion
(if (funcall (if previous #'re-search-backward #'re-search-forward)
- org-any-link-re nil t)
+ org-link-any-re nil t)
(org-link-edit--link-data)
(user-error "No %s link found" (if previous "previous" "next")))))
@@ -386,7 +386,7 @@ without asking."
overwrite))
(user-error "Link already has a description"))
(delete-region link-beg link-end)
- (insert (org-make-link-string
+ (insert (org-link-make-string
link
(if desc-bounds
(delete-and-extract-region (car desc-bounds)