From 2ffbc94b2eafee9c8823346689210529b4557511 Mon Sep 17 00:00:00 2001
From: Vysheng <mail@vysheng.ru>
Date: Fri, 28 Nov 2014 13:56:03 +0300
Subject: [PATCH] added safe_quit() to lua

---
 lua-tg.c | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/lua-tg.c b/lua-tg.c
index 57bb119..eaff196 100644
--- a/lua-tg.c
+++ b/lua-tg.c
@@ -1421,6 +1421,19 @@ static int postpone_from_lua (lua_State *L) {
   return 1;
 }
 
+extern int safe_quit;
+static int safe_quit_from_lua (lua_State *L) {
+  int n = lua_gettop (L);
+  if (n != 0) {
+    lua_pushboolean (L, 0);
+    return 1;
+  }
+  safe_quit = 1;
+  
+  lua_pushboolean (L, 1);
+  return 1;
+}
+
 static int universal_from_lua (lua_State *L) {
   const char *s = lua_tostring(L, lua_upvalueindex(1));
   if (!s) {
@@ -1460,6 +1473,7 @@ void lua_init (const char *file) {
   //lua_register (luaState, "fwd_msg", fwd_msg_from_lua);
   //lua_register (luaState, "mark_read", mark_read_from_lua);
   lua_register (luaState, "postpone", postpone_from_lua);
+  lua_register (luaState, "safe_quit", safe_quit_from_lua);
   //lua_register (luaState, "get_contact_list", get_contacts_from_lua);
   /*lua_register (luaState, "get_dialog_list", get_dialog_list_from_lua);
   lua_register (luaState, "send_msg", send_msg_from_lua);