From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 16 Aug 1996 23:14:09 +0000 (+0000)
Subject: (Fdelete_backward_char): Fix off-by-one error.
X-Git-Tag: emacs-20.1~4069
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7c98317117409635639de6eb311e9fc508762ef1;p=emacs.git

(Fdelete_backward_char): Fix off-by-one error.
Treat deleted newline specially.
---

diff --git a/src/cmds.c b/src/cmds.c
index 5c0f7cd4751..9c29982cc80 100644
--- a/src/cmds.c
+++ b/src/cmds.c
@@ -208,19 +208,19 @@ N was explicitly specified.")
      Lisp_Object n, killflag;
 {
   Lisp_Object value;
-  int deleted_tab = 0;
+  int deleted_special = 0;
   int i;
 
   CHECK_NUMBER (n, 0);
 
-  /* See if we are about to delete a tab backwards.  */
-  for (i = 0; i < XINT (n); i++)
+  /* See if we are about to delete a tab or newline backwards.  */
+  for (i = 1; i <= XINT (n); i++)
     {
       if (point - i < BEGV)
 	break;
-      if (FETCH_CHAR (point - i) == '\t')
+      if (FETCH_CHAR (point - i) == '\t' || FETCH_CHAR (point - i) == '\n')
 	{
-	  deleted_tab = 1;
+	  deleted_special = 1;
 	  break;
 	}
     }
@@ -231,7 +231,7 @@ N was explicitly specified.")
      unless at end of line.  */
   if (XINT (n) > 0
       && ! NILP (current_buffer->overwrite_mode)
-      && ! deleted_tab
+      && ! deleted_special
       && ! (point == ZV || FETCH_CHAR (point) == '\n'))
     {
       Finsert_char (make_number (' '), XINT (n));