lang/org: fix cursor placement after M-RET in tables
This commit is contained in:
parent
53b7297c6d
commit
97d0ff0966
1 changed files with 5 additions and 3 deletions
|
@ -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
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue