/* 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.
ssize_t converted_len;
Lisp_Object converted;
unsigned flags;
- int count = SPECPDL_INDEX ();
+ dynwind_begin ();
chdir_to_default_directory ();
SDATA (converted), converted_len))
error ("cygwin_conv_path: %s", strerror (errno));
- return unbind_to (count, converted);
+ dynwind_end ();
+ return converted;
}
static Lisp_Object
ssize_t converted_len;
Lisp_Object converted;
unsigned flags;
- int count = SPECPDL_INDEX ();
+ dynwind_begin ();
chdir_to_default_directory ();
if (cygwin_conv_path (flags, in, SDATA (converted), converted_len))
error ("cygwin_conv_path: %s", strerror (errno));
- return unbind_to (count, DECODE_FILE (converted));
+ Lisp_Object tem0 = DECODE_FILE (converted);
+ dynwind_end ();
+ return tem0;
}
DEFUN ("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"
}