awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-07 12:47:30 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix +org/insert-item when point is in a link

Browse Source
This commit is contained in:
Henrik Lissner
2017-10-08 01:50:57 +02:00
parent 8499727a17
commit 934756700d
1 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
modules/org/org/autoload/org.el
View File

@ -202,12 +202,9 @@ wrong places)."
('above (+org/table-prepend-row-or-shift-up)))) ('above (+org/table-prepend-row-or-shift-up))))
((memq type '(headline inlinetask)) ((memq type '(headline inlinetask))
(let* ((subcontext (org-element-context)) (let ((level (if (eq (org-element-type context) 'headline)
(level (save-excursion (org-element-property :level context)
(org-back-to-heading) 1)))
(if (eq (org-element-type subcontext) 'headline)
(org-element-property :level subcontext)
1))))
(pcase direction (pcase direction
('below ('below
(let ((at-eol (= (point) (1- (line-end-position))))) (let ((at-eol (= (point) (1- (line-end-position)))))