Mercurial > emacs
diff src/cmds.c @ 109351:c8a969d13eda
merge trunk
| author | Kenichi Handa <handa@etlken> |
|---|---|
| date | Fri, 09 Jul 2010 15:55:27 +0900 |
| parents | 8cfee7d2955f |
| children | 4b7ca75642a8 |
line wrap: on
line diff
--- a/src/cmds.c Thu Jul 08 17:09:35 2010 +0900 +++ b/src/cmds.c Fri Jul 09 15:55:27 2010 +0900 @@ -48,8 +48,7 @@ DEFUN ("forward-point", Fforward_point, Sforward_point, 1, 1, 0, doc: /* Return buffer position N characters after (before if N negative) point. */) - (n) - Lisp_Object n; + (Lisp_Object n) { CHECK_NUMBER (n); @@ -63,8 +62,7 @@ Depending on the bidirectional context, the movement may be to the right or to the left on the screen. This is in contrast with \\[right-char], which see. */) - (n) - Lisp_Object n; + (Lisp_Object n) { if (NILP (n)) XSETFASTINT (n, 1); @@ -103,8 +101,7 @@ Depending on the bidirectional context, the movement may be to the right or to the left on the screen. This is in contrast with \\[left-char], which see. */) - (n) - Lisp_Object n; + (Lisp_Object n) { if (NILP (n)) XSETFASTINT (n, 1); @@ -123,8 +120,7 @@ that is N - number of lines moved; if backward, N + number moved. With positive N, a non-empty line at the end counts as one line successfully moved (for the return value). */) - (n) - Lisp_Object n; + (Lisp_Object n) { int opoint = PT, opoint_byte = PT_BYTE; int pos, pos_byte; @@ -173,8 +169,7 @@ `inhibit-field-text-motion' to t, or use the `forward-line' function instead. For instance, `(forward-line 0)' does the same thing as `(beginning-of-line)', except that it ignores field boundaries. */) - (n) - Lisp_Object n; + (Lisp_Object n) { if (NILP (n)) XSETFASTINT (n, 1); @@ -197,8 +192,7 @@ N is nil or 1, and a rear-sticky field ends at point, the point does not move. To ignore field boundaries bind `inhibit-field-text-motion' to t. */) - (n) - Lisp_Object n; + (Lisp_Object n) { int newpos; @@ -243,8 +237,7 @@ N was explicitly specified. The command `delete-forward' is preferable for interactive use. */) - (n, killflag) - Lisp_Object n, killflag; + (Lisp_Object n, Lisp_Object killflag) { int pos; @@ -286,8 +279,7 @@ not have word syntax and the previous character in the buffer does. After insertion, the value of `auto-fill-function' is called if the `auto-fill-chars' table has a non-nil value for the inserted character. */) - (n) - Lisp_Object n; + (Lisp_Object n) { int remove_boundary = 1; CHECK_NUMBER (n);
