From 675efd60deb9e1adcc9fc4fb43bf155df6b64403 Mon Sep 17 00:00:00 2001 From: Daniel Kochmanski <daniel@turtleware.eu> Date: Sat, 13 May 2017 10:44:03 +0200 Subject: [PATCH] port-undefined-text-style: used in clx backend --- silica/classes.lisp | 2 +- utils/packages.lisp | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/silica/classes.lisp b/silica/classes.lisp index d2814256..6c7aa9e5 100644 --- a/silica/classes.lisp +++ b/silica/classes.lisp @@ -43,7 +43,7 @@ (mapping-cache :initform #+(or aclpc acl86win32) (cons nil nil) #-(or aclpc acl86win32) (mapping-cache-initform)) -#+(or aclpc acl86win32) +#+(or aclpc acl86win32 (and)) (undefined-text-style :initform *undefined-text-style* :accessor port-undefined-text-style) ;; When this is true, the text style to device font mapping is done diff --git a/utils/packages.lisp b/utils/packages.lisp index cdab7f39..dd77de99 100644 --- a/utils/packages.lisp +++ b/utils/packages.lisp @@ -3031,7 +3031,7 @@ *ports* *standard-character-set* *all-character-sets* - #+(or aclpc acl86win32) *undefined-text-style* + #+(or aclpc acl86win32 (and)) *undefined-text-style* +highlighting-line-style+ activate-gadget-event add-sheet-callbacks @@ -3184,7 +3184,7 @@ port-set-sheet-grabbed-pointer-cursor port-terminated port-trace-thing - #+(or aclpc acl86win32) port-undefined-text-style + #+(or aclpc acl86win32 (and)) port-undefined-text-style process-event-locally pull-down-menu pull-down-menu-button -- GitLab