mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-31 01:20:37 -08:00
Code Issues Projects Releases Wiki Activity

(x_catch_errors): Save dpy using make_save_value.

Browse source 
(x_catch_errors_unwind): Call XSync.
This commit is contained in:
Richard M. Stallman 2003-01-06 00:45:31 +00:00
parent 1cb12638f3
commit 781d152abe
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/xterm.c
View file

@ -12179,7 +12179,9 @@ x_catch_errors (dpy)
/* Make sure any errors from previous requests have been dealt with. */
XSync (dpy, False);
record_unwind_protect (x_catch_errors_unwind, x_error_message_string);
record_unwind_protect (x_catch_errors_unwind,
Fcons (make_save_value (dpy, 0),
x_error_message_string));
x_error_message_string = make_uninit_string (X_ERROR_MESSAGE_SIZE);
SSET (x_error_message_string, 0, 0);
@ -12193,7 +12195,13 @@ static Lisp_Object
x_catch_errors_unwind (old_val)
Lisp_Object old_val;
{
x_error_message_string = old_val;
Lisp_Object first;
first = XCAR (old_val);
XSync (XSAVE_VALUE (first)->pointer, False);
x_error_message_string = XCDR (old_val);
return Qnil;
}