awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases 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
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 ""))