From e7bf631fdc6ec33edb818dd49025169f3c4120e9 Mon Sep 17 00:00:00 2001 From: Jambunathan K Date: Thu, 23 Sep 2010 17:00:32 -0600 Subject: [PATCH] enable speed commands for Babel commands on code blocks * lisp/org.el (org-speed-command-hook): added org-speed-command-hook (org-babel-speed-command-hook): hook for Babel's speed commands --- lisp/org.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index 5199a5803..2baacaa35 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -16507,7 +16507,13 @@ If not, return to the original position and throw an error." (cdr (assoc keys (append org-speed-commands-user org-speed-commands-default))))) -(defcustom org-speed-command-hook 'org-speed-command-default-hook +(defun org-babel-speed-command-hook (keys) + "Hook for activating single-letter code block commands." + (when (and (bolp) (looking-at org-babel-src-block-regexp)) + (cdr (assoc keys org-babel-key-bindings)))) + +(defcustom org-speed-command-hook + '(org-speed-command-default-hook org-babel-speed-command-hook) "Hook for activating speed commands at strategic locations. Hook functions are called in sequence until a valid handler is found. -- 2.11.4.GIT