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
4ad8681a
Commit
4ad8681a
authored
Apr 26, 1996
by
Richard M. Stallman
Browse files
(save_excursion_restore): Add gcpros.
parent
2a8095d5
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
2 deletions
+8
-2
src/editfns.c
src/editfns.c
+8
-2
No files found.
src/editfns.c
View file @
4ad8681a
...
...
@@ -267,9 +267,10 @@ save_excursion_save ()
Lisp_Object
save_excursion_restore
(
info
)
register
Lisp_Object
info
;
Lisp_Object
info
;
{
register
Lisp_Object
tem
,
tem1
,
omark
,
nmark
;
Lisp_Object
tem
,
tem1
,
omark
,
nmark
;
struct
gcpro
gcpro1
,
gcpro2
,
gcpro3
;
tem
=
Fmarker_buffer
(
Fcar
(
info
));
/* If buffer being returned to is now deleted, avoid error */
...
...
@@ -278,6 +279,10 @@ save_excursion_restore (info)
/* In that case, Fmarker_buffer returns nil now. */
if
(
NILP
(
tem
))
return
Qnil
;
omark
=
nmark
=
Qnil
;
GCPRO3
(
info
,
omark
,
nmark
);
Fset_buffer
(
tem
);
tem
=
Fcar
(
info
);
Fgoto_char
(
tem
);
...
...
@@ -313,6 +318,7 @@ save_excursion_restore (info)
else
if
(
!
NILP
(
tem1
))
call1
(
Vrun_hooks
,
intern
(
"deactivate-mark-hook"
));
}
UNGCPRO
;
return
Qnil
;
}
...
...
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