mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(Fdelete_backward_char): Fix off-by-one error.

Browse Source 
Treat deleted newline specially.
This commit is contained in:
Karl Heuer 1996-08-16 23:14:09 +00:00
parent 24ff6e06b3
commit 7c98317117
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/cmds.c
View File

@ -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));