comparison src/cmds.c @ 20958:806727604be8

(Fdelete_backward_char): Count both bytes and chars.

20957:25bb3da85d05

  (n, killflag)
     Lisp_Object n, killflag;
{
  Lisp_Object value;
  int deleted_special = 0;
  int pos, 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++)
    {
      int c;

      DEC_POS (pos);
      c = FETCH_BYTE (pos);
      if (c == '\t' || c == '\n')
	{
	  deleted_special = 1;
	  break;
	}

20958:806727604be8

  (n, killflag)
     Lisp_Object n, killflag;
{
  Lisp_Object value;
  int deleted_special = 0;
  int pos, pos_byte, i;

  CHECK_NUMBER (n, 0);

  /* See if we are about to delete a tab or newline backwards.  */
  pos = PT;
  pos_byte = PT_BYTE;
  for (i = 0; i < XINT (n) && pos_byte > BEGV_BYTE; i++)
    {
      int c;

      DEC_BOTH (pos, pos_byte);
      c = FETCH_BYTE (pos_byte);
      if (c == '\t' || c == '\n')
	{
	  deleted_special = 1;
	  break;
	}