[gnome-builder] emacs: close document command

[Roberto Majadas <telemaco src gnome org>]

commit c3f849abb8dd70c461543e51a555668b21f5c658
Author: Roberto Majadas <roberto majadas openshine com>
Date:   Sun Feb 8 19:50:50 2015 +0100

    emacs: close document command

 src/emacs/gb-source-emacs.c |   14 ++++++++++++++
 1 files changed, 14 insertions(+), 0 deletions(-)
---
diff --git a/src/emacs/gb-source-emacs.c b/src/emacs/gb-source-emacs.c
index d8c35e9..b238a12 100644
--- a/src/emacs/gb-source-emacs.c
+++ b/src/emacs/gb-source-emacs.c
@@ -192,6 +192,16 @@ gb_source_emacs_cmd_exit  (GbSourceEmacs           *emacs,
 }
 
 static void
+gb_source_emacs_cmd_close_document  (GbSourceEmacs           *emacs,
+                                     GRegex                  *matcher,
+                                     GbSourceEmacsCommandFlags flags)
+{
+  GbSourceEmacsPrivate *priv = GB_SOURCE_EMACS (emacs)->priv;
+
+  gb_widget_activate_action (GTK_WIDGET (priv->text_view), "stack", "close", NULL);
+}
+
+static void
 gb_source_emacs_cmd_open_file  (GbSourceEmacs           *emacs,
                                 GRegex                  *matcher,
                                 GbSourceEmacsCommandFlags flags)
@@ -896,6 +906,10 @@ gb_source_emacs_class_init (GbSourceEmacsClass *klass)
                                           GB_SOURCE_EMACS_COMMAND_FLAG_NONE,
                                           gb_source_emacs_cmd_exit);
   gb_source_emacs_class_register_command (klass,
+                                          g_regex_new("^C-x k$", 0, 0, NULL),
+                                          GB_SOURCE_EMACS_COMMAND_FLAG_NONE,
+                                          gb_source_emacs_cmd_close_document);
+  gb_source_emacs_class_register_command (klass,
                                           g_regex_new("^C-x C-f$", 0, 0, NULL),
                                           GB_SOURCE_EMACS_COMMAND_FLAG_NONE,
                                           gb_source_emacs_cmd_open_file);