From 4914f89644e2a92e259a1ac42eeb6770b4f6944a Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 21 May 2016 14:39:26 +0200 Subject: [PATCH] org-table: Fix DEL using orgtbl minor mode in prog derived mode * lisp/org-table.el (orgtbl-setup): Hijack DEL key. We also hijack `delete-backward-char' but major modes derived from `prog-mode' usually bypass it. Reported-by: Alex G --- lisp/org-table.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/org-table.el b/lisp/org-table.el index 8b0642f16..433b4ed09 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -4388,21 +4388,21 @@ to execute outside of tables." cmd (orgtbl-make-binding fun nfunc key)) (org-defkey orgtbl-mode-map key cmd)) - ;; Special treatment needed for TAB and RET + ;; Special treatment needed for TAB, RET and DEL (org-defkey orgtbl-mode-map [(return)] (orgtbl-make-binding 'orgtbl-ret 100 [(return)] "\C-m")) (org-defkey orgtbl-mode-map "\C-m" (orgtbl-make-binding 'orgtbl-ret 101 "\C-m" [(return)])) - (org-defkey orgtbl-mode-map [(tab)] (orgtbl-make-binding 'orgtbl-tab 102 [(tab)] "\C-i")) (org-defkey orgtbl-mode-map "\C-i" (orgtbl-make-binding 'orgtbl-tab 103 "\C-i" [(tab)])) - (org-defkey orgtbl-mode-map [(shift tab)] (orgtbl-make-binding 'org-table-previous-field 104 [(shift tab)] [(tab)] "\C-i")) - + (org-defkey orgtbl-mode-map [backspace] + (orgtbl-make-binding 'org-delete-backward-char 109 + [backspace] [(del)])) (unless (featurep 'xemacs) (org-defkey orgtbl-mode-map [S-iso-lefttab]