From 3a47c27dd675690d94e0645b99e17d3e80b01318 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 4 Apr 2019 17:15:58 -0400 Subject: [PATCH] lang/org: fix C-S-{h,l} in tables Supposed to create new column on the left and right, respectively. Instead, always created columns on the right. --- modules/lang/org/autoload/tables.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/modules/lang/org/autoload/tables.el b/modules/lang/org/autoload/tables.el index 7248f4625..be0067e50 100644 --- a/modules/lang/org/autoload/tables.el +++ b/modules/lang/org/autoload/tables.el @@ -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)))