2022-02-11 01:43:35 +00:00
|
|
|
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
|
|
|
|
|