From 8410bc4a129404823083ec6e806df6ba5bf97c06 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Tue, 4 Nov 2014 04:29:42 +0000 Subject: [PATCH] Fix indentation in GET-X-DISPLAY botched by last commit. --- src/edwin/xterm.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/src/edwin/xterm.scm b/src/edwin/xterm.scm index b78a72282..416ebd8bf 100644 --- a/src/edwin/xterm.scm +++ b/src/edwin/xterm.scm @@ -1370,14 +1370,14 @@ Otherwise, it is copied from the primary selection." ;; running the login loop of xdm. Can this be fixed? (or x-display-data (and (begin - (load-library-object-file "prx11" #f) - (implemented-primitive-procedure? - (ucode-primitive x-open-display 1))) - (or x-display-name (get-environment-variable "DISPLAY")) - (let ((display (x-open-display x-display-name))) - (set! x-display-data display) - (set! x-display-events (make-queue)) - display)))) + (load-library-object-file "prx11" #f) + (implemented-primitive-procedure? + (ucode-primitive x-open-display 1))) + (or x-display-name (get-environment-variable "DISPLAY")) + (let ((display (x-open-display x-display-name))) + (set! x-display-data display) + (set! x-display-events (make-queue)) + display)))) (define (initialize-package!) (set! screen-list '()) -- 2.25.1