/[emacs]/emacs/src/cmds.c
ViewVC logotype

Diff of /emacs/src/cmds.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.84 by pj, Fri Nov 2 20:19:59 2001 UTC revision 1.85 by pj, Tue Nov 13 07:44:06 2001 UTC
# Line 44  Lisp_Object Vself_insert_face_command; Line 44  Lisp_Object Vself_insert_face_command;
44  extern Lisp_Object Qface;  extern Lisp_Object Qface;
45    
46  DEFUN ("forward-point", Fforward_point, Sforward_point, 1, 1, 0,  DEFUN ("forward-point", Fforward_point, Sforward_point, 1, 1, 0,
47    "Return buffer position N characters after (before if N negative) point.")         doc: /* Return buffer position N characters after (before if N negative) point.  */)
48    (n)       (n)
49       Lisp_Object n;       Lisp_Object n;
50  {  {
51    CHECK_NUMBER (n);    CHECK_NUMBER (n);
# Line 54  DEFUN ("forward-point", Fforward_point, Line 54  DEFUN ("forward-point", Fforward_point,
54  }  }
55    
56  DEFUN ("forward-char", Fforward_char, Sforward_char, 0, 1, "p",  DEFUN ("forward-char", Fforward_char, Sforward_char, 0, 1, "p",
57    "Move point right N characters (left if N is negative).\n\         doc: /* Move point right N characters (left if N is negative).
58  On reaching end of buffer, stop and signal error.")  On reaching end of buffer, stop and signal error.  */)
59    (n)       (n)
60       Lisp_Object n;       Lisp_Object n;
61  {  {
62    if (NILP (n))    if (NILP (n))
# Line 90  On reaching end of buffer, stop and sign Line 90  On reaching end of buffer, stop and sign
90  }  }
91    
92  DEFUN ("backward-char", Fbackward_char, Sbackward_char, 0, 1, "p",  DEFUN ("backward-char", Fbackward_char, Sbackward_char, 0, 1, "p",
93    "Move point left N characters (right if N is negative).\n\         doc: /* Move point left N characters (right if N is negative).
94  On attempt to pass beginning or end of buffer, stop and signal error.")  On attempt to pass beginning or end of buffer, stop and signal error.  */)
95    (n)       (n)
96       Lisp_Object n;       Lisp_Object n;
97  {  {
98    if (NILP (n))    if (NILP (n))
# Line 105  On attempt to pass beginning or end of b Line 105  On attempt to pass beginning or end of b
105  }  }
106    
107  DEFUN ("forward-line", Fforward_line, Sforward_line, 0, 1, "p",  DEFUN ("forward-line", Fforward_line, Sforward_line, 0, 1, "p",
108    "Move N lines forward (backward if N is negative).\n\         doc: /* Move N lines forward (backward if N is negative).
109  Precisely, if point is on line I, move to the start of line I + N.\n\  Precisely, if point is on line I, move to the start of line I + N.
110  If there isn't room, go as far as possible (no error).\n\  If there isn't room, go as far as possible (no error).
111  Returns the count of lines left to move.  If moving forward,\n\  Returns the count of lines left to move.  If moving forward,
112  that is N - number of lines moved; if backward, N + number moved.\n\  that is N - number of lines moved; if backward, N + number moved.
113  With positive N, a non-empty line at the end counts as one line\n\  With positive N, a non-empty line at the end counts as one line
114    successfully moved (for the return value).")    successfully moved (for the return value).  */)
115    (n)       (n)
116       Lisp_Object n;       Lisp_Object n;
117  {  {
118    int opoint = PT, opoint_byte = PT_BYTE;    int opoint = PT, opoint_byte = PT_BYTE;
# Line 198  boundaries bind `inhibit-field-text-moti Line 198  boundaries bind `inhibit-field-text-moti
198  }  }
199    
200  DEFUN ("delete-char", Fdelete_char, Sdelete_char, 1, 2, "p\nP",  DEFUN ("delete-char", Fdelete_char, Sdelete_char, 1, 2, "p\nP",
201    "Delete the following N characters (previous if N is negative).\n\         doc: /* Delete the following N characters (previous if N is negative).
202  Optional second arg KILLFLAG non-nil means kill instead (save in kill ring).\n\  Optional second arg KILLFLAG non-nil means kill instead (save in kill ring).
203  Interactively, N is the prefix arg, and KILLFLAG is set if\n\  Interactively, N is the prefix arg, and KILLFLAG is set if
204  N was explicitly specified.")  N was explicitly specified.  */)
205    (n, killflag)       (n, killflag)
206       Lisp_Object n, killflag;       Lisp_Object n, killflag;
207  {  {
208    int pos;    int pos;
# Line 235  N was explicitly specified.") Line 235  N was explicitly specified.")
235  }  }
236    
237  DEFUN ("delete-backward-char", Fdelete_backward_char, Sdelete_backward_char,  DEFUN ("delete-backward-char", Fdelete_backward_char, Sdelete_backward_char,
238    1, 2, "p\nP",         1, 2, "p\nP",
239    "Delete the previous N characters (following if N is negative).\n\         doc: /* Delete the previous N characters (following if N is negative).
240  Optional second arg KILLFLAG non-nil means kill instead (save in kill ring).\n\  Optional second arg KILLFLAG non-nil means kill instead (save in kill ring).
241  Interactively, N is the prefix arg, and KILLFLAG is set if\n\  Interactively, N is the prefix arg, and KILLFLAG is set if
242  N was explicitly specified.")  N was explicitly specified.  */)
243    (n, killflag)       (n, killflag)
244       Lisp_Object n, killflag;       Lisp_Object n, killflag;
245  {  {
246    Lisp_Object value;    Lisp_Object value;
# Line 287  N was explicitly specified.") Line 287  N was explicitly specified.")
287  }  }
288    
289  DEFUN ("self-insert-command", Fself_insert_command, Sself_insert_command, 1, 1, "p",  DEFUN ("self-insert-command", Fself_insert_command, Sself_insert_command, 1, 1, "p",
290    "Insert the character you type.\n\         doc: /* Insert the character you type.
291  Whichever character you type to run this command is inserted.")  Whichever character you type to run this command is inserted.  */)
292    (n)       (n)
293       Lisp_Object n;       Lisp_Object n;
294  {  {
295    int character = XINT (last_command_char);    int character = XINT (last_command_char);
# Line 534  syms_of_cmds () Line 534  syms_of_cmds ()
534    staticpro (&Qoverwrite_mode_binary);    staticpro (&Qoverwrite_mode_binary);
535    
536    DEFVAR_LISP ("self-insert-face", &Vself_insert_face,    DEFVAR_LISP ("self-insert-face", &Vself_insert_face,
537      "If non-nil, set the face of the next self-inserting character to this.\n\                 doc: /* If non-nil, set the face of the next self-inserting character to this.
538  See also `self-insert-face-command'.");  See also `self-insert-face-command'.  */);
539    Vself_insert_face = Qnil;    Vself_insert_face = Qnil;
540    
541    DEFVAR_LISP ("self-insert-face-command", &Vself_insert_face_command,    DEFVAR_LISP ("self-insert-face-command", &Vself_insert_face_command,
542      "This is the command that set up `self-insert-face'.\n\                 doc: /* This is the command that set up `self-insert-face'.
543  If `last-command' does not equal this value, we ignore `self-insert-face'.");  If `last-command' does not equal this value, we ignore `self-insert-face'.  */);
544    Vself_insert_face_command = Qnil;    Vself_insert_face_command = Qnil;
545    
546    DEFVAR_LISP ("blink-paren-function", &Vblink_paren_function,    DEFVAR_LISP ("blink-paren-function", &Vblink_paren_function,
547      "Function called, if non-nil, whenever a close parenthesis is inserted.\n\                 doc: /* Function called, if non-nil, whenever a close parenthesis is inserted.
548  More precisely, a char with closeparen syntax is self-inserted.");  More precisely, a char with closeparen syntax is self-inserted.  */);
549    Vblink_paren_function = Qnil;    Vblink_paren_function = Qnil;
550    
551    defsubr (&Sforward_point);    defsubr (&Sforward_point);

Legend:
Removed from v.1.84  
changed lines
  Added in v.1.85

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26