summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJambunathan K <kjambunathan@gmail.com>2010-09-23 17:00:32 -0600
committerEric Schulte <schulte.eric@gmail.com>2010-09-23 17:01:17 -0600
commite7bf631fdc6ec33edb818dd49025169f3c4120e9 (patch)
tree97d33ad4dbb6939df01b72790a5fa1a674eb5493
parent1aa89de49414e89ba29ca442a739a17585fb6f42 (diff)
downloadorg-mode-e7bf631fdc6ec33edb818dd49025169f3c4120e9.tar.gz
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
-rw-r--r--lisp/org.el8
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el
index 5199a58..2baacaa 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.