lang/org: fix cursor placement after M-RET in tables

This commit is contained in:
Henrik Lissner 2018-02-02 00:22:30 -05:00
parent 53b7297c6d
commit 97d0ff0966
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -214,8 +214,10 @@ wrong places)."
((memq type '(table table-row)) ((memq type '(table table-row))
(pcase direction (pcase direction
('below (org-table-insert-row t)) ('below (save-excursion (org-table-insert-row t))
('above (org-shiftmetadown)))) (org-table-next-row))
('above (save-excursion (org-shiftmetadown))
(+org/table-previous-row))))
((memq type '(headline inlinetask)) ((memq type '(headline inlinetask))
(let ((level (if (eq (org-element-type context) 'headline) (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"))) (t (user-error "Not a valid list, heading or table")))
(when (bound-and-true-p evil-mode) (when (bound-and-true-p evil-mode)
(evil-append-line 1)))) (evil-insert 1))))
;;;###autoload ;;;###autoload
(defun +org-get-property (name &optional _file) ; TODO Add FILE (defun +org-get-property (name &optional _file) ; TODO Add FILE