aboutsummaryrefslogtreecommitdiffstats
path: root/src/cmds.c
diff options
context:
space:
mode:
authorDan Nicolaescu2010-07-08 14:25:08 -0700
committerDan Nicolaescu2010-07-08 14:25:08 -0700
commit5842a27bbfb7efa6872824e501bc7ec98b631553 (patch)
treed173899af9cbed9d90d94cfc710e6ecc06dd1f6b /src/cmds.c
parent71c44c04bb996abe77db8efd88255fde06532b10 (diff)
downloademacs-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.c24
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
49DEFUN ("forward-point", Fforward_point, Sforward_point, 1, 1, 0, 49DEFUN ("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.
63Depending on the bidirectional context, the movement may be to the 62Depending on the bidirectional context, the movement may be to the
64right or to the left on the screen. This is in contrast with 63right 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.
103Depending on the bidirectional context, the movement may be to the 101Depending on the bidirectional context, the movement may be to the
104right or to the left on the screen. This is in contrast with 102right 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,
123that is N - number of lines moved; if backward, N + number moved. 120that is N - number of lines moved; if backward, N + number moved.
124With positive N, a non-empty line at the end counts as one line 121With positive N, a non-empty line at the end counts as one line
125successfully moved (for the return value). */) 122successfully 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
174instead. For instance, `(forward-line 0)' does the same thing as 170instead. 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
197N is nil or 1, and a rear-sticky field ends at point, the point does 192N is nil or 1, and a rear-sticky field ends at point, the point does
198not move. To ignore field boundaries bind `inhibit-field-text-motion' 193not move. To ignore field boundaries bind `inhibit-field-text-motion'
199to t. */) 194to 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
243N was explicitly specified. 237N was explicitly specified.
244 238
245The command `delete-forward' is preferable for interactive use. */) 239The 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
286not have word syntax and the previous character in the buffer does. 279not have word syntax and the previous character in the buffer does.
287After insertion, the value of `auto-fill-function' is called if the 280After 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);