diff options
| author | Karl Heuer <[email protected]> | 1996-08-16 23:14:09 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1996-08-16 23:14:09 +0000 |
| commit | 7c98317117409635639de6eb311e9fc508762ef1 (patch) | |
| tree | d997c16f36b5b48dbeee95019be0c1e2f737da78 /src | |
| parent | 24ff6e06b36286cf6e7cb581477258164fb45f69 (diff) | |
(Fdelete_backward_char): Fix off-by-one error.
Treat deleted newline specially.
Diffstat (limited to 'src')
| -rw-r--r-- | src/cmds.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/cmds.c b/src/cmds.c index 5c0f7cd475..9c29982cc8 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)); |