From d9355d3e0fac58eab16684fed2715cc91f68d39e Mon Sep 17 00:00:00 2001 From: fujiwarat Date: Fri, 11 Feb 2022 10:28:18 +0900 Subject: [PATCH] src-util: set-face-underline is not available in xemacs Lisp --- src-util/anthy-unicode.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src-util/anthy-unicode.el b/src-util/anthy-unicode.el index 14a9db4..902c7ac 100644 --- a/src-util/anthy-unicode.el +++ b/src-util/anthy-unicode.el @@ -74,7 +74,8 @@ (defvar anthy-highlight-face nil) (defvar anthy-underline-face nil) (copy-face 'highlight 'anthy-highlight-face) -(set-face-underline 'anthy-highlight-face t) +(if (not (featurep 'xemacs)) + (set-face-underline 'anthy-highlight-face t)) (copy-face 'underline 'anthy-underline-face) ;; -- 2.33.1