Mercurial > hg > xemacs-beta

comparison src/fileio.c @ 290:c9fe270a4101 r21-0b43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b43
author cvs
date Mon, 13 Aug 2007 10:36:47 +0200
parents e11d67e05968
children 4b85ae5eabfb
comparison
equal deleted inserted replaced
289:6e6992ccc4b6 290:c9fe270a4101
1828 XSTRING_LENGTH (dirname_) + 1); 1828 XSTRING_LENGTH (dirname_) + 1);
1829 1829
1830 if (dir [XSTRING_LENGTH (dirname_) - 1] == '/') 1830 if (dir [XSTRING_LENGTH (dirname_) - 1] == '/')
1831 dir [XSTRING_LENGTH (dirname_) - 1] = 0; 1831 dir [XSTRING_LENGTH (dirname_) - 1] = 0;
1832 1832
1833 #ifdef WINDOWSNT
1834 if (mkdir (dir) != 0)
1835 #else
1836 if (mkdir (dir, 0777) != 0) 1833 if (mkdir (dir, 0777) != 0)
1837 #endif
1838 report_file_error ("Creating directory", list1 (dirname_)); 1834 report_file_error ("Creating directory", list1 (dirname_));
1839 1835
1840 return Qnil; 1836 return Qnil;
1841 } 1837 }
1842 1838
4304 */ ); 4300 */ );
4305 disable_auto_save_when_buffer_shrinks = 1; 4301 disable_auto_save_when_buffer_shrinks = 1;
4306 4302
4307 DEFVAR_LISP ("directory-sep-char", &Vdirectory_sep_char /* 4303 DEFVAR_LISP ("directory-sep-char", &Vdirectory_sep_char /*
4308 Directory separator character for built-in functions that return file names. 4304 Directory separator character for built-in functions that return file names.
4309 The value should be either ?/ or ?\ (any other value is treated as ?\). 4305 The value should be either ?/ or ?\\ (any other value is treated as ?\\).
4310 This variable affects the built-in functions only on Windows, 4306 This variable affects the built-in functions only on Windows,
4311 on other platforms, it is initialized so that Lisp code can find out 4307 on other platforms, it is initialized so that Lisp code can find out
4312 what the normal separator is. 4308 what the normal separator is.
4313 */ ); 4309 */ );
4314 Vdirectory_sep_char = make_char ('/'); 4310 Vdirectory_sep_char = make_char ('/');