summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2017-05-09 14:48:07 -0400
committerKyle Meyer <kyle@kyleam.com>2017-05-09 14:49:22 -0400
commit1eab2bb5e24ca042c0dbeca658ce0452696ec9c8 (patch)
treed4d2bb18d53a0a7f653544df31a13f378cfb1de2
parente89ca9c5d23190e9d88dfda8b6280e0fd1c6f0b7 (diff)
downloadorg-mode-1eab2bb5e24ca042c0dbeca658ce0452696ec9c8.tar.gz
org-link-edit.el: Sync with upstream
Update to version 1.1.1 (e975aebf8).
-rw-r--r--contrib/lisp/org-link-edit.el15
1 files changed, 8 insertions, 7 deletions
diff --git a/contrib/lisp/org-link-edit.el b/contrib/lisp/org-link-edit.el
index 6fa105a..000dd1c 100644
--- a/contrib/lisp/org-link-edit.el
+++ b/contrib/lisp/org-link-edit.el
@@ -5,7 +5,7 @@
;; Author: Kyle Meyer <kyle@kyleam.com>
;; URL: https://gitlab.com/kyleam/org-link-edit
;; Keywords: convenience
-;; Version: 1.1.0
+;; Version: 1.1.1
;; Package-Requires: ((cl-lib "0.5") (org "8.2.10"))
;; This program is free software; you can redistribute it and/or modify
@@ -373,17 +373,18 @@ END."
(progn (goto-char pt)
(org-link-edit--on-link-p)))
(user-error "Cannot transport next link with point on a link"))
- (goto-char (car desc-bounds))
- (cl-multiple-value-bind (link-beg link-end link desc)
+ (goto-char (or (car desc-bounds) pt))
+ (cl-multiple-value-bind (link-beg link-end link orig-desc)
(org-link-edit--next-link-data previous)
- (unless (or (not desc-bounds) (= (length desc) 0))
+ (unless (or (not desc-bounds) (= (length orig-desc) 0))
(user-error "Link already has a description"))
(delete-region link-beg link-end)
(insert (org-make-link-string
link
- (and desc-bounds
- (delete-and-extract-region (car desc-bounds)
- (cdr desc-bounds))))))))
+ (if desc-bounds
+ (delete-and-extract-region (car desc-bounds)
+ (cdr desc-bounds))
+ orig-desc))))))
(provide 'org-link-edit)
;;; org-link-edit.el ends here