Mercurial > emacs
changeset 45618:21c0392ac82a
(Fdelete_backward_char, internal_self_insert): Cast
`current_column' return value to int.
| author | Thien-Thi Nguyen <ttn@gnuvola.org> |
|---|---|
| date | Mon, 03 Jun 2002 01:37:29 +0000 |
| parents | 36bc4f35dc18 |
| children | dbd65bd8bb4f |
| files | src/cmds.c |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/cmds.c Mon Jun 03 01:34:11 2002 +0000 +++ b/src/cmds.c Mon Jun 03 01:37:29 2002 +0000 @@ -161,7 +161,7 @@ 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 @@ CHECK_NUMBER (n); SET_PT (XINT (Fline_beginning_position (n))); - + return Qnil; } @@ -299,10 +299,10 @@ && ! 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 @@ && ! (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))))) {