diff options
| author | Dan Nicolaescu | 2010-07-08 14:25:08 -0700 |
|---|---|---|
| committer | Dan Nicolaescu | 2010-07-08 14:25:08 -0700 |
| commit | 5842a27bbfb7efa6872824e501bc7ec98b631553 (patch) | |
| tree | d173899af9cbed9d90d94cfc710e6ecc06dd1f6b /src/cmds.c | |
| parent | 71c44c04bb996abe77db8efd88255fde06532b10 (diff) | |
| download | emacs-5842a27bbfb7efa6872824e501bc7ec98b631553.tar.gz emacs-5842a27bbfb7efa6872824e501bc7ec98b631553.zip | |
Convert DEFUNs to standard C.
* src/alloc.c: Convert DEFUNs to standard C.
* src/buffer.c:
* src/bytecode.c:
* src/callint.c:
* src/callproc.c:
* src/casefiddle.c:
* src/casetab.c:
* src/category.c:
* src/character.c:
* src/charset.c:
* src/chartab.c:
* src/cmds.c:
* src/coding.c:
* src/composite.c:
* src/data.c:
* src/dbusbind.c:
* src/dired.c:
* src/dispnew.c:
* src/doc.c:
* src/dosfns.c:
* src/editfns.c:
* src/emacs.c:
* src/eval.c:
* src/fileio.c:
* src/filelock.c:
* src/floatfns.c:
* src/fns.c:
* src/font.c:
* src/fontset.c:
* src/frame.c:
* src/fringe.c:
* src/image.c:
* src/indent.c:
* src/insdel.c:
* src/keyboard.c:
* src/keymap.c:
* src/lread.c:
* src/macros.c:
* src/marker.c:
* src/menu.c:
* src/minibuf.c:
* src/msdos.c:
* src/nsfns.m:
* src/nsmenu.m:
* src/nsselect.m:
* src/print.c:
* src/process.c:
* src/search.c:
* src/sound.c:
* src/syntax.c:
* src/term.c:
* src/terminal.c:
* src/textprop.c:
* src/undo.c:
* src/w16select.c:
* src/w32console.c:
* src/w32fns.c:
* src/w32font.c:
* src/w32menu.c:
* src/w32proc.c:
* src/w32select.c:
* src/window.c:
* src/xdisp.c:
* src/xfaces.c:
* src/xfns.c:
* src/xmenu.c:
* src/xselect.c:
* src/xsettings.c:
* src/xsmfns.c: Likewise.
Diffstat (limited to 'src/cmds.c')
| -rw-r--r-- | src/cmds.c | 24 |
1 files changed, 8 insertions, 16 deletions
diff --git a/src/cmds.c b/src/cmds.c index 2bea5a6f10c..81f975a9885 100644 --- a/src/cmds.c +++ b/src/cmds.c | |||
| @@ -48,8 +48,7 @@ extern Lisp_Object Vtranslation_table_for_input; | |||
| 48 | 48 | ||
| 49 | DEFUN ("forward-point", Fforward_point, Sforward_point, 1, 1, 0, | 49 | DEFUN ("forward-point", Fforward_point, Sforward_point, 1, 1, 0, |
| 50 | doc: /* Return buffer position N characters after (before if N negative) point. */) | 50 | doc: /* Return buffer position N characters after (before if N negative) point. */) |
| 51 | (n) | 51 | (Lisp_Object n) |
| 52 | Lisp_Object n; | ||
| 53 | { | 52 | { |
| 54 | CHECK_NUMBER (n); | 53 | CHECK_NUMBER (n); |
| 55 | 54 | ||
| @@ -63,8 +62,7 @@ On reaching end or beginning of buffer, stop and signal error. | |||
| 63 | Depending on the bidirectional context, the movement may be to the | 62 | Depending on the bidirectional context, the movement may be to the |
| 64 | right or to the left on the screen. This is in contrast with | 63 | right or to the left on the screen. This is in contrast with |
| 65 | \\[right-char], which see. */) | 64 | \\[right-char], which see. */) |
| 66 | (n) | 65 | (Lisp_Object n) |
| 67 | Lisp_Object n; | ||
| 68 | { | 66 | { |
| 69 | if (NILP (n)) | 67 | if (NILP (n)) |
| 70 | XSETFASTINT (n, 1); | 68 | XSETFASTINT (n, 1); |
| @@ -103,8 +101,7 @@ On attempt to pass beginning or end of buffer, stop and signal error. | |||
| 103 | Depending on the bidirectional context, the movement may be to the | 101 | Depending on the bidirectional context, the movement may be to the |
| 104 | right or to the left on the screen. This is in contrast with | 102 | right or to the left on the screen. This is in contrast with |
| 105 | \\[left-char], which see. */) | 103 | \\[left-char], which see. */) |
| 106 | (n) | 104 | (Lisp_Object n) |
| 107 | Lisp_Object n; | ||
| 108 | { | 105 | { |
| 109 | if (NILP (n)) | 106 | if (NILP (n)) |
| 110 | XSETFASTINT (n, 1); | 107 | XSETFASTINT (n, 1); |
| @@ -123,8 +120,7 @@ Returns the count of lines left to move. If moving forward, | |||
| 123 | that is N - number of lines moved; if backward, N + number moved. | 120 | that is N - number of lines moved; if backward, N + number moved. |
| 124 | With positive N, a non-empty line at the end counts as one line | 121 | With positive N, a non-empty line at the end counts as one line |
| 125 | successfully moved (for the return value). */) | 122 | successfully moved (for the return value). */) |
| 126 | (n) | 123 | (Lisp_Object n) |
| 127 | Lisp_Object n; | ||
| 128 | { | 124 | { |
| 129 | int opoint = PT, opoint_byte = PT_BYTE; | 125 | int opoint = PT, opoint_byte = PT_BYTE; |
| 130 | int pos, pos_byte; | 126 | int pos, pos_byte; |
| @@ -173,8 +169,7 @@ does not move. To ignore field boundaries bind | |||
| 173 | `inhibit-field-text-motion' to t, or use the `forward-line' function | 169 | `inhibit-field-text-motion' to t, or use the `forward-line' function |
| 174 | instead. For instance, `(forward-line 0)' does the same thing as | 170 | instead. For instance, `(forward-line 0)' does the same thing as |
| 175 | `(beginning-of-line)', except that it ignores field boundaries. */) | 171 | `(beginning-of-line)', except that it ignores field boundaries. */) |
| 176 | (n) | 172 | (Lisp_Object n) |
| 177 | Lisp_Object n; | ||
| 178 | { | 173 | { |
| 179 | if (NILP (n)) | 174 | if (NILP (n)) |
| 180 | XSETFASTINT (n, 1); | 175 | XSETFASTINT (n, 1); |
| @@ -197,8 +192,7 @@ point to a different line than the original, unconstrained result. If | |||
| 197 | N is nil or 1, and a rear-sticky field ends at point, the point does | 192 | N is nil or 1, and a rear-sticky field ends at point, the point does |
| 198 | not move. To ignore field boundaries bind `inhibit-field-text-motion' | 193 | not move. To ignore field boundaries bind `inhibit-field-text-motion' |
| 199 | to t. */) | 194 | to t. */) |
| 200 | (n) | 195 | (Lisp_Object n) |
| 201 | Lisp_Object n; | ||
| 202 | { | 196 | { |
| 203 | int newpos; | 197 | int newpos; |
| 204 | 198 | ||
| @@ -243,8 +237,7 @@ Interactively, N is the prefix arg, and KILLFLAG is set if | |||
| 243 | N was explicitly specified. | 237 | N was explicitly specified. |
| 244 | 238 | ||
| 245 | The command `delete-forward' is preferable for interactive use. */) | 239 | The command `delete-forward' is preferable for interactive use. */) |
| 246 | (n, killflag) | 240 | (Lisp_Object n, Lisp_Object killflag) |
| 247 | Lisp_Object n, killflag; | ||
| 248 | { | 241 | { |
| 249 | int pos; | 242 | int pos; |
| 250 | 243 | ||
| @@ -286,8 +279,7 @@ Before insertion, `expand-abbrev' is executed if the inserted character does | |||
| 286 | not have word syntax and the previous character in the buffer does. | 279 | not have word syntax and the previous character in the buffer does. |
| 287 | After insertion, the value of `auto-fill-function' is called if the | 280 | After insertion, the value of `auto-fill-function' is called if the |
| 288 | `auto-fill-chars' table has a non-nil value for the inserted character. */) | 281 | `auto-fill-chars' table has a non-nil value for the inserted character. */) |
| 289 | (n) | 282 | (Lisp_Object n) |
| 290 | Lisp_Object n; | ||
| 291 | { | 283 | { |
| 292 | int remove_boundary = 1; | 284 | int remove_boundary = 1; |
| 293 | CHECK_NUMBER (n); | 285 | CHECK_NUMBER (n); |