SLY: Fix cd-sly.

master
Pierre Neidhardt 2020-11-19 13:51:05 +01:00
parent 1114a0017b
commit 1ef80e3e4a
1 changed files with 4 additions and 5 deletions

View File

@ -114,12 +114,11 @@ changed, of when called interactively."
(eshell/cd helm-ff-default-directory)
(eshell-reset)))
(cd-sly (lambda () ; XXX: New!
;; Taken from `sly-mrepl-set-directory'.
(let ((directory helm-ff-default-directory))
(sly-mrepl--save-and-copy-for-repl
`(slynk:set-default-directory ,directory)
:before (format "Setting directory to %s" directory))
(cd directory))))
(sly-change-directory directory)
;; REVIEW: `sly-change-directory' does not change the
;; REPL's dir, do it here.
(cd-absolute directory))))
(cd-shell
(lambda ()
(cl-case helm-ff-default-directory)