X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;ds=sidebyside;f=emacs%2Femacs_conf.lisp;h=29dcc20a1b1f1dd17c55c77e7fd342c0895d1652;hb=a27500cab231ad3051fba783d74f77e72990bb48;hp=296c467112269ff846cfabcb23715c44b8b96c2f;hpb=61cbb86694ce19f0d5dd44ccf847c9fbd61b8f7e;p=gacela.git

diff --git a/emacs/emacs_conf.lisp b/emacs/emacs_conf.lisp
index 296c467..29dcc20 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)\n"))
 
 (define-key global-map [(ctrl x) (ctrl g)] 'send-to-gacela)