org.el (org-speed-command-activate): Don't activate speed commands within blocks
authorBastien Guerry <bzg@altern.org>
Wed, 27 Feb 2013 09:22:20 +0000 (10:22 +0100)
committerBastien Guerry <bzg@altern.org>
Wed, 27 Feb 2013 09:22:20 +0000 (10:22 +0100)
* org.el (org-speed-command-activate): Don't activate speed
commands within blocks.

Thanks to S├ębastien Vauban for reporting this.

lisp/org.el

index a8bccf1..d597bb5 100644 (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