Fix followed org links not recentering correctly

Links like `file:test.cpp::45` would open file.cpp, but end up somewhere
else than line 45. Same with links like `file:test.cpp::int main()`.
This commit is contained in:
Henrik Lissner 2018-07-24 20:01:42 +02:00
parent 277915b28c
commit ebd3b0223e
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 8 additions and 4 deletions

View file

@ -60,8 +60,7 @@ If on a:
- link: follow it
- otherwise, refresh all inline images in current tree."
(interactive)
(let* ((scroll-pt (window-start))
(context (org-element-context))
(let* ((context (org-element-context))
(type (org-element-type context)))
;; skip over unimportant contexts
(while (and context (memq type '(verbatim code bold italic underline strike-through subscript superscript)))
@ -127,8 +126,7 @@ If on a:
(+org/refresh-inline-images)
(org-open-at-point))))
(_ (+org/refresh-inline-images)))
(set-window-start nil scroll-pt)))
(_ (+org/refresh-inline-images)))))
;;;###autoload
(defun +org/insert-item (direction)