mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-27 07:41:28 -08:00
Code Issues Projects Releases Wiki Activity

Prevent Haiku display from being opened multiple times

Browse source 
* src/haikufns.c (Fx_open_connection): Return if display
connection already exists.
This commit is contained in:
Po Lu 2022-02-21 07:42:01 +00:00
parent e087c89b1e
commit fc281e0df3
1 changed files with 19 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

25
src/haikufns.c
View file

@ -1844,16 +1844,29 @@ DEFUN ("x-open-connection", Fx_open_connection, Sx_open_connection,
doc: /* SKIP: real doc in xfns.c. */)
(Lisp_Object display, Lisp_Object resource_string, Lisp_Object must_succeed)
{
struct haiku_display_info *dpy_info;
struct haiku_display_info *dpyinfo;
CHECK_STRING (display);
if (NILP (Fstring_equal (display, build_string ("be"))))
!NILP (must_succeed) ? fatal ("Bad display") : error ("Bad display");
dpy_info = haiku_term_init ();
{
if (!NILP (must_succeed))
fatal ("Bad display");
else
error ("Bad display");
}
if (!dpy_info)
!NILP (must_succeed) ? fatal ("Display not responding") :
error ("Display not responding");
if (x_display_list)
return Qnil;
dpyinfo = haiku_term_init ();
if (!dpyinfo)
{
if (!NILP (must_succeed))
fatal ("Display not responding");
else
error ("Display not responding");
}
return Qnil;
}