From d9355d3e0fac58eab16684fed2715cc91f68d39e Mon Sep 17 00:00:00 2001
From: fujiwarat <takao.fujiwara1@gmail.com>
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