From bd3d4ab6d7dffd9f8565af32471dc58aaf5a2214 Mon Sep 17 00:00:00 2001 From: jao Date: Tue, 2 Aug 2022 14:26:36 +0100 Subject: geiser-repl: honour .dir-local.el files in REPL buffers Should fix issue #48 --- elisp/geiser-repl.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 5a004e5..3ce191f 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -439,9 +439,9 @@ will be set up using `geiser-connect-local' when a REPL is started.") (add-text-properties start end '(font-lock-fontified t - fontified t - font-lock-multiline t - font-lock-face geiser-font-lock-repl-output))) + fontified t + font-lock-multiline t + font-lock-face geiser-font-lock-repl-output))) (defun geiser-repl--narrow-to-prompt () "Narrow to active prompt region and return t, otherwise returns nil." @@ -922,6 +922,7 @@ buffer." "Major mode for interacting with an inferior scheme repl process. \\{geiser-repl-mode-map}" (scheme-mode-variables) + (hack-dir-local-variables-non-file-buffer) (set (make-local-variable 'geiser-repl--last-output-start) (point-marker)) (set (make-local-variable 'geiser-repl--last-output-end) (point-marker)) (set (make-local-variable 'face-remapping-alist) -- cgit v1.2.3