diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2017-03-03 00:02:26 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2017-03-03 00:26:30 -0500 |
| commit | 48ebfc757f713484b5427d0ca775fd1ae62f4775 (patch) | |
| tree | 2cfd928085d61116c687ab727367edec688f95dc /org-link-edit.el | |
| parent | f90ba3c0faed5dfd4f50ab2044a86858104ab00e (diff) | |
| download | org-link-edit-48ebfc757f713484b5427d0ca775fd1ae62f4775.tar.gz | |
barf: Fix edge cases where point is beyond link
When a point is on a blank space beyond the link but before the next
element, org-element-context considers point to be a part of the link.
This leads to incorrect behavior (shown in the added tests) when
either barfing backward or forward. Avoid these issues by moving
point to the beginning of the link before deleting the old link and
inserting a new one. As a bonus, this makes some of the later
goto-char calculations unnecessary.
Diffstat (limited to 'org-link-edit.el')
| -rw-r--r-- | org-link-edit.el | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/org-link-edit.el b/org-link-edit.el index 1323bb9..b3ff941 100644 --- a/org-link-edit.el +++ b/org-link-edit.el @@ -273,14 +273,11 @@ If N is negative, barf leading blobs instead of trailing blobs." (pcase-let ((`(,new-desc . ,barfed) (org-link-edit--split-last-blobs desc n))) (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)) - (if (string= new-desc "") - ;; Two brackets are dropped when an empty description is - ;; passed to `org-make-link-string'. - (progn (goto-char (- end (+ 2 (length desc)))) - (setq barfed (concat " " barfed))) - (goto-char (- end (- (length desc) (length new-desc))))) + (when (string= new-desc "") + (setq barfed (concat " " barfed))) (insert barfed) (goto-char beg) barfed))))) @@ -315,13 +312,13 @@ If N is negative, barf trailing blobs instead of leading blobs." (pcase-let ((`(,barfed . ,new-desc) (org-link-edit--split-first-blobs desc n))) (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)) (when (string= new-desc "") (setq barfed (concat barfed " "))) (goto-char beg) (insert barfed) - (goto-char (+ beg (length barfed))) barfed))))) (provide 'org-link-edit) |