Mercurial > hg > xemacs-beta

comparison src/emacs.c @ 367:a4f53d9b3154 r21-1-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-13
author cvs
date Mon, 13 Aug 2007 11:01:07 +0200
parents 972bbb6d6ca2
children cc15677e0335
comparison
equal deleted inserted replaced
366:83d76f480a59 367:a4f53d9b3154
216 extern int always_gc; /* hack */ 216 extern int always_gc; /* hack */
217 217
218 Lisp_Object Qkill_emacs_hook; 218 Lisp_Object Qkill_emacs_hook;
219 Lisp_Object Qsave_buffers_kill_emacs; 219 Lisp_Object Qsave_buffers_kill_emacs;
220 220
221 extern Lisp_Object Vauto_save_list_file_name;
221 222
222 /* Signal code for the fatal signal that was received */ 223 /* Signal code for the fatal signal that was received */
223 static int fatal_error_code; 224 static int fatal_error_code;
224 225
225 /* Nonzero if handling a fatal error already */ 226 /* Nonzero if handling a fatal error already */
865 */ 866 */
866 867
867 syms_of_abbrev (); 868 syms_of_abbrev ();
868 syms_of_alloc (); 869 syms_of_alloc ();
869 #ifdef HAVE_X_WINDOWS 870 #ifdef HAVE_X_WINDOWS
871 #ifdef HAVE_BALLOON_HELP
870 syms_of_balloon_x (); 872 syms_of_balloon_x ();
873 #endif
871 #endif 874 #endif
872 syms_of_buffer (); 875 syms_of_buffer ();
873 syms_of_bytecode (); 876 syms_of_bytecode ();
874 syms_of_callint (); 877 syms_of_callint ();
875 syms_of_callproc (); 878 syms_of_callproc ();
1257 init_provide_once (); 1260 init_provide_once ();
1258 1261
1259 vars_of_abbrev (); 1262 vars_of_abbrev ();
1260 vars_of_alloc (); 1263 vars_of_alloc ();
1261 #ifdef HAVE_X_WINDOWS 1264 #ifdef HAVE_X_WINDOWS
1265 #ifdef HAVE_BALLOON_HELP
1262 vars_of_balloon_x (); 1266 vars_of_balloon_x ();
1267 #endif
1263 #endif 1268 #endif
1264 vars_of_buffer (); 1269 vars_of_buffer ();
1265 vars_of_bytecode (); 1270 vars_of_bytecode ();
1266 vars_of_callint (); 1271 vars_of_callint ();
1267 vars_of_callproc (); 1272 vars_of_callproc ();
2205 2210
2206 UNGCPRO; 2211 UNGCPRO;
2207 2212
2208 shut_down_emacs (0, ((STRINGP (arg)) ? arg : Qnil)); 2213 shut_down_emacs (0, ((STRINGP (arg)) ? arg : Qnil));
2209 2214
2215 /* If we have an auto-save list file,
2216 kill it because we are exiting Emacs deliberately (not crashing).
2217 Do it after shut_down_emacs, which does an auto-save. */
2218 if (STRINGP (Vauto_save_list_file_name))
2219 unlink ((char *) XSTRING_DATA (Vauto_save_list_file_name));
2220
2210 #if defined(GNU_MALLOC) 2221 #if defined(GNU_MALLOC)
2211 __free_hook = voodoo_free_hook; 2222 __free_hook = voodoo_free_hook;
2212 #endif 2223 #endif
2213 2224
2214 exit ((INTP (arg)) ? XINT (arg) : 0); 2225 exit ((INTP (arg)) ? XINT (arg) : 0);