tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Make the keypad work with orgtbl-mode.

This commit is contained in:
Carsten Dominik 2008-10-04 15:49:27 +02:00
parent 7b7ad51618
commit e71f9d0a62
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

9
lisp/org-table.el
View File

@ -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.")