summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-02-27 10:22:20 +0100
committerBastien Guerry <bzg@altern.org>2013-02-27 10:22:20 +0100
commit7c8e854d9c3c2f10e3ce8305316ec7fbc58a7458 (patch)
treefc8f23b3c16f6c0b3e584dc59bf85b75e9c2c08f
parent091bf0251454d4a9e00fd7054a25b0097822253a (diff)
downloadorg-mode-7c8e854d9c3c2f10e3ce8305316ec7fbc58a7458.tar.gz
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.
-rw-r--r--lisp/org.el6
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el
index a8bccf1..d597bb5 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -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