Mercurial > emacs
changeset 98284:29ea4287708c
(Qdelete_by_moving_to_trash): New Lisp_Object.
(syms_of_fileio): Add Qdelete_by_moving_to_trash.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 20 Sep 2008 23:37:08 +0000 |
| parents | e38f9f28d6ce |
| children | 9794ceb530d3 |
| files | src/fileio.c |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/fileio.c Sat Sep 20 22:09:39 2008 +0000 +++ b/src/fileio.c Sat Sep 20 23:37:08 2008 +0000 @@ -201,6 +201,8 @@ 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; @@ -2246,7 +2248,7 @@ Qt, Qt); count = SPECPDL_INDEX (); - specbind (intern ("delete-by-moving-to-trash"), Qnil); + specbind (Qdelete_by_moving_to_trash, Qnil); Fdelete_file (file); unbind_to (count, Qnil); } @@ -5669,6 +5671,7 @@ 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);