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

allow speed commands to have prefix args

Browse source 
* lisp/org.el (org-self-insert-command): Allow speed commands to be
invoked with prefix args.
This commit is contained in:
Aaron Ecay 2014-09-23 13:54:47 -04:00
parent c29209d919
commit 710d3c864e
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/org.el
View file

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