summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-08-02 14:26:36 +0100
committerjao <jao@gnu.org>2022-08-02 14:27:17 +0100
commitbd3d4ab6d7dffd9f8565af32471dc58aaf5a2214 (patch)
tree146c6ee6ffb932e85d38785f8dd72ff6cec4e22a
parent2fac53cb84e1341fd838ffdd2d9f7e09ecaf617a (diff)
downloadgeiser-bd3d4ab6d7dffd9f8565af32471dc58aaf5a2214.tar.gz
geiser-bd3d4ab6d7dffd9f8565af32471dc58aaf5a2214.tar.bz2
geiser-repl: honour .dir-local.el files in REPL buffers
Should fix issue #48
-rw-r--r--elisp/geiser-repl.el7
1 files 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)