org.el (org-speed-command-activate): Don't activate speed commands within blocks

* org.el (org-speed-command-activate): Don't activate speed
commands within blocks.

Thanks to Sébastien Vauban for reporting this.
This commit is contained in:
Bastien Guerry 2013-02-27 10:22:20 +01:00
parent 091bf02514
commit 7c8e854d9c
1 changed files with 5 additions and 1 deletions

View File

@ -18829,7 +18829,11 @@ If not, return to the original position and throw an error."
"Hook for activating single-letter speed commands.
`org-speed-commands-default' specifies a minimal command set.
Use `org-speed-commands-user' for further customization."
(when (or (and (bolp) (looking-at org-outline-regexp))
(when (or (and (bolp) (looking-at org-outline-regexp)
;; FIXME org-speed-commands-forbidden-blocks?
(not (org-in-block-p
'("src" "example" "verse" "html"
"latex" "ascii" "beamer" "odt"))))
(and (functionp org-use-speed-commands)
(funcall org-use-speed-commands)))
(cdr (assoc keys (append org-speed-commands-user