X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/406af475be236b874e3633b68999f6a099d47587..3eb1268e1028d0e9ae5ef19750e9a6a9890a6c77:/src/cygw32.c
diff --git a/src/cygw32.c b/src/cygw32.c
index bbc3a49fd8..59844c4428 100644
--- a/src/cygw32.c
+++ b/src/cygw32.c
@@ -1,5 +1,5 @@
/* Cygwin support routines.
- Copyright (C) 2011-2013 Free Software Foundation, Inc.
+ Copyright (C) 2011-2014 Free Software Foundation, Inc.
This file is part of GNU Emacs.
@@ -23,12 +23,11 @@ along with GNU Emacs. If not, see . */
#include
#include
-static Lisp_Object
-fchdir_unwind (Lisp_Object dir_fd)
+static void
+fchdir_unwind (int dir_fd)
{
- (void) fchdir (XFASTINT (dir_fd));
- (void) close (XFASTINT (dir_fd));
- return Qnil;
+ (void) fchdir (dir_fd);
+ (void) close (dir_fd);
}
static void
@@ -40,7 +39,7 @@ chdir_to_default_directory ()
if (old_cwd_fd == -1)
error ("could not open current directory: %s", strerror (errno));
- record_unwind_protect (fchdir_unwind, make_number (old_cwd_fd));
+ record_unwind_protect_int (fchdir_unwind, old_cwd_fd);
new_cwd = Funhandled_file_name_directory (
Fexpand_file_name (build_string ("."), Qnil));
@@ -57,7 +56,7 @@ conv_filename_to_w32_unicode (Lisp_Object in, int absolute_p)
ssize_t converted_len;
Lisp_Object converted;
unsigned flags;
- int count = SPECPDL_INDEX ();
+ ptrdiff_t count = SPECPDL_INDEX ();
chdir_to_default_directory ();
@@ -86,7 +85,7 @@ conv_filename_from_w32_unicode (const wchar_t* in, int absolute_p)
ssize_t converted_len;
Lisp_Object converted;
unsigned flags;
- int count = SPECPDL_INDEX ();
+ ptrdiff_t count = SPECPDL_INDEX ();
chdir_to_default_directory ();
@@ -135,6 +134,5 @@ For the reverse operation, see `cygwin-convert-file-name-to-windows'. */)
void
syms_of_cygw32 (void)
{
- defsubr (&Scygwin_convert_file_name_from_windows);
- defsubr (&Scygwin_convert_file_name_to_windows);
+#include "cygw32.x"
}