diff options
author | Jambunathan K <kjambunathan@gmail.com> | 2010-09-23 17:00:32 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2010-09-23 17:01:17 -0600 |
commit | e7bf631fdc6ec33edb818dd49025169f3c4120e9 (patch) | |
tree | 97d33ad4dbb6939df01b72790a5fa1a674eb5493 | |
parent | 1aa89de49414e89ba29ca442a739a17585fb6f42 (diff) | |
download | org-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.el | 8 |
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. |