awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases 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
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)))
;;;###autoload
(defun +org/table-append-field-or-shift-right ()
(interactive)
(org-shiftmetaright)
(when (org-at-table-p) (org-metaright)))
(defalias '+org/table-append-field-or-shift-right #'org-shiftmetaright)
;;;###autoload
(defun +org/table-prepend-field-or-shift-left ()
"TODO"
(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)))