X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=emacs%2Femacs_conf.lisp;h=5cde2b105da5a263d94b67ef3642de6ef649a693;hb=ca3edcecf937f854c1b5d9eeac566d85dc749cd0;hp=296c467112269ff846cfabcb23715c44b8b96c2f;hpb=cf6094cdd9222b104b1cf08637de9d8021473923;p=gacela.git

diff --git a/emacs/emacs_conf.lisp b/emacs/emacs_conf.lisp
index 296c467..5cde2b1 100644
--- 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)