SLY: Fix cd-sly.
parent
1114a0017b
commit
1ef80e3e4a
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue