Merge branch 'kriyative-fix-config-protect-randr-extension'19.11

1 files changed, 4 insertions, 2 deletions

diff --git a/head.lisp b/head.lisp
index 33ec85b..6442d20 100644
--- a/head.lisp
+++ b/head.lisp
@@ -67,10 +67,12 @@
         :when head
           :collect head))
 
+
 (defun make-screen-heads (screen root)
   (declare (ignore screen))
-  (cond ((xlib:query-extension *display* "RANDR")
-         (make-screen-randr-heads root))
+  ;; Query for whether the server supports RANDR, if so, call the
+  ;; randr version of make-screen-heads.
+  (cond ((xlib:query-extension *display* "RANDR") (make-screen-randr-heads root))
         ((and (xlib:query-extension *display* "XINERAMA")
               (xinerama:xinerama-is-active *display*))
          (mapcar 'screen-info-head