diff options
| author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2002-06-03 01:37:29 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2002-06-03 01:37:29 +0000 |
| commit | a731cae28ec4cdc487467b08c2df5e082ff6c0a6 (patch) | |
| tree | 5e4e5a36d5e235d8e7619572825e4b8185cd4d3b /src/cmds.c | |
| parent | 8e11578b9a2622db1c8012669b1df29871fdca71 (diff) | |
| download | emacs-a731cae28ec4cdc487467b08c2df5e082ff6c0a6.tar.gz | |
(Fdelete_backward_char, internal_self_insert): Cast
`current_column' return value to int.
Diffstat (limited to 'src/cmds.c')
| -rw-r--r-- | src/cmds.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/cmds.c b/src/cmds.c index 40990d074b8..912c1e4a98f 100644 --- a/src/cmds.c +++ b/src/cmds.c @@ -161,7 +161,7 @@ starts at a field boundary, point does not move. To ignore field boundaries, either bind `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. */) +boundaries. */) (n) Lisp_Object n; { @@ -171,7 +171,7 @@ boundaries. */) CHECK_NUMBER (n); SET_PT (XINT (Fline_beginning_position (n))); - + return Qnil; } @@ -299,10 +299,10 @@ N was explicitly specified. */) && ! deleted_special && ! (PT == ZV || FETCH_BYTE (PT_BYTE) == '\n')) { - int column = current_column (); + int column = (int) current_column (); /* iftc */ value = Fdelete_char (make_number (-XINT (n)), killflag); - i = column - current_column (); + i = column - (int) current_column (); /* iftc */ Finsert_char (make_number (' '), make_number (i), Qnil); /* Whitespace chars are ASCII chars, so we can simply subtract. */ SET_PT_BOTH (PT - i, PT_BYTE - i); @@ -431,7 +431,7 @@ internal_self_insert (c, noautofill) && ! (c2 == '\t' && XINT (current_buffer->tab_width) > 0 && XFASTINT (current_buffer->tab_width) < 20 - && (target_clm = (current_column () + && (target_clm = ((int) current_column () /* iftc */ + XINT (Fchar_width (make_number (c)))), target_clm % XFASTINT (current_buffer->tab_width))))) { |