diff options
Diffstat (limited to 'src/fileio.c')
| -rw-r--r-- | src/fileio.c | 83 |
1 files changed, 42 insertions, 41 deletions
diff --git a/src/fileio.c b/src/fileio.c index 5ad8b0a33a1..fb16decaaa3 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -102,20 +102,20 @@ int auto_save_error_occurred; an actual coding system name, but just an indicator to tell insert-file-contents to use `emacs-mule' with a special flag for auto saving and recovering a file. */ -Lisp_Object Qauto_save_coding; +static Lisp_Object Qauto_save_coding; /* Property name of a file name handler, which gives a list of operations it handles.. */ -Lisp_Object Qoperations; +static Lisp_Object Qoperations; /* Lisp functions for translating file formats */ -Lisp_Object Qformat_decode, Qformat_annotate_function; +static Lisp_Object Qformat_decode, Qformat_annotate_function; /* Lisp function for setting buffer-file-coding-system and the multibyteness of the current buffer after inserting a file. */ -Lisp_Object Qafter_insert_file_set_coding; +static Lisp_Object Qafter_insert_file_set_coding; -Lisp_Object Qwrite_region_annotate_functions; +static Lisp_Object Qwrite_region_annotate_functions; /* Each time an annotation function changes the buffer, the new buffer is added here. */ Lisp_Object Vwrite_region_annotation_buffers; @@ -123,25 +123,26 @@ Lisp_Object Vwrite_region_annotation_buffers; #ifdef HAVE_FSYNC #endif -Lisp_Object Qdelete_by_moving_to_trash; +static Lisp_Object Qdelete_by_moving_to_trash; /* Lisp function for moving files to trash. */ -Lisp_Object Qmove_file_to_trash; +static Lisp_Object Qmove_file_to_trash; /* Lisp function for recursively copying directories. */ -Lisp_Object Qcopy_directory; +static Lisp_Object Qcopy_directory; /* Lisp function for recursively deleting directories. */ -Lisp_Object Qdelete_directory; +static Lisp_Object Qdelete_directory; #ifdef WINDOWSNT #endif -Lisp_Object Qfile_error, Qfile_already_exists, Qfile_date_error; -Lisp_Object Qexcl; +Lisp_Object Qfile_error; +static Lisp_Object Qfile_already_exists, Qfile_date_error; +static Lisp_Object Qexcl; Lisp_Object Qfile_name_history; -Lisp_Object Qcar_less_than_car; +static Lisp_Object Qcar_less_than_car; INFUN (Fmake_symbolic_link, 3); static int a_write (int, Lisp_Object, int, int, @@ -205,40 +206,40 @@ restore_point_unwind (Lisp_Object location) } -Lisp_Object Qexpand_file_name; -Lisp_Object Qsubstitute_in_file_name; -Lisp_Object Qdirectory_file_name; -Lisp_Object Qfile_name_directory; -Lisp_Object Qfile_name_nondirectory; -Lisp_Object Qunhandled_file_name_directory; -Lisp_Object Qfile_name_as_directory; -Lisp_Object Qcopy_file; -Lisp_Object Qmake_directory_internal; -Lisp_Object Qmake_directory; -Lisp_Object Qdelete_directory_internal; +static Lisp_Object Qexpand_file_name; +static Lisp_Object Qsubstitute_in_file_name; +static Lisp_Object Qdirectory_file_name; +static Lisp_Object Qfile_name_directory; +static Lisp_Object Qfile_name_nondirectory; +static Lisp_Object Qunhandled_file_name_directory; +static Lisp_Object Qfile_name_as_directory; +static Lisp_Object Qcopy_file; +static Lisp_Object Qmake_directory_internal; +static Lisp_Object Qmake_directory; +static Lisp_Object Qdelete_directory_internal; Lisp_Object Qdelete_file; -Lisp_Object Qrename_file; -Lisp_Object Qadd_name_to_file; -Lisp_Object Qmake_symbolic_link; +static Lisp_Object Qrename_file; +static Lisp_Object Qadd_name_to_file; +static Lisp_Object Qmake_symbolic_link; Lisp_Object Qfile_exists_p; -Lisp_Object Qfile_executable_p; -Lisp_Object Qfile_readable_p; -Lisp_Object Qfile_writable_p; -Lisp_Object Qfile_symlink_p; -Lisp_Object Qaccess_file; +static Lisp_Object Qfile_executable_p; +static Lisp_Object Qfile_readable_p; +static Lisp_Object Qfile_writable_p; +static Lisp_Object Qfile_symlink_p; +static Lisp_Object Qaccess_file; Lisp_Object Qfile_directory_p; -Lisp_Object Qfile_regular_p; -Lisp_Object Qfile_accessible_directory_p; -Lisp_Object Qfile_modes; -Lisp_Object Qset_file_modes; -Lisp_Object Qset_file_times; -Lisp_Object Qfile_selinux_context; -Lisp_Object Qset_file_selinux_context; -Lisp_Object Qfile_newer_than_file_p; +static Lisp_Object Qfile_regular_p; +static Lisp_Object Qfile_accessible_directory_p; +static Lisp_Object Qfile_modes; +static Lisp_Object Qset_file_modes; +static Lisp_Object Qset_file_times; +static Lisp_Object Qfile_selinux_context; +static Lisp_Object Qset_file_selinux_context; +static Lisp_Object Qfile_newer_than_file_p; Lisp_Object Qinsert_file_contents; Lisp_Object Qwrite_region; -Lisp_Object Qverify_visited_file_modtime; -Lisp_Object Qset_visited_file_modtime; +static Lisp_Object Qverify_visited_file_modtime; +static Lisp_Object Qset_visited_file_modtime; DEFUE ("find-file-name-handler", Ffind_file_name_handler, Sfind_file_name_handler, 2, 2, 0, |