summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDan Davison <davison@stats.ox.ac.uk>2010-10-14 19:24:33 +0100
committerDan Davison <davison@stats.ox.ac.uk>2010-10-21 13:03:36 +0100
commit21e67385930a78fa9666a6244e882a25dc2605fc (patch)
tree0d5a9fb8fe4d992883d1cca05b89edf6aad7fa2e
parent68b810dab55bbd6b91d253337f73400f93b0c92e (diff)
downloadorg-mode-21e67385930a78fa9666a6244e882a25dc2605fc.tar.gz
babel: Better variable names in `org-babel-initiate-session'
* ob.el (org-babel-initiate-session): Better variable names
-rw-r--r--lisp/ob.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/ob.el b/lisp/ob.el
index ff3f920..59dff01 100644
--- a/lisp/ob.el
+++ b/lisp/ob.el
@@ -452,19 +452,19 @@ of the code block to the kill ring."
(dir (cdr (assoc :dir params)))
(default-directory
(or (and dir (file-name-as-directory dir)) default-directory))
- (cmd (intern (format "org-babel-%s-initiate-session" lang)))
- (cmd2 (intern (concat "org-babel-prep-session:" lang))))
+ (init-cmd (intern (format "org-babel-%s-initiate-session" lang)))
+ (prep-cmd (intern (concat "org-babel-prep-session:" lang))))
(if (and (stringp session) (string= session "none"))
(error "This block is not using a session!"))
- (unless (fboundp cmd)
+ (unless (fboundp init-cmd)
(error "No org-babel-initiate-session function for %s!" lang))
(with-temp-buffer (insert (org-babel-trim body))
(copy-region-as-kill (point-min) (point-max)))
(when arg
- (unless (fboundp cmd2)
+ (unless (fboundp prep-cmd)
(error "No org-babel-prep-session function for %s!" lang))
- (funcall cmd2 session params))
- (funcall cmd session params)))
+ (funcall prep-cmd session params))
+ (funcall init-cmd session params)))
;;;###autoload
(defun org-babel-switch-to-session (&optional arg info)