emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

+org/insert-item: fix not jumping over sublists

Browse source 
Initial:
+ List item 1|  <-- M-RET
  + Sublist

Post-fix:
+ List item 1
  + Sublist
+ |

Pre-fix:
+ List item 1
+ |
  + Sublist
This commit is contained in:
Henrik Lissner 2017-10-05 01:18:31 +02:00
parent eaa677bd94
commit 72505d4001
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
modules/org/org/autoload/org.el
View file

@ -185,8 +185,10 @@ wrong places)."
(- (point) (line-beginning-position))))) (- (point) (line-beginning-position)))))
(pcase direction (pcase direction
('below ('below
(goto-char (line-end-position)) (org-end-of-item)
(insert (concat "\n" (make-string pad ? ) marker))) (goto-char (line-beginning-position))
(insert (make-string pad 32) (or marker ""))
(save-excursion (insert "\n")))
('above ('above
(goto-char (line-beginning-position)) (goto-char (line-beginning-position))
(insert (make-string pad 32) (or marker "")) (insert (make-string pad 32) (or marker ""))