Allow connections to X servers with no access control

mwitmer · Aug 26, 2013 · 1386709 · 1386709
1 parent 7691f00
commit 1386709
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/xcb/xml/auth.scm b/xcb/xml/auth.scm
@@ -137,8 +137,8 @@
        byte-order
        protocol-major-version
        protocol-minor-version
-       (string->xcb (assq-ref auth 'protocol))
-       (bv->xcb-string (assq-ref auth 'data))))
+       (string->xcb (or (assq-ref auth 'protocol) ""))
+       (bv->xcb-string (or (assq-ref auth 'data) #vu8()))))
 
     (xcb-enable-xproto!/c xcb-conn #f)