Mercurial > hg > xemacs-beta

comparison src/fileio.c @ 235:85a06df23a9a r20-5b16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b16
author cvs
date Mon, 13 Aug 2007 10:14:40 +0200
parents 0e522484dd2a
children f220cc83d72e
comparison
equal deleted inserted replaced
234:946e7f6ce379 235:85a06df23a9a
111 111
112 int disable_auto_save_when_buffer_shrinks; 112 int disable_auto_save_when_buffer_shrinks;
113 113
114 Lisp_Object Qfile_name_handler_alist; 114 Lisp_Object Qfile_name_handler_alist;
115 115
116 #ifdef DOS_NT
117 /* Until we can figure out how to deal with the functions in this file in
118 a civilized fashion, this will remain #ifdef'ed out. -slb */
119 /* Syncing with FSF 19.34.6 note: although labelled as NT-specific, these 116 /* Syncing with FSF 19.34.6 note: although labelled as NT-specific, these
120 two lisp variables are compiled in even when not defined(DOS_NT). 117 two lisp variables are compiled in even when not defined(DOS_NT).
121 Need to check if we should bracket them between #ifdef's. 118 Need to check if we should bracket them between #ifdef's.
122 --marcpa */ 119 --marcpa */
123 /* On NT, specifies the directory separator character, used (eg.) when 120 /* On NT, specifies the directory separator character, used (eg.) when
124 expanding file names. This can be bound to / or \. 121 expanding file names. This can be bound to / or \.
125 122
126 This needs to be initialized statically, because file name functions 123 This needs to be initialized statically, because file name functions
127 are called during initialization. */ 124 are called during initialization. */
128 Lisp_Object Vdirectory_sep_char = '/'; 125 Lisp_Object Vdirectory_sep_char;
129 126
127 #ifdef DOS_NT
128 /* Until we can figure out how to deal with the functions in this file in
129 a civilized fashion, this will remain #ifdef'ed out. -slb */
130 /* For the benefit of backwards compatability with earlier versions of 130 /* For the benefit of backwards compatability with earlier versions of
131 Emacs on DOS_NT, provide a way to disable the REPLACE option support 131 Emacs on DOS_NT, provide a way to disable the REPLACE option support
132 in insert-file-contents. */ 132 in insert-file-contents. */
133 Lisp_Object Vinsert_file_contents_allow_replace; 133 Lisp_Object Vinsert_file_contents_allow_replace;
134 #endif /* DOS_NT */ 134 #endif /* DOS_NT */
4682 This is to prevent you from losing your edits if you accidentally 4682 This is to prevent you from losing your edits if you accidentally
4683 delete a large chunk of the buffer and don't notice it until too late. 4683 delete a large chunk of the buffer and don't notice it until too late.
4684 Saving the buffer normally turns auto-save back on. 4684 Saving the buffer normally turns auto-save back on.
4685 */ ); 4685 */ );
4686 disable_auto_save_when_buffer_shrinks = 1; 4686 disable_auto_save_when_buffer_shrinks = 1;
4687 #ifdef DOS_NT 4687
4688 DEFVAR_LISP ("directory-sep-char", &Vdirectory_sep_char /* 4688 DEFVAR_LISP ("directory-sep-char", &Vdirectory_sep_char /*
4689 *Directory separator character for built-in functions that return file names. 4689 *Directory separator character for built-in functions that return file names.
4690 The value should be either ?/ or ?\\ (any other value is treated as ?\\). 4690 The value should be either ?/ or ?\\ (any other value is treated as ?\\).
4691 This variable affects the built-in functions only on Windows, 4691 This variable affects the built-in functions only on Windows,
4692 on other platforms, it is initialized so that Lisp code can find out 4692 on other platforms, it is initialized so that Lisp code can find out
4693 what the normal separator is. 4693 what the normal separator is.
4694 */ ); 4694 */ );
4695 Vdirectory_sep_char = '/'; 4695 Vdirectory_sep_char = make_char('/');
4696 4696
4697 #ifdef DOS_NT
4697 DEFVAR_LISP ("insert-file-contents-allow-replace", &Vinsert_file_contents_allow_replace /* 4698 DEFVAR_LISP ("insert-file-contents-allow-replace", &Vinsert_file_contents_allow_replace /*
4698 *Allow REPLACE option of insert-file-contents to preserve markers. 4699 *Allow REPLACE option of insert-file-contents to preserve markers.
4699 If non-nil, the REPLACE option works as described, preserving markers. 4700 If non-nil, the REPLACE option works as described, preserving markers.
4700 If nil, the REPLACE option is implemented by deleting the visible region 4701 If nil, the REPLACE option is implemented by deleting the visible region
4701 then inserting the file contents as if REPLACE was nil. 4702 then inserting the file contents as if REPLACE was nil.