From 97d0ff09660bee16995650b42216188bffdf5483 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 2 Feb 2018 00:22:30 -0500 Subject: [PATCH] lang/org: fix cursor placement after M-RET in tables --- modules/lang/org/autoload/org.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/modules/lang/org/autoload/org.el b/modules/lang/org/autoload/org.el index f2439599f..d7c633b58 100644 --- a/modules/lang/org/autoload/org.el +++ b/modules/lang/org/autoload/org.el @@ -214,8 +214,10 @@ wrong places)." ((memq type '(table table-row)) (pcase direction - ('below (org-table-insert-row t)) - ('above (org-shiftmetadown)))) + ('below (save-excursion (org-table-insert-row t)) + (org-table-next-row)) + ('above (save-excursion (org-shiftmetadown)) + (+org/table-previous-row)))) ((memq type '(headline inlinetask)) (let ((level (if (eq (org-element-type context) 'headline) @@ -244,7 +246,7 @@ wrong places)." (t (user-error "Not a valid list, heading or table"))) (when (bound-and-true-p evil-mode) - (evil-append-line 1)))) + (evil-insert 1)))) ;;;###autoload (defun +org-get-property (name &optional _file) ; TODO Add FILE