diff options
| author | Vitalie Spinu <spinuvit@gmail.com> | 2018-07-31 19:26:35 +0200 |
|---|---|---|
| committer | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2018-07-31 20:50:20 +0300 |
| commit | 078e16bae5744d41df9e6d755b27c9a187e4e256 (patch) | |
| tree | 7f725031856831d2a9675317a62c56bf60c7113e /cider-connection.el | |
| parent | ca4935686b6d9569e6cb50a0650097e38448ac50 (diff) | |
Set correct default-directory in repl-buffers
Diffstat (limited to 'cider-connection.el')
| -rw-r--r-- | cider-connection.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/cider-connection.el b/cider-connection.el index 38851001..e9cac35a 100644 --- a/cider-connection.el +++ b/cider-connection.el @@ -563,9 +563,11 @@ function with the repl buffer set as current." (get-buffer-create (generate-new-buffer-name "*cider-uninitialized-repl*"))))) (with-current-buffer buffer (setq-local sesman-system 'CIDER) + (setq-local default-directory (or (plist-get params :project-dir) default-directory)) (let ((ses-name (or (plist-get params :session-name) (cider-make-session-name params)))) - (sesman-add-object 'CIDER ses-name buffer t)) + ;; creates a new session if session with ses-name doesn't already exist + (sesman-add-object 'CIDER ses-name buffer 'allow-new)) (unless (derived-mode-p 'cider-repl-mode) (cider-repl-mode)) (setq nrepl-err-handler #'cider-default-err-handler |