From 934756700da894dcf2ff6ba6375429966c071614 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sun, 8 Oct 2017 01:50:57 +0200 Subject: [PATCH] Fix +org/insert-item when point is in a link --- modules/org/org/autoload/org.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/modules/org/org/autoload/org.el b/modules/org/org/autoload/org.el index 9c293b075..fcd7de4ff 100644 --- a/modules/org/org/autoload/org.el +++ b/modules/org/org/autoload/org.el @@ -202,12 +202,9 @@ wrong places)." ('above (+org/table-prepend-row-or-shift-up)))) ((memq type '(headline inlinetask)) - (let* ((subcontext (org-element-context)) - (level (save-excursion - (org-back-to-heading) - (if (eq (org-element-type subcontext) 'headline) - (org-element-property :level subcontext) - 1)))) + (let ((level (if (eq (org-element-type context) 'headline) + (org-element-property :level context) + 1))) (pcase direction ('below (let ((at-eol (= (point) (1- (line-end-position)))))