From 87d623dc5a5d475ceb46b147c77a2eff3967334b Mon Sep 17 00:00:00 2001 From: Kei Okada Date: Mon, 11 Apr 2022 15:48:15 +0900 Subject: [PATCH] add #+:xwindow before using x::*display* --- lisp/geo/viewport.l | 1 + 1 file changed, 1 insertion(+) diff --git a/lisp/geo/viewport.l b/lisp/geo/viewport.l index 3c95551c8..6eab9f7a5 100644 --- a/lisp/geo/viewport.l +++ b/lisp/geo/viewport.l @@ -632,6 +632,7 @@ To get viewing or viewsurface object in the viewer, send :viewing or args))) ) (setq vw (find-viewer name)) (unless vw (setq vw (instantiate viewer))) +#+:xwindow (if (and (boundp 'x::*display*) (numberp x::*display*) alternate (not (derivedp alternate x::xdrawable))) (setq alternate