diff src/emacs.c @ 11720:f21ea087b1d8

Delete all APOLLO conditionals. (Fdump_emacs_data): Don't use & before my_edata. (Fkill_emacs): Delete the Vauto_save_list_file_name file.

--- a/src/emacs.c	Sat May 06 08:00:08 1995 +0000
+++ b/src/emacs.c	Sat May 06 20:13:31 1995 +0000
@@ -35,12 +35,6 @@
 #include <sys/ioctl.h>
 #endif
 
-#ifdef APOLLO
-#ifndef APOLLO_SR10
-#include <default_acl.h>
-#endif
-#endif
-
 #include "lisp.h"
 #include "commands.h"
 #include "intervals.h"
@@ -120,6 +114,8 @@
 extern Lisp_Object Vwindow_system;
 #endif /* HAVE_X_WINDOWS */
 
+extern Lisp_Object Vauto_save_list_file_name;
+
 #ifdef USG_SHARED_LIBRARIES
 /* If nonzero, this is the place to put the end of the writable segment
    at startup.  */
@@ -499,15 +495,6 @@
 
   clearerr (stdin);
 
-#ifdef APOLLO
-#ifndef APOLLO_SR10
-  /* If USE_DOMAIN_ACLS environment variable exists,
-     use ACLs rather than UNIX modes. */
-  if (egetenv ("USE_DOMAIN_ACLS"))
-    default_acl (USE_DEFACL);
-#endif
-#endif /* APOLLO */
-
 #ifndef SYSTEM_MALLOC
   if (! initialized)
     {
@@ -1142,6 +1129,11 @@
   if (!NILP (Vrun_hooks) && !noninteractive)
     call1 (Vrun_hooks, intern ("kill-emacs-hook"));
 
+  /* If we have an auto-save list file,
+     kill it because we are exiting Emacs deliberately (not crashing).  */
+  if (STRINGP (Vauto_save_list_file_name))
+    unlink (XSTRING (Vauto_save_list_file_name)->data);
+
   UNGCPRO;
 
 /* Is it really necessary to do this deassign
@@ -1237,8 +1229,6 @@
 
 
 #ifndef CANNOT_DUMP
-/* Nothing like this can be implemented on an Apollo.
-   What a loss!  */
 
 #ifdef HAVE_SHM
 
@@ -1261,7 +1251,7 @@
   /* Tell malloc where start of impure now is */
   /* Also arrange for warnings when nearly out of space.  */
 #ifndef SYSTEM_MALLOC
-  memory_warnings (&my_edata, malloc_warning);
+  memory_warnings (my_edata, malloc_warning);
 #endif
   map_out_data (XSTRING (intoname)->data);