Mercurial > hg > xemacs-beta

comparison src/buffer.c @ 207:e45d5e7c476e r20-4b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b2
author cvs
date Mon, 13 Aug 2007 10:03:52 +0200
parents 850242ba4a81
children 41ff10fd062f
comparison
equal deleted inserted replaced
206:d3e9274cbc4e 207:e45d5e7c476e
250 ((markobj) (buf->extent_info)); 250 ((markobj) (buf->extent_info));
251 251
252 /* Don't mark normally through the children slot. 252 /* Don't mark normally through the children slot.
253 (Actually, in this case, it doesn't matter.) 253 (Actually, in this case, it doesn't matter.)
254 */ 254 */
255 mark_conses_in_list (buf->indirect_children); 255 if (! EQ (buf->indirect_children, Qnull_pointer))
256 mark_conses_in_list (buf->indirect_children);
256 257
257 if (buf->base_buffer) 258 if (buf->base_buffer)
258 { 259 {
259 Lisp_Object base_buf_obj = Qnil; 260 Lisp_Object base_buf_obj = Qnil;
260 261
2216 defs->save_length = Qzero; /* lisp code wants int-or-nil */ 2217 defs->save_length = Qzero; /* lisp code wants int-or-nil */
2217 defs->modtime = 0; 2218 defs->modtime = 0;
2218 defs->auto_save_modified = 0; 2219 defs->auto_save_modified = 0;
2219 defs->auto_save_failure_time = -1; 2220 defs->auto_save_failure_time = -1;
2220 defs->invisibility_spec = Qt; 2221 defs->invisibility_spec = Qt;
2222
2223 defs->indirect_children = Qnil;
2224 syms->indirect_children = Qnil;
2221 2225
2222 { 2226 {
2223 /* 0 means var is always local. Default used only at creation. 2227 /* 0 means var is always local. Default used only at creation.
2224 * -1 means var is always local. Default used only at reset and 2228 * -1 means var is always local. Default used only at reset and
2225 * creation. 2229 * creation.
2506 *Current coding system for the current buffer. 2510 *Current coding system for the current buffer.
2507 When the buffer is written out into a file, this coding system will be 2511 When the buffer is written out into a file, this coding system will be
2508 used for the encoding. Automatically buffer-local when set in any 2512 used for the encoding. Automatically buffer-local when set in any
2509 fashion. This is normally set automatically when a file is loaded in 2513 fashion. This is normally set automatically when a file is loaded in
2510 based on the determined coding system of the file (assuming that 2514 based on the determined coding system of the file (assuming that
2511 `buffer-file-coding-system-for-read' is set to `automatic-conversion', 2515 `buffer-file-coding-system-for-read' is set to `undecided', which
2512 which calls for automatic determination of the file's coding system). 2516 calls for automatic determination of the file's coding system).
2513 Normally the modeline indicates the current file coding system using 2517 Normally the modeline indicates the current file coding system using
2514 its mnemonic abbreviation. 2518 its mnemonic abbreviation.
2515 2519
2516 The default value for this variable (which is normally used for 2520 The default value for this variable (which is normally used for
2517 buffers without associated files) is also used when automatic 2521 buffers without associated files) is also used when automatic
2540 and `buffer-file-coding-system-alist' for that. From a Lisp program, if 2544 and `buffer-file-coding-system-alist' for that. From a Lisp program, if
2541 you wish to unilaterally specify the coding system used for one 2545 you wish to unilaterally specify the coding system used for one
2542 particular operation, you should bind the variable 2546 particular operation, you should bind the variable
2543 `coding-system-for-read' rather than changing the other two 2547 `coding-system-for-read' rather than changing the other two
2544 variables just mentioned, which are intended to be used for 2548 variables just mentioned, which are intended to be used for
2545 global environment specification. 2549 global environment specification. */ );
2546 */ );
2547 #endif /* MULE */ 2550 #endif /* MULE */
2548 2551
2549 DEFVAR_BUFFER_LOCAL ("auto-fill-function", auto_fill_function /* 2552 DEFVAR_BUFFER_LOCAL ("auto-fill-function", auto_fill_function /*
2550 Function called (if non-nil) to perform auto-fill. 2553 Function called (if non-nil) to perform auto-fill.
2551 It is called after self-inserting a space at a column beyond `fill-column'. 2554 It is called after self-inserting a space at a column beyond `fill-column'.