(no commit message)

[gacela.git] / emacs / emacs_conf.lisp

diff --git a/emacs/emacs_conf.lisp b/emacs/emacs_conf.lisp
index 296c467112269ff846cfabcb23715c44b8b96c2f..5cde2b105da5a263d94b67ef3642de6ef649a693 100644 (file)
--- a/emacs/emacs_conf.lisp
+++ b/emacs/emacs_conf.lisp
@@ -8,11 +8,13 @@
   (interactive)
   (cond ((not (get-process "gacela"))
         (launch-gacela)))
+  (process-send-string "gacela" "(begin ")
   (cond ((use-region-p)
         (process-send-region "gacela" (region-beginning) (region-end)))
        (t
+        (process-send-string "gacela" "(run-game) (clear-active-mobs)")
         (process-send-region "gacela" (point-min-marker) (point-max-marker))))
-  (process-send-string "gacela" "\n"))
+  (process-send-string "gacela" ")\n"))
 
 (define-key global-map [(ctrl x) (ctrl g)] 'send-to-gacela)