From 7c8e854d9c3c2f10e3ce8305316ec7fbc58a7458 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Wed, 27 Feb 2013 10:22:20 +0100 Subject: [PATCH] org.el (org-speed-command-activate): Don't activate speed commands within blocks MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * org.el (org-speed-command-activate): Don't activate speed commands within blocks. Thanks to Sébastien Vauban for reporting this. --- lisp/org.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index a8bccf15f..d597bb5e6 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