From 894abe5b8a5bd0a500fadfd5ec89e9b8fde76b8f Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Mon, 6 Sep 2010 04:45:28 +0200
Subject: Bug fix: assign a default scheme to syntax hilighting buffer

---
 elisp/geiser-reload.el | 2 +-
 elisp/geiser-syntax.el | 8 +++++---
 2 files changed, 6 insertions(+), 4 deletions(-)

(limited to 'elisp')

diff --git a/elisp/geiser-reload.el b/elisp/geiser-reload.el
index d6c72fd..5602cd1 100644
--- a/elisp/geiser-reload.el
+++ b/elisp/geiser-reload.el
@@ -28,7 +28,6 @@
            geiser-doc
            geiser-compile
            geiser-debug
-           geiser-impl
            geiser-company
            geiser-edit
            geiser-completion
@@ -38,6 +37,7 @@
            geiser-syntax
            geiser-log
            geiser-menu
+           geiser-impl
            geiser-custom
            geiser-base
            geiser-popup
diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index 773f71f..1247cf6 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -11,6 +11,7 @@
 
 
 
+(require 'geiser-impl)
 (require 'geiser-popup)
 (require 'geiser-base)
 
@@ -286,14 +287,15 @@
 
 ;;; Fontify strings as Scheme code:
 
-(geiser-popup--define syntax " *geiser syntax analyst*" scheme-mode)
-
 (defun geiser-syntax--font-lock-buffer ()
   (let ((name " *geiser font lock*"))
     (or (get-buffer name)
         (let ((buffer (get-buffer-create name)))
           (set-buffer buffer)
-          (scheme-mode)
+          (let ((geiser-default-implementation
+                 (or geiser-default-implementation
+                     (car geiser-active-implementations))))
+            (scheme-mode))
           buffer))))
 
 (defun geiser-syntax--scheme-str (str)
-- 
cgit v1.2.3