diff options
| author | Karl Heuer | 1995-05-18 19:50:57 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-05-18 19:50:57 +0000 |
| commit | 585458387f90545b6549453c0d3a583313c7a2a7 (patch) | |
| tree | d1444b149603d17a69b61a41a206cdff2e223aad /src | |
| parent | bf351cc2bead795586b5c4a47ee2146712d7eb79 (diff) | |
| download | emacs-585458387f90545b6549453c0d3a583313c7a2a7.tar.gz emacs-585458387f90545b6549453c0d3a583313c7a2a7.zip | |
(Fkill_emacs): Delete the auto-save-list file
after shut_down_emacs.
Diffstat (limited to 'src')
| -rw-r--r-- | src/emacs.c | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/emacs.c b/src/emacs.c index ad001d93f03..8983b95d8a6 100644 --- a/src/emacs.c +++ b/src/emacs.c | |||
| @@ -1130,11 +1130,6 @@ all of which are called before Emacs is actually killed.") | |||
| 1130 | if (!NILP (Vrun_hooks) && !noninteractive) | 1130 | if (!NILP (Vrun_hooks) && !noninteractive) |
| 1131 | call1 (Vrun_hooks, intern ("kill-emacs-hook")); | 1131 | call1 (Vrun_hooks, intern ("kill-emacs-hook")); |
| 1132 | 1132 | ||
| 1133 | /* If we have an auto-save list file, | ||
| 1134 | kill it because we are exiting Emacs deliberately (not crashing). */ | ||
| 1135 | if (STRINGP (Vauto_save_list_file_name)) | ||
| 1136 | unlink (XSTRING (Vauto_save_list_file_name)->data); | ||
| 1137 | |||
| 1138 | UNGCPRO; | 1133 | UNGCPRO; |
| 1139 | 1134 | ||
| 1140 | /* Is it really necessary to do this deassign | 1135 | /* Is it really necessary to do this deassign |
| @@ -1145,6 +1140,12 @@ all of which are called before Emacs is actually killed.") | |||
| 1145 | 1140 | ||
| 1146 | shut_down_emacs (0, 0, STRINGP (arg) ? arg : Qnil); | 1141 | shut_down_emacs (0, 0, STRINGP (arg) ? arg : Qnil); |
| 1147 | 1142 | ||
| 1143 | /* If we have an auto-save list file, | ||
| 1144 | kill it because we are exiting Emacs deliberately (not crashing). | ||
| 1145 | Do it after shut_down_emacs, which does an auto-save. */ | ||
| 1146 | if (STRINGP (Vauto_save_list_file_name)) | ||
| 1147 | unlink (XSTRING (Vauto_save_list_file_name)->data); | ||
| 1148 | |||
| 1148 | exit (INTEGERP (arg) ? XINT (arg) | 1149 | exit (INTEGERP (arg) ? XINT (arg) |
| 1149 | #ifdef VMS | 1150 | #ifdef VMS |
| 1150 | : 1 | 1151 | : 1 |