comparison src/fileio.c @ 98284:29ea4287708c

(Qdelete_by_moving_to_trash): New Lisp_Object. (syms_of_fileio): Add Qdelete_by_moving_to_trash.

98283:e38f9f28d6ce

#endif

/* Non-zero means call move-file-to-trash in Fdelete_file or
   Fdelete_directory.  */
int delete_by_moving_to_trash;

/* Lisp function for moving files to trash.  */
Lisp_Object Qmove_file_to_trash;

extern Lisp_Object Vuser_login_name;

			   so don't have copy-file prompt again.  */
			NILP (ok_if_already_exists) ? Qnil : Qt,
			Qt, Qt);

	  count = SPECPDL_INDEX ();
	  specbind (intern ("delete-by-moving-to-trash"), Qnil);
	  Fdelete_file (file);
	  unbind_to (count, Qnil);
	}
      else
	report_file_error ("Renaming", list2 (file, newname));

  DEFVAR_BOOL ("delete-by-moving-to-trash", &delete_by_moving_to_trash,
               doc: /* Specifies whether to use the system's trash can.
When non-nil, the function `move-file-to-trash' will be used by
`delete-file' and `delete-directory'.  */);
  delete_by_moving_to_trash = 0;
  Qmove_file_to_trash = intern ("move-file-to-trash");
  staticpro (&Qmove_file_to_trash);

  defsubr (&Sfind_file_name_handler);
  defsubr (&Sfile_name_directory);

98284:29ea4287708c

#endif

/* Non-zero means call move-file-to-trash in Fdelete_file or
   Fdelete_directory.  */
int delete_by_moving_to_trash;

Lisp_Object Qdelete_by_moving_to_trash;

/* Lisp function for moving files to trash.  */
Lisp_Object Qmove_file_to_trash;

extern Lisp_Object Vuser_login_name;

			   so don't have copy-file prompt again.  */
			NILP (ok_if_already_exists) ? Qnil : Qt,
			Qt, Qt);

	  count = SPECPDL_INDEX ();
	  specbind (Qdelete_by_moving_to_trash, Qnil);
	  Fdelete_file (file);
	  unbind_to (count, Qnil);
	}
      else
	report_file_error ("Renaming", list2 (file, newname));

  DEFVAR_BOOL ("delete-by-moving-to-trash", &delete_by_moving_to_trash,
               doc: /* Specifies whether to use the system's trash can.
When non-nil, the function `move-file-to-trash' will be used by
`delete-file' and `delete-directory'.  */);
  delete_by_moving_to_trash = 0;
  Qdelete_by_moving_to_trash = intern ("delete-by-moving-to-trash");
  Qmove_file_to_trash = intern ("move-file-to-trash");
  staticpro (&Qmove_file_to_trash);

  defsubr (&Sfind_file_name_handler);
  defsubr (&Sfile_name_directory);