From bd27341dac4919e44193fd17c9b70fa9f33e3dec Mon Sep 17 00:00:00 2001
From: Lassi Kortela <lassi@lassi.io>
Date: Sat, 27 Mar 2021 17:51:07 +0200
Subject: [PATCH] Fix unset dime-write-string-function bug (#60)

---
 dime-repl.el | 2 +-
 dime.el      | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/dime-repl.el b/dime-repl.el
index 38d32fa..040e6c7 100644
--- a/dime-repl.el
+++ b/dime-repl.el
@@ -411,7 +411,6 @@ This is automatically synchronized from Dylan.")
   (setq font-lock-defaults nil)
   (setq mode-name "REPL")
   (setq dime-current-thread :repl-thread)
-  (setq dime-write-string-function 'dime-repl-write-string)
   (set (make-local-variable 'scroll-conservatively) 20)
   (set (make-local-variable 'scroll-margin) 0)
   (when dime-repl-history-file
@@ -1486,6 +1485,7 @@ expansion will be added to the REPL's history.)"
   (remove-hook 'dime-connected-hook 'dime-repl-connected-hook-function))
 
 (setq dime-output-target-to-marker-function 'dime-repl-target-to-marker)
+(setq dime-write-string-function 'dime-repl-write-string)
 (add-hook 'dime-repl-mode-hook 'dime-repl-add-easy-menu)
 (add-hook 'dime-sync-project-and-directory-hook
           'dime-repl-sync-project-and-directory)
diff --git a/dime.el b/dime.el
index 855d51c..5de32ec 100644
--- a/dime.el
+++ b/dime.el
@@ -5406,7 +5406,7 @@ This is 0 if START and END at the same line."
   (- (count-lines start end)
      (if (save-excursion (goto-char end) (bolp)) 0 1)))
 
-(defvar-local dime-write-string-function nil)
+(defvar dime-write-string-function nil)
 
 (defun dime-write-string (string &optional target)
   "Insert STRING in the REPL buffer or some other TARGET.