commit/XEmacs: kehoea: Use a larger buffering size in #'copy-file too.

1 new commit in XEmacs: https://bitbucket.org/xemacs/xemacs/commits/e9d0228c5671/ Changeset: e9d0228c5671 User: kehoea Date: 2014-01-16 22:03:03 Summary: Use a larger buffering size in #'copy-file too. src/ChangeLog addition: 2014-01-16 Aidan Kehoe <kehoea(a)parhasard.net&gt; * fileio.c (READ_BUF_SIZE): [...] Use it in #'copy-file too, move its #define earlier to make that possible. Not relevant to the coding system buffering, but still helpful. Affected #: 2 files diff -r 319e18d08654e2b6b6a20bc496349fcc959ed69f -r e9d0228c56716b3b9468a1ee64b35722abde5cab src/ChangeLog --- a/src/ChangeLog +++ b/src/ChangeLog ＠＠ -6,6 +6,10 ＠＠ of #x10000, and that size works better with the coding system buffering, improving performance there; move to this value. + Use it in #'copy-file too, move its #define earlier to make that + possible. Not relevant to the coding system buffering, but still + helpful. + 2014-01-16 Aidan Kehoe <kehoea(a)parhasard.net&gt; * file-coding.c: diff -r 319e18d08654e2b6b6a20bc496349fcc959ed69f -r e9d0228c56716b3b9468a1ee64b35722abde5cab src/fileio.c --- a/src/fileio.c +++ b/src/fileio.c ＠＠ -1785,6 +1785,8 ＠＠ } return; } + +#define READ_BUF_SIZE (2 << 16) DEFUN ("copy-file", Fcopy_file, 2, 4, "fCopy file: \nFCopy %s to file: \np\nP", /* ＠＠ -1801,7 +1803,7 ＠＠ { /* This function can call Lisp. GC checked 2000-07-28 ben */ int ifd, ofd, n; - Rawbyte buf[16 * 1024]; + Rawbyte buf[READ_BUF_SIZE]; struct stat st, out_st; Lisp_Object handler; int speccount = specpdl_depth (); ＠＠ -2870,8 +2872,6 ＠＠ }  -#define READ_BUF_SIZE (2 << 16) - DEFUN ("insert-file-contents-internal", Finsert_file_contents_internal, 1, 7, 0, /* Insert contents of file FILENAME after point; no coding-system frobbing. Repository URL: https://bitbucket.org/xemacs/xemacs/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches