Merge pull request #487 from k-okada/fix_viewport

add #+:xwindow before using x::*display*
euslisp · Apr 18, 2024 · a7be672 · a7be672 · k-okada · Apr 18, 2024
2 parents 868484f + e5a12cc
commit a7be672
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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