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
2a42e8f6
Commit
2a42e8f6
authored
May 21, 1996
by
Karl Heuer
Browse files
(Fprin1_to_string): Preserve Vdeactivate_mark.
parent
28ee503c
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
2 deletions
+10
-2
src/print.c
src/print.c
+10
-2
No files found.
src/print.c
View file @
2a42e8f6
...
...
@@ -527,7 +527,14 @@ second argument NOESCAPE is non-nil.")
int
old_point
=
-
1
;
int
start_point
;
Lisp_Object
original
,
printcharfun
;
struct
gcpro
gcpro1
;
struct
gcpro
gcpro1
,
gcpro2
;
Lisp_Object
tem
;
/* Save and restore this--we are altering a buffer
but we don't want to deactivate the mark just for that.
No need for specbind, since errors deactivate the mark. */
tem
=
Vdeactivate_mark
;
GCPRO2
(
object
,
tem
);
printcharfun
=
Vprin1_to_string_buffer
;
PRINTPREPARE
;
...
...
@@ -538,9 +545,10 @@ second argument NOESCAPE is non-nil.")
set_buffer_internal
(
XBUFFER
(
Vprin1_to_string_buffer
));
object
=
Fbuffer_string
();
GCPRO1
(
object
);
Ferase_buffer
();
set_buffer_internal
(
old
);
Vdeactivate_mark
=
tem
;
UNGCPRO
;
return
object
;
...
...
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