Support god-mode on SPC key

jwiegley · Jan 20, 2014 · 1c6ef10 · 1c6ef10
1 parent 175c6cc
commit 1c6ef10
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/haskell-interactive-mode.el b/haskell-interactive-mode.el
@@ -171,9 +171,12 @@ Key bindings:
 (defun haskell-interactive-mode-space (n)
   "Handle the space key."
   (interactive "p")
-  (if (haskell-interactive-at-compile-message)
-      (next-error-no-select 0)
-    (self-insert-command n)))
+  (if (and (bound-and-true-p god-local-mode)
+           (fboundp 'god-mode-self-insert))
+      (call-interactively 'god-mode-self-insert)
+      (if (haskell-interactive-at-compile-message)
+          (next-error-no-select 0)
+        (self-insert-command n))))
 
 (defun haskell-interactive-at-prompt ()
   "If at prompt, returns start position of user-input, otherwise returns nil."