diff options
author | Dan Davison <davison@stats.ox.ac.uk> | 2010-10-14 19:24:33 +0100 |
---|---|---|
committer | Dan Davison <davison@stats.ox.ac.uk> | 2010-10-21 13:03:36 +0100 |
commit | 21e67385930a78fa9666a6244e882a25dc2605fc (patch) | |
tree | 0d5a9fb8fe4d992883d1cca05b89edf6aad7fa2e | |
parent | 68b810dab55bbd6b91d253337f73400f93b0c92e (diff) | |
download | org-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.el | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -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) |