From 1ef80e3e4a569d7f01f37858330db33f8429e54a Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Thu, 19 Nov 2020 13:51:05 +0100 Subject: [PATCH] SLY: Fix cd-sly. --- .emacs.d/lisp/init-lisp.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/.emacs.d/lisp/init-lisp.el b/.emacs.d/lisp/init-lisp.el index 85aadf1a..df7b4b42 100644 --- a/.emacs.d/lisp/init-lisp.el +++ b/.emacs.d/lisp/init-lisp.el @@ -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)