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

lang/org: fix C-S-{h,l} in tables

Browse source 
Supposed to create new column on the left and right, respectively.
Instead, always created columns on the right.
This commit is contained in:
Henrik Lissner 2019-04-04 17:15:58 -04:00
parent d3784a0074
commit 3a47c27dd6
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
modules/lang/org/autoload/tables.el
View file

@ -41,13 +41,14 @@ re-align the table if necessary. (Necessary because org-mode has a
(if (org-at-table-p) (org-table-previous-field) (org-beginning-of-line))) (if (org-at-table-p) (org-table-previous-field) (org-beginning-of-line)))
;;;###autoload ;;;###autoload
(defun +org/table-append-field-or-shift-right () (defalias '+org/table-append-field-or-shift-right #'org-shiftmetaright)
(interactive)
(org-shiftmetaright)
(when (org-at-table-p) (org-metaright)))
;;;###autoload ;;;###autoload
(defun +org/table-prepend-field-or-shift-left () (defun +org/table-prepend-field-or-shift-left ()
"TODO"
(interactive) (interactive)
(if (org-at-table-p) (org-shiftmetaright) (org-shiftmetaleft))) (if (org-at-table-p)
(progn
(org-shiftmetaright)
(org-table-move-column-left))
(org-shiftmetaleft)))