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
cbc1b668
Commit
cbc1b668
authored
Mar 24, 1998
by
Kenichi Handa
Browse files
(record_delete): Record last_point_position when there's
no record other than marker adjustment before undo boundary.
parent
80e79e3e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
18 additions
and
2 deletions
+18
-2
src/undo.c
src/undo.c
+18
-2
No files found.
src/undo.c
View file @
cbc1b668
...
...
@@ -105,8 +105,24 @@ record_delete (beg, string)
Fundo_boundary
();
XSETBUFFER
(
last_undo_buffer
,
current_buffer
);
at_boundary
=
(
CONSP
(
current_buffer
->
undo_list
)
&&
NILP
(
XCONS
(
current_buffer
->
undo_list
)
->
car
));
if
(
CONSP
(
current_buffer
->
undo_list
))
{
/* Set AT_BOUNDARY to 1 only when we have nothing other than
marker adjustment before undo boundary. */
Lisp_Object
tail
=
current_buffer
->
undo_list
,
elt
;
while
(
1
)
{
elt
=
XCONS
(
tail
)
->
car
;
if
(
NILP
(
elt
)
||
!
(
CONSP
(
elt
)
&&
MARKERP
(
XCONS
(
elt
)
->
car
)))
break
;
tail
=
XCONS
(
tail
)
->
cdr
;
}
at_boundary
=
NILP
(
elt
);
}
else
at_boundary
=
0
;
if
(
MODIFF
<=
SAVE_MODIFF
)
record_first_change
();
...
...
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