procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Fdelete_backward_char): Count both bytes and chars.

Browse source
This commit is contained in:
Karl Heuer 1998-02-22 01:06:06 +00:00
parent 1d1293ddf1
commit ceb7e4f8e7
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/cmds.c
View file

@ -235,18 +235,19 @@ N was explicitly specified.")
{
Lisp_Object value;
int deleted_special = 0;
int pos, i;
int pos, pos_byte, i;
CHECK_NUMBER (n, 0);
/* See if we are about to delete a tab or newline backwards. */
pos = PT_BYTE;
for (i = 0; i < XINT (n) && pos > BEGV_BYTE; i++)
pos = PT;
pos_byte = PT_BYTE;
for (i = 0; i < XINT (n) && pos_byte > BEGV_BYTE; i++)
{
int c;
DEC_POS (pos);
c = FETCH_BYTE (pos);
DEC_BOTH (pos, pos_byte);
c = FETCH_BYTE (pos_byte);
if (c == '\t' || c == '\n')
{
deleted_special = 1;