summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAaron Ecay <aaronecay@gmail.com>2014-09-23 13:54:47 -0400
committerAaron Ecay <aaronecay@gmail.com>2014-09-27 23:37:14 -0400
commit710d3c864e17a08ff0b9589758394a057b3fe9ce (patch)
treeb8890cf5bff93feadeaf7f4030aa00555d44b4c9
parentc29209d919d4f963e44afdb55a86e5ef17641b14 (diff)
downloadorg-mode-710d3c864e17a08ff0b9589758394a057b3fe9ce.tar.gz
allow speed commands to have prefix args
* lisp/org.el (org-self-insert-command): Allow speed commands to be invoked with prefix args.
-rwxr-xr-xlisp/org.el8
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/org.el b/lisp/org.el
index b09e72d..9815eb4 100755
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -19693,9 +19693,11 @@ overwritten, and the table is not marked as requiring realignment."
(org-check-before-invisible-edit 'insert)
(cond
((and org-use-speed-commands
- (setq org-speed-command
- (run-hook-with-args-until-success
- 'org-speed-command-hook (this-command-keys))))
+ (let ((kv (this-command-keys-vector)))
+ (setq org-speed-command
+ (run-hook-with-args-until-success
+ 'org-speed-command-hook
+ (make-string 1 (aref kv (1- (length kv))))))))
(cond
((commandp org-speed-command)
(setq this-command org-speed-command)