diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2008-10-04 15:49:27 +0200 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2008-10-04 15:49:27 +0200 |
commit | e71f9d0a621bbf09be9acbc041f83952cef4d8fa (patch) | |
tree | e41732d6ced9c4f7875312266c16a7c8a4742d3f | |
parent | 7b7ad516181789c7c8a1f644952ec26f6e596876 (diff) | |
download | org-mode-e71f9d0a621bbf09be9acbc041f83952cef4d8fa.tar.gz |
Make the keypad work with orgtbl-mode.
-rwxr-xr-x | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/org-table.el | 9 |
2 files changed, 12 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f67ac2c..7860156 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-10-04 Carsten Dominik <dominik@science.uva.nl> + + * org-table.el (orgtbl-self-insert-command): Make this work for + the keypad as well. + 2008-10-02 Carsten Dominik <dominik@science.uva.nl> * 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 a927d77..7814282 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.") |