Mercurial > hg > xemacs-beta

comparison src/cmds.c @ 404:2f8bb876ab1d r21-2-32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-32
author cvs
date Mon, 13 Aug 2007 11:16:07 +0200
parents 74fd4e045ea6
children 697ef44129c6
comparison
equal deleted inserted replaced
403:9f011ab08d48 404:2f8bb876ab1d
39 /* Non-nil means put this face on the next self-inserting character. */ 39 /* Non-nil means put this face on the next self-inserting character. */
40 Lisp_Object Vself_insert_face; 40 Lisp_Object Vself_insert_face;
41 41
42 /* This is the command that set up Vself_insert_face. */ 42 /* This is the command that set up Vself_insert_face. */
43 Lisp_Object Vself_insert_face_command; 43 Lisp_Object Vself_insert_face_command;
44
45 /* A char-table for characters which may invoke auto-filling. */
46 Lisp_Object Vauto_fill_chars;
44 47
45 DEFUN ("forward-char", Fforward_char, 0, 2, "_p", /* 48 DEFUN ("forward-char", Fforward_char, 0, 2, "_p", /*
46 Move point right N characters (left if N negative). 49 Move point right N characters (left if N negative).
47 On attempt to pass end of buffer, stop and signal `end-of-buffer'. 50 On attempt to pass end of buffer, stop and signal `end-of-buffer'.
48 On attempt to pass beginning of buffer, stop and signal `beginning-of-buffer'. 51 On attempt to pass beginning of buffer, stop and signal `beginning-of-buffer'.
394 return; 397 return;
395 } 398 }
396 #endif /* FSFmacs */ 399 #endif /* FSFmacs */
397 } 400 }
398 } 401 }
399 if ((c1 == ' ' || c1 == '\n') 402 if ((CHAR_TABLEP (Vauto_fill_chars)
403 ? !NILP (XCHAR_TABLE_VALUE_UNSAFE (Vauto_fill_chars, c1))
404 : (c1 == ' ' || c1 == '\n'))
400 && !noautofill 405 && !noautofill
401 && !NILP (buf->auto_fill_function)) 406 && !NILP (buf->auto_fill_function))
402 { 407 {
403 buffer_insert_emacs_char (buf, c1); 408 buffer_insert_emacs_char (buf, c1);
404 if (c1 == '\n') 409 if (c1 == '\n')
496 DEFVAR_LISP ("blink-paren-function", &Vblink_paren_function /* 501 DEFVAR_LISP ("blink-paren-function", &Vblink_paren_function /*
497 Function called, if non-nil, whenever a close parenthesis is inserted. 502 Function called, if non-nil, whenever a close parenthesis is inserted.
498 More precisely, a char with closeparen syntax is self-inserted. 503 More precisely, a char with closeparen syntax is self-inserted.
499 */ ); 504 */ );
500 Vblink_paren_function = Qnil; 505 Vblink_paren_function = Qnil;
501 } 506
507 DEFVAR_LISP ("auto-fill-chars", &Vauto_fill_chars /*
508 A char-table for characters which invoke auto-filling.
509 Such characters has value t in this table.
510 */);
511 Vauto_fill_chars = Fmake_char_table (Qgeneric);
512 XCHAR_TABLE (Vauto_fill_chars)->ascii[' '] = Qt;
513 XCHAR_TABLE (Vauto_fill_chars)->ascii['\n'] = Qt;
514 }