mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-31 20:02:42 +00:00
Fix up deleting auto-save/killing buffer wrt. `auto-save-visited-mode'
* src/buffer.c (Fkill_buffer): Respect `auto-save-visited-mode'.
This commit is contained in:
parent
de64510973
commit
64b4c85637
10
src/buffer.c
10
src/buffer.c
@ -1798,11 +1798,15 @@ cleaning up all windows currently displaying the buffer to be killed. */)
|
||||
|
||||
/* Delete the autosave file, if requested. */
|
||||
if (modified
|
||||
&& STRINGP (BVAR (b, auto_save_file_name))
|
||||
&& !NILP (Ffile_exists_p (BVAR (b, auto_save_file_name)))
|
||||
&& kill_buffer_delete_auto_save_files
|
||||
&& delete_auto_save_files
|
||||
&& !NILP (Frecent_auto_save_p ()))
|
||||
&& !NILP (Frecent_auto_save_p ())
|
||||
&& STRINGP (BVAR (b, auto_save_file_name))
|
||||
&& !NILP (Ffile_exists_p (BVAR (b, auto_save_file_name)))
|
||||
/* If `auto-save-visited-mode' is on, then we're auto-saving
|
||||
to the visited file -- don't delete it.. */
|
||||
&& NILP (Fstring_equal (BVAR (b, auto_save_file_name),
|
||||
BVAR (b, filename))))
|
||||
{
|
||||
tem = do_yes_or_no_p (build_string ("Delete auto-save file? "));
|
||||
if (!NILP (tem))
|
||||
|
Loading…
Reference in New Issue
Block a user