From baa98c1f144b7058f9ed4d27666d168d8d518e7d Mon Sep 17 00:00:00 2001 From: Joel Boehland Date: Thu, 7 Jan 2010 20:57:02 -0800 Subject: [PATCH] Added support to name the slime-output-buffer (slime-repl) to the name of the respective org-babel session Signed-off-by: Joel Boehland --- contrib/babel/lisp/langs/org-babel-clojure.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/contrib/babel/lisp/langs/org-babel-clojure.el b/contrib/babel/lisp/langs/org-babel-clojure.el index 7045f55fc..baed606e2 100644 --- a/contrib/babel/lisp/langs/org-babel-clojure.el +++ b/contrib/babel/lisp/langs/org-babel-clojure.el @@ -184,7 +184,10 @@ or nil if \"none\" is specified" "Finish setting up the bindings of org-babel session to a slime-clojure repl" (let ((pending-session (pop org-babel-clojure-pending-sessions))) (when pending-session - (org-babel-clojure-bind-session-to-repl-buffer pending-session (slime-output-buffer))))) + (save-excursion + (switch-to-buffer (slime-output-buffer)) + (rename-buffer (if (stringp pending-session) pending-session (symbol-name pending-session))) + (org-babel-clojure-bind-session-to-repl-buffer pending-session (slime-output-buffer)))))) (add-hook 'slime-connected-hook 'org-babel-clojure-session-connected-hook)