Skip to content

Commit a9191f5

Browse files
committed
Merge pull request #508 from jonpither/rename-buf
Fixing reference to nrepl-connection-buffer in cider-change-buffers-designation.
2 parents c5868c8 + 399b689 commit a9191f5

File tree

2 files changed

+5
-1
lines changed

2 files changed

+5
-1
lines changed

cider-interaction.el

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -171,6 +171,8 @@ Buffer names changed are cider-repl, nrepl-connection and nrepl-server."
171171
(rename-buffer new-connection-buffer-name)
172172
(setq nrepl-connection-list
173173
(cons new-connection-buffer-name (cdr nrepl-connection-list)))
174+
(with-current-buffer (cider-current-repl-buffer)
175+
(setq-local nrepl-connection-buffer new-connection-buffer-name))
174176
(when nrepl-server-buffer
175177
(let ((new-server-buffer-name (nrepl-format-buffer-name-template
176178
nrepl-server-buffer-name-template designation)))

test/cider-tests.el

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -464,7 +464,9 @@
464464
(cider-change-buffers-designation)
465465
(should (equal "*cider-repl bob*" (buffer-name repl-buffer)))
466466
(should (equal "*nrepl-connection bob*" (buffer-name connection-buffer)))
467-
(should (equal "*nrepl-server bob*" (buffer-name server-buffer)))))))))))
467+
(should (equal "*nrepl-server bob*" (buffer-name server-buffer))))
468+
(with-current-buffer repl-buffer
469+
(should (equal "*nrepl-connection bob*" nrepl-connection-buffer))))))))))
468470

469471
(ert-deftest test-cider-change-buffers-designation-to-existing-designation-has-no-effect ()
470472
(with-temp-buffer

0 commit comments

Comments
 (0)