Mercurial > hg > xemacs-beta

comparison src/fileio.c @ 2286:04bc9d2f42c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-20 19:18:55 by james] Mark all unused parameters as unused. Also eliminate some unneeded local variables.
author james
date Mon, 20 Sep 2004 19:20:08 +0000
parents a8d8f419b459
children ecf1ebac70d8
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
1973 report_file_error ("Removing old name", filename); 1973 report_file_error ("Removing old name", filename);
1974 return Qnil; 1974 return Qnil;
1975 } 1975 }
1976 1976
1977 static Lisp_Object 1977 static Lisp_Object
1978 internal_delete_file_1 (Lisp_Object ignore, Lisp_Object ignore2) 1978 internal_delete_file_1 (Lisp_Object UNUSED (ignore),
1979 Lisp_Object UNUSED (ignore2))
1979 { 1980 {
1980 return Qt; 1981 return Qt;
1981 } 1982 }
1982 1983
1983 /* Delete file FILENAME, returning 1 if successful and 0 if failed. */ 1984 /* Delete file FILENAME, returning 1 if successful and 0 if failed. */
3827 3828
3828 return Qnil; 3829 return Qnil;
3829 } 3830 }
3830 3831
3831 static Lisp_Object 3832 static Lisp_Object
3832 auto_save_error (Lisp_Object condition_object, Lisp_Object ignored) 3833 auto_save_error (Lisp_Object UNUSED (condition_object),
3834 Lisp_Object UNUSED (ignored))
3833 { 3835 {
3834 /* This function can call lisp */ 3836 /* This function can call lisp */
3835 if (gc_in_progress) 3837 if (gc_in_progress)
3836 return Qnil; 3838 return Qnil;
3837 /* Don't try printing an error message after everything is gone! */ 3839 /* Don't try printing an error message after everything is gone! */
3847 Fsleep_for (make_int (1)); 3849 Fsleep_for (make_int (1));
3848 return Qnil; 3850 return Qnil;
3849 } 3851 }
3850 3852
3851 static Lisp_Object 3853 static Lisp_Object
3852 auto_save_1 (Lisp_Object ignored) 3854 auto_save_1 (Lisp_Object UNUSED (ignored))
3853 { 3855 {
3854 /* This function can call lisp */ 3856 /* This function can call lisp */
3855 /* #### I think caller is protecting current_buffer? */ 3857 /* #### I think caller is protecting current_buffer? */
3856 struct stat st; 3858 struct stat st;
3857 Lisp_Object fn = current_buffer->filename; 3859 Lisp_Object fn = current_buffer->filename;
3881 #endif 3883 #endif
3882 ); 3884 );
3883 } 3885 }
3884 3886
3885 static Lisp_Object 3887 static Lisp_Object
3886 auto_save_expand_name_error (Lisp_Object condition_object, Lisp_Object ignored) 3888 auto_save_expand_name_error (Lisp_Object condition_object,
3889 Lisp_Object UNUSED (ignored))
3887 { 3890 {
3888 warn_when_safe_lispobj 3891 warn_when_safe_lispobj
3889 (Qfile, Qerror, 3892 (Qfile, Qerror,
3890 Fcons (build_msg_string ("Invalid auto-save list-file"), 3893 Fcons (build_msg_string ("Invalid auto-save list-file"),
3891 Fcons (Vauto_save_list_file_name, 3894 Fcons (Vauto_save_list_file_name,