Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
ceb7e4f8
Commit
ceb7e4f8
authored
Feb 22, 1998
by
Karl Heuer
Browse files
(Fdelete_backward_char): Count both bytes and chars.
parent
1d1293dd
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
5 deletions
+6
-5
src/cmds.c
src/cmds.c
+6
-5
No files found.
src/cmds.c
View file @
ceb7e4f8
...
...
@@ -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
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment