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  <[email protected]>

	* 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  <[email protected]>
 
 	* 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.