mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-11 16:08:15 +00:00
Code

babel: set default-directory in org-babel-pop-to-session

Browse Source
This commit is contained in:
Dan Davison 2010-03-13 12:57:23 -05:00
parent f4ae431706
commit 485781ed40
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
contrib/babel/lisp/org-babel.el
View File

@ -271,7 +271,10 @@ of the source block to the kill ring."
(lang (first info))
(body (second info))
(params (third info))
(session (cdr (assoc :session params))))
(session (cdr (assoc :session params)))
(dir (cdr (assoc :dir params)))
(default-directory
(or (and dir (file-name-as-directory dir)) default-directory)))
(unless (member lang org-babel-interpreters)
(error "Language is not in `org-babel-interpreters': %s" lang))
;; copy body to the kill ring