From e71f9d0a621bbf09be9acbc041f83952cef4d8fa Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Sat, 4 Oct 2008 15:49:27 +0200 Subject: [PATCH] Make the keypad work with orgtbl-mode. --- lisp/ChangeLog | 5 +++++ lisp/org-table.el | 9 +++++++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f67ac2caa..7860156a4 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-10-04 Carsten Dominik + + * org-table.el (orgtbl-self-insert-command): Make this work for + the keypad as well. + 2008-10-02 Carsten Dominik * org.el (org-add-log-setup): Limit searc for drawers to entry diff --git a/lisp/org-table.el b/lisp/org-table.el index a927d77c1..781428254 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -3488,8 +3488,13 @@ overwritten, and the table is not marked as requiring realignment." (goto-char (match-beginning 0)) (self-insert-command N)) (setq org-table-may-need-update t) - (let (orgtbl-mode) - (call-interactively (key-binding (vector last-input-event)))))) + (let (orgtbl-mode a) + (call-interactively + (key-binding + (or (and (listp function-key-map) + (setq a (assoc last-input-event function-key-map)) + (cdr a)) + (vector last-input-event))))))) (defvar orgtbl-exp-regexp "^\\([-+]?[0-9][0-9.]*\\)[eE]\\([-+]?[0-9]+\\)$" "Regular expression matching exponentials as produced by calc.")