[Emacs-diffs] Changes to emacs/src/fileio.c,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/09/20 23:37:08

Index: fileio.c
===================================================================
RCS file: /sources/emacs/emacs/src/fileio.c,v
retrieving revision 1.637
retrieving revision 1.638
diff -u -b -r1.637 -r1.638
--- fileio.c    20 Sep 2008 21:40:54 -0000      1.637
+++ fileio.c    20 Sep 2008 23:37:08 -0000      1.638
@@ -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);